. Den Kern aller von Visual Basic.Net ' s Datenzugriffsmethoden liegt ADO.Net . Diese Daten -Access-Technologie wurde im Original. Net Framework freigegeben. Es verbindet mit vielen Datenbank -Servern, einschließlich Microsoft Access , bietet mehr Flexibilität und bietet eine starke Fehlerbehandlung. Verbindung mit Microsoft Access kann durch die Schaffung einer einfachen Konsole -Anwendung, die auflistet aus einer Kontaktdatenbank dargestellt werden. Anleitung
1
Öffnen Sie Microsoft Access (2000 oder später ) und erstellen Sie eine neue Datenbank namens Kontakte . Erstellen Sie eine Tabelle tblContacts und fügen Sie zwei Textfelder , Vorname und Nachname . Geben Sie ein paar Namen in der Tabelle , und schließen Sie Access.
2
Öffnen Sie Visual Basic.Net (alle Versionen) und erstellen Sie eine neue Konsole-Anwendung . Fügen Sie die folgende Zeile vor dem Module-Anweisung
Einfuhren System.Data.OleDb
Module Module1
OleDb Namespace bietet Verweise auf die Datenbank Access Objects .
< Br > Seite 3
Fügen Sie die folgende Zeile vor der Module-Anweisung
Einfuhren System.Data.OleDb
Module Module1
OleDb Namespace enthält Verweise auf die Datenbank . Zugang Objekte
4
Legen Sie eine Verbindungszeichenfolge nach dem Moduldeklaration
Privat connString As String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = d: . \\ contacts.mdb ; "
die Verbindungszeichenfolge beschreibt, wie OleDb mit der Datenbank zu kommunizieren. Tthis Beispiel wird die Microsoft ACE -Provider mit dem Access
Datenbank kommunizieren d : \\ contacts.mdb . Ändern Sie den Speicherort für die Datenbank, die Sie in Schritt 1 erstellt haben.
5
Kopieren Sie den folgenden Code in die Main-Methode aufgeführt reflektieren. Beginnen Sie, indem Sie die Variable deklarieren searchString , die den SQL-Befehl , um die Daten auszuwählen enthält .
Sub Main () Dim
searchString As String = "Select Vorname, Nachname Von tblContacts "
< p> searchString & = " Sortieren nach Nachname, Vorname "; .
6
Stellen Sie eine Verbindung zum Access -Datenbank mit dem Objekt OleDbConnection
Dim conn As New OleDbConnection
< p> Versuchen
conn.ConnectionString = connString
conn.Open ()
Fang ex As Exception
Console.WriteLine (" Kann die Datenbank nicht öffnen " )
Console.WriteLine ( ex.Message )
Return
End Try
Immer strukturierte Ausnahmen ( try /catch ) zu fangen und Bericht Fehler, die durch die Data Access Objects geworfen .
7
Befehl Erstellen und Datenadapterobjekte und nutzen sie , um die Suchergebnisse in einem neuen DataSet-Struktur abzurufen.
Dim ds As New DataSet
Versuchen
Dim cmd As New OleDbCommand ( searchString , conn)
cmd.CommandType = CommandType.Text
Dim dap As New OleDbDataAdapter
< p> cmd = dap.SelectCommand
dap.Fill (ds)
Fang ex As Exception
Console.WriteLine (" Kann nicht ausführen Suche Versuchen
8
Schleife durch die Reihen der Datensatz die Felder Vorname und Nachname abzurufen. Seit den Zugriff auf einen Nullwert eine Ausnahme verursacht , immer Test für NULL-Werte vor dem Abrufen ihnen .
Console.WriteLine ( "Kontakte :").
für jede Zeile als DataRow In ds.Tables (0 ) Zeilen
Wenn row.IsNull ( " Vorname " ) = False Then
Console.Write (Zeile ( " Vorname ") & "") End If
Wenn row.IsNull ( " Name " ) = True Wenn
Weiter
WriteLine ( " Gefunden " & ds.Tables (0) . Rows.Count.ToString & " Kontakte " )
End Sub
