Jak vytvořit servisu součást .NET v Visual Basic.NET nebo Visual Basic 2005

Překlady článku Překlady článku
ID článku: 312902 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek ukazuje, jak vytvořit servisu součásti .NET, která používá transakce. Tento článek také uvádí, jak vytvořit klienta testuje servisu součást. Microsoft Enterprise Služba poskytuje služby Microsoft COM + k součásti .NET.

Důležité poznámky

  • Pomocí silného názvu servisu součásti.
  • Zaregistrovat servisu komponenty v globální mezipaměti sestavení (GAC) protože jsou prostředky na úrovni systému. Nainstalovat aplikace serveru GAC. Společnost Microsoft doporučuje zaregistrovat knihovnu aplikací v GAC, ačkoli to není požadavku.
  • Zaregistrovat komponenty servisu s COM + můžete použít některou z následujících metod:
    • Použít opožděných registrace zaregistrovat komponenty servisu automaticky.
    • Pomocí nástroje regsvcs.exe servisu součásti zaregistrovat ručně. Regsvcs.exe je umístěn v následující složce:
      Framework Version \WINNT\Microsoft.NET\Framework\
      Další informace o regsvcs.exe naleznete v tématu Microsoft .NET Framework Software Development Kit (SDK) dokumentace.
  • Nainstalujte Microsoft SQL Server v místním počítači použití příkladu v tomto článku.
  • Tato ukázka je určena pouze pro účely obrázku. Můžete použít dotaz SELECT zobrazené v ukázkové mimo transakce COM +, protože COM + používá nejvyšší úroveň izolace transakce. Zlepšit propustnost databáze pomocí dotazu čtení pro nižší úrovně transakce.

Vytvoření součásti .NET servisu

  1. Vytvoření nového projektu knihovny tříd jazyka a název ServicedCOM.
  2. Přejmenovat výchozí třída VBServCom.
  3. Přidejte odkaz na obor názvů služby System.EnterpriseServices.
  4. Zadejte nebo vložte následující kód před výkazu třídy:
    Imports System.EnterpriseServices
    Imports System.Data.SqlClient
    					
  5. Po příkazu třídy přidejte následující kód:
        Inherits EnterpriseServices.ServicedComponent
    					
  6. Přidejte následující kód před výkazu třídy (není zapomenete znak pokračování řádku "_"):
    <Transaction(TransactionOption.RequiresNew)> _
    					
  7. Přidejte následující atributy souboru AssemblyInfo.vb:
    <assembly: ApplicationActivation(ActivationOption.Library)>
    <assembly: ApplicationName("SimpleTrans")>
    						
    poznámky:
    • Atribut ActivationOption označuje, zda komponenta spuštěna v procesu volajícího. Můžete nastavit Activation.OptionKnihovna nebo Server.
    • Atribut ApplicationName je název, který se zobrazí pro aplikaci COM + v katalogu COM + a konzoly pro správu Component Services.
  8. Přidejte následující volitelný atribut AssemblyInfo.vb soubor:
    <Assembly: Description("Simple Transactional application to show Enterprise Services")>
    						
    tento atribut obsahuje popis aplikace COM + konzoly katalog COM + a správu Component Services.
  9. Přidat následující metodu výchozího souboru Class1.vb nebo VBServCom.vb, jestliže přejmenován soubor a třídy:
        ' Shows Explicit SetComplete/SetAbort.
        Public Function DoTrans() As String
            Dim connection As SqlConnection
            Dim command As SqlCommand
            Dim reader As SqlDataReader
            Dim name As String
            Dim query As String
    
            Try
                query = "SELECT au_lname, au_fname FROM authors"
                connection = New SqlConnection("data source=localhost;initial catalog = pubs;UID=sa;PWD=")
                command = New SqlCommand(query, connection)
    
                connection.Open()
                reader = command.ExecuteReader()
    
                reader.Read()
                name = reader.GetString(0) & ", " & reader.GetString(1)
            Catch exc As Exception
                ContextUtil.SetAbort()
                Throw exc
            End Try
            DoTrans = name
        End Function
    
        ' Show implicit SetComplete/SetAbort.
        <AutoComplete(True)> _
        Public Sub DoTxAuto()
            'Do stuff
        End Sub
    					
  10. Upravit řetězec SqlConnection prostředí.

Silné pojmenujte vaše sestavení

  1. Klepněte na tlačítko Start, přejděte na příkaz programy, přejděte na Microsoft Visual Studio.NET a klepněte na položku Visual Studio .NET nástroje Visual Studio .NET spusťte příkazový řádek.
  2. Na příkazovém řádku zadejte následující příkaz:
    sn.exe -k ServicedCOM.snk
    To umožňuje vaše sestavení silného názvu.

    Další informace o regsvcs.exe naleznete v dokumentaci Microsoft .NET Framework Software Development Kit (SDK).
  3. ServicedCOM.snk zkopírujte do složky projektu.
  4. V souboru AssemblyInfo.vb nahradit kód AssemblykeyFile následující kód:
    <Assembly: AssemblyKeyFile("..\\..\\ServicedCOM.snk")>
    					

Přidání servisu součásti COM +

Zaregistrujte součást dynamicky při vytvoření první instance. Nebo můžete ručně zaregistrovat komponenty s regsvcs.exe. Použít regsvcs.exe, postupujte takto:
  1. Klepněte na tlačítko Start, přejděte na příkaz programy, přejděte na Microsoft Visual Studio.NET a pak klepněte na položku Visual Studio.NET Tools otevřete příkazový řádek .NET.
  2. Příkazového řádku .NET zadejte regsvcs servicedcom.dll.

    Tím se vytvoří knihovní aplikace COM + se stejným názvem jako název třídy.

Testovat vaše součást

  1. V programu Poznámkový blok otevřete textový soubor.
  2. Zkopírujte následující kód do souboru:
    set o =createobject("VBServCOM.VBServCOM")
    
    MsgBox o.DoTrans()
    					
  3. V nabídce soubor klepněte na tlačítko Uložit.
  4. Do pole název souboru zadejte Test.vbs. V seznamu Typ klepněte na položku Všechny soubory a potom klepněte na tlačítko Uložit.
  5. Poklepejte na soubor spustit ukázkové.

Vlastnosti

ID článku: 312902 - Poslední aktualizace: 28. února 2014 - Revize: 5.5
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Enterprise Services (included with the .NET Framework) 1.0
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic 2005
Klíčová slova: 
kbnosurvey kbarchive kbmt kbhowtomaster KB312902 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:312902

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com