SO WIRD'S GEMACHT: Programmgesteuertes Erstellen einer Verbindungszeichenfolge in ADO.NET mit Visual Basic .NET

In diesem Artikel wird Schritt für Schritt beschrieben, wie über das Dialogfeld Datenverknüpfungseigenschaften zur Entwurfszeit eine Verbindungszeichenfolge programmgesteuert erstellt wird.

Anforderungen

In der folgenden Liste werden die empfohlene Hardware, Software und Netzwerkinfrastruktur und die erforderlichen Service Packs aufgeführt:

• Microsoft Windows 2000 Professional, Windows 2000 Server, Windows 2000 Advanced Server oder Windows NT 4.0 Server
• Microsoft Visual Studio .NET

In diesem Artikel wird davon ausgegangen, dass Sie mit den folgenden Themen vertraut sind:

• Visual Studio .NET
• Grundlagen und Syntax von ADO.NET
• Grundlagen und Syntax von ActiveX Data Objects (ADO)

Erstellen einer ADO-Verbindung

Wenn Sie die Verbindung mit ADO herstellen, erstellt die Datenverknüpfung ein Connection-ADODB-Standardobjekt.

1. Starten Sie Visual Studio .NET, und erstellen Sie in Visual Basic .NET eine Windows-Anwendung. In der Standardeinstellung wird Form1 erstellt.
2. Klicken Sie im Menü Projekt auf Verweis hinzufügen, und fügen Sie anschließend die folgenden Verweise hinzu:
   
   
   • Microsoft ActiveX Data Objects 2.7
   • Microsoft OLEDB Service Component 1.0 Type Library
   
   HINWEIS: Nachdem Sie im Dialogfeld Verweise auf OK geklickt haben, wird ggf. eine Fehlermeldung ähnlich der folgenden angezeigt:
   Eine primäre Interop-Assemblierung für die COM-Komponente 'Microsoft-Internetsteuerelemente' konnte nicht gefunden werden'. Eine primäre Interop-Assemblierung ist für diese Typbibliothek nicht registriert. Möchten Sie einen Wrapper erstellen?
   Klicken Sie in der Fehlermeldung auf Ja.
3. Fügen Sie Form1 ein Button-Steuerelement hinzu.
4. Fügen Sie dem Button1_Click-Ereignis folgenden Code hinzu:

   Dim mydlg As New MSDASC.DataLinks()
   Dim ADOcon As New ADODB.Connection()
   
   ADOcon = mydlg.PromptNew
   ADOcon.Open()
   
   If ADOcon.State = 1 Then
        MsgBox("Connection Opened")
   Else
        MsgBox("Connection Failed")
   End If

5. Drücken Sie F5, und klicken Sie dann auf Button1.
6. Geben Sie im Dialogfeld Datenverknüpfungseigenschaften die entsprechenden Informationen ein, und stellen Sie sicher, dass das Kontrollkästchen Speichern des Kennworts zulassen aktiviert ist.
7. Klicken Sie auf Verbindung testen.
8. Klicken Sie auf OK. Bei einem positiven Verbindungstest für die Datenverknüpfung wird eine Verbindung mit der Datenbank hergestellt und ein Meldungsfeld angezeigt.

Erstellen einer OLE DB-Verbindung

Wenn Sie OLE DB-Verbindungen in .NET mit dem verwalteten OLE DB-Provider herstellen, können Sie keine Verbindungen mit ODBC-Datenquellen herstellen. Da ODBC in .NET über einen eigenen verwalteten Provider verfügt, erhalten Sie eine Fehlermeldung, wenn Sie die Option Microsoft OLEDB provider for ODBC drivers im Dialogfeld Datenverknüpfungseigenschaften aktivieren. Außerdem müssen Sie ADO in die Anwendung laden, da die Datenverknüpfung ein Connection-ADODB-Objekt erstellt, das mit dem OleDbConnection-Objekt nicht kompatibel ist. Um eine fehlerfreie Funktion zu gewährleisten, müssen Sie daher ein Connection-ADODB-Objekt erstellen und dessen ConnectionString-Eigenschaft auf die ConnectionString-Eigenschaft des OleDbConnection-Objekts festlegen.

