In Visual Basic, die Object Linking and Embedding ermöglicht Datenbank (OLE DB) Application Programming Interface Sie Ihr Programm mit einer Datenbank verbinden . Mit ihm können Sie Informationen von Ihrem Projekt zu speichern , um eine Tabelle in Ihrer Datenbank und Wiederverwendung es in anderen Anwendungen. Sie können Ihre Variablen überall in Ihrem Projekt zu erstellen , wie von Textfeldern , Kontrollkästchen oder Auswahl -Liste , so stellen Sie sicher, dass Ihre Variable Datentyp entspricht dem Datentyp des Feldes in der Datenbank die Tabelle . Anleitung
1

Öffnen Sie Visual Basic und starten ein neues Projekt. Öffnen Sie den Code-Fenster und eine Funktion durch Eingabe von " Private Sub AddRecord ()"
2

Geben Sie die folgenden Zeilen in Variablen, die Verbindung zu Ihrer Datenbank erstellt : .

Dim DBCON As New OleDb.OleDbConnection

Dim As New DataSet dataSet

Dim dataAdap wie OleDb.OleDbDataAdapter

Dim sqlCommand As String

" DBCON " variable gründet eine Verbindung zu Ihrer Datenbank , " dataSet " hält Daten von ihm , " dataAdap " Befehle ausführt und interagiert mit der Datenbank und " sqlCommand " hält Ihre Fragen.
3

Verbindung zu Ihrer Datenbank mit den folgenden Zeilen :

dbCon.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = path_to_database "

dbCon.Open ()

Ersetzen der " path_to_database "-Teil mit dem physischen Speicherort der Datenbank auf Ihrem Computer . Diese Linie verbindet Ihre Visual Basic-Programm , um Ihre Datenbank und die zweite Zeile öffnet die Datenbank
4

Geben Sie die folgenden Zeilen , um die Daten aus der Datenbank zu laden: .

SqlCommand = "SELECT * FROM tblContacts "

dataAdap = New OleDb.OleDbDataAdapter ( sqlCommand , DBCON )

dataAdap.Fill ( dataSet ," Datenbank " )

Ihre Daten Adapter hält nun alle Datensätze in Ihrer Tabelle . Sie können einen anderen Namen als "Datenbank" besser zu identifizieren Ihren Tisch. Zum Beispiel, wenn Sie Ihre Tabelle enthält Kontaktinformationen, können Sie nennen diese "Kontakte"
5

Erstellen Sie die folgenden Variablen : .

Dim As New comBuild OleDb.OleDbCommandBuilder ( dataAdap )

Dim dataNewRow Wie DataRow

Die erste Zeile überprüft ein insert-Befehl in Ihre Tabelle bei Verwendung eines DataRow . Die zweite Zeile erzeugt das DataRow-Objekt
6

Geben Sie die folgenden Zeilen in eine neue Zeile in der Tabelle in Ihrer Datenbank hinzufügen und speichern Sie Ihre Variablen Felder im Datensatz : .

DataNewRow = dataSet.Tables ( "Datenbank" ) . NewRow ()

dataNewRow.Item (1) = variable1

dataNewRow.Item (2) = variable2

dataNewRow.Item ( " field_name " ) = Variable3

dataSet.Tables ( "Datenbank" ) . Rows.Add ( dataNewRow )

dataAdap.Update ( dataSet , "Datenbank " )

Die erste Zeile erstellt einen neuen Datensatz mit leeren Feldern . Die nächsten drei Zeilen Informationen hinzufügen . Die ersten beiden mit den Indexzahlen der Tabelle Felder und setzen diese Variablen in der ersten und zweiten Felder im Datensatz . Die dritte nutzt den Namen des Feldes in dem Feld, um die Variable zu speichern identifizieren. Die fünfte und sechste Zeilen fügen Sie den Datensatz mit Ihrer Variablen auf den Tisch und verpflichten die Daten
7

Geben Sie die folgende Zeile, um die Verbindung zu Ihrer Datenbank zu schließen : .

DbCon.Close ()

Rufen Sie Ihren " AddRecord () "-Funktion anderer Stelle im Code , wie in einer Schaltfläche Click-Ereignis .