Gewusst wie: Herstellen einer Verbindung mit Access in VB6

Programmiersprache Visual Basic 6 (VB6) verwendet den Microsoft Jet Object Linking and Embedding Database (OLE DB) Provider Systemmodul für die Verbindung mit einer Access-Datenbank. Sie können Verbindungen zu Datenquellen aus innerhalb der Anwendung mithilfe von Datenverbindungsobjekte in VB6-Programmen erstellen. Indem die ConnectionString-Eigenschaft des OleDbConnection-Objekts können Sie die Verbindung zu einer Access-Datenbank öffnen. Wenn Sie eine Verbindung zwischen einer Anwendung und die Access-Datenbank herstellen, können Sie aktualisieren Daten, drucken oder Vorschau eines Access-Berichts und ein Access-Formulars in VB6-Anwendungen anzeigen.

Anweisungen

1 Klicken Sie in Windows auf "Start" und dann auf "Microsoft Visual Studio."

2 Wählen Sie "Datei" und "Öffnen" und doppelklicken Sie dann auf Visual Basic-Programm, in dem Sie Ihre Access-Datenbank herstellen möchten.

3 Geben Sie den folgenden Code nach der Zeile "Public Shared Main()" der "Orders" Access-Datenbank herstellen und legen Sie einen neuen Auftrag:

Public Sub ConnectToAccess()

Dim conn As New System.Data.OleDb.OleDbConnection()

Dim insert_rec As SqlCommand

"ändern Sie die Verbindungszeichenfolge

conn.ConnectionString = & _

"Provider=Microsoft.Jet.OLEDB.12.0;Data Quelle =" & _

"C:\Documents and Settings\username\My Documents\dbFile.mdb"

Try

conn.Open()

' SQL-Anweisung zum Hinzufügen von Daten einfügen.

insert_rec = New SqlCommand("INSERT INTO Orders (Product

ID, Produktname, Preis, Einheiten, Lage) Werte ('36127',

"Circular Achse', '250.95', 50, 'Warehouse', conn)

' die Verbindung für Störungen zu überwachen

Catch ex As Exception

MessageBox.Show("Failed to connect to data source")

conn.Close()

End Try

EndSub