1. Starten Sie Visual Studio .NET, und erstellen Sie in Visual Basic .NET eine Windows-Anwendung. Dem Projekt wird standardmäßig Form1 hinzugefügt.
2. Klicken Sie im Menü Projekt auf Verweis hinzufügen, und fügen Sie anschließend die folgenden Verweise hinzu:
   • Microsoft ActiveX Data Objects 2.7
   • Microsoft OLEDB Service Component 1.0 Type Library
   
   
3. Fügen Sie Form1 ein Button-Steuerelement hinzu.
4. Verwenden Sie die Imports-Anweisung für den System.Data.OleDb-Namespace, damit Sie im Code später keine Deklarationen in diesem Namespace qualifizieren müssen. Sie müssen die Imports-Anweisung vor allen anderen Deklarationen verwenden:

   Imports System.Data.OleDb

5. Fügen Sie dem Button1_Click-Ereignis folgenden Code hinzu:

   Dim mydlg As New MSDASC.DataLinks()
   Dim OleCon As New OleDbConnection()
   Dim ADOcon As New ADODB.Connection()
   
   ADOcon = mydlg.PromptNew
   OleCon.ConnectionString = ADOcon.ConnectionString
   
   OleCon.Open()
   
   If OleCon.State = 1 Then
       MsgBox("Connection Opened")
   Else
       MsgBox("Connection Failed")
   End If

6. Drücken Sie F5, und klicken Sie dann auf Button1.
7. Geben Sie im Dialogfeld Datenverknüpfungseigenschaften die entsprechenden Informationen ein, und stellen Sie sicher, dass das Kontrollkästchen Speichern des Kennworts zulassen aktiviert ist.
8. Klicken Sie auf Verbindung testen.
9. Klicken Sie auf OK. Bei einem positiven Verbindungstest für die Datenverknüpfung wird eine Verbindung mit der Datenbank hergestellt und ein Meldungsfeld angezeigt.

Weitere Informationen

Das Erstellen einer ODBC-Verbindung erfordert bei dieser Methode mehr Aufwand, da die Datenverknüpfung eine OLE DB-spezifische Verbindungszeichenfolge erstellt, die mit dem verwalteten ODBC-Provider nicht kompatibel ist. Um die Funktion zu gewährleisten, müssen Sie daher die ADODB-Verbindungszeichenfolge auf die relevanten Informationen, z. B. der Benutzer-ID, dem Kennwort und der Datenquelle hin analysieren. Nachdem diese Informationen abgerufen sind, können Sie mit diesen eine ODBC-spezifische Verbindungszeichenfolge erstellen. Beachten Sie, dass die Datenverknüpfung nur ODBC-Datenquellennamen (DSNs) verwendet. Daher können Sie über die Datenverknüpfung keine Verbindung ohne DSN erstellen.

VERWEISE

Weitere Informationen erhalten Sie, wenn Sie auf eine der nachstehenden Artikelnummern klicken, um den entsprechenden Artikel in der Microsoft Knowledge Base anzuzeigen: Weitere allgemeine Informationen zu ADO.NET oder Visual Basic .NET finden Sie in den folgenden MSDN-Newsgroups:

Bitte beachten Sie: Bei diesem Artikel handelt es sich um eine Übersetzung aus dem Englischen. Es ist möglich, dass nachträgliche Änderungen bzw. Ergänzungen im englischen Originalartikel in dieser Übersetzung nicht berücksichtigt sind. Die in diesem Artikel enthaltenen Informationen basieren auf der/den englischsprachigen Produktversion(en). Die Richtigkeit dieser Informationen in Zusammenhang mit anderssprachigen Produktversionen wurde im Rahmen dieser Übersetzung nicht getestet. Microsoft stellt diese Informationen ohne Gewähr für Richtigkeit bzw. Funktionalität zur Verfügung und übernimmt auch keine Gewährleistung bezüglich der Vollständigkeit oder Richtigkeit der Übersetzung.