I Visual Basic , objektet kobling og innebygging , tillater database ( OLE DB ) application programming interface du koble programmet til en database . Med det kan du lagre informasjon fra prosjektet til en tabell i databasen og bruke det i andre programmer . Du kan lage dine variabler hvor som helst i prosjektet , for eksempel fra tekstbokser , avmerkingsbokser eller listen valg , bare sørg for at variable datatype samsvarer med datatypen for feltet i databasen bord. Instruksjoner
en

Åpen Visual Basic og starte et nytt prosjekt . Åpne koden vinduet og opprette en funksjon ved å skrive " Private Sub AddRecord ( )"
2

Skriv inn følgende linjer for å lage variabler som vil koble til databasen : .

Dim dbCon som New OleDb.OleDbConnection

Dim datasett som ny datasett

Dim dataAdap som OleDb.OleDbDataAdapter

Dim SqlCommand As String

" dbCon " variable etablerer en tilkobling til databasen, " datasett " holder data fra det, " dataAdap " utfører kommandoer og samhandler med databasen , og " SqlCommand " holder dine spørsmål.
3

Koble til databasen med følgende linjer:

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

dbCon.Open ( )

Skift " path_to_database " del med den fysiske plasseringen av databasen på datamaskinen. Denne linjen kobler Visual Basic program til databasen og den andre linjen åpner databasen
4

Skriv inn følgende linjer å laste data fra databasen : .

SqlCommand = "SELECT * FROM tblContacts "

dataAdap = Ny OleDb.OleDbDataAdapter ( SqlCommand , dbCon )

dataAdap.Fill ( datasettet, " Database ")

Dine data adapter holder nå alle poster innenfor bordet ditt . Du kan bruke et annet navn enn " Database " for å bedre identifisere tabellen . For eksempel , hvis tabellen inneholder kontaktinformasjon, kan du kalle dette " Kontakter"
5

Lag følgende variabler : .

Dim comBuild som ny OleDb.OleDbCommandBuilder ( dataAdap )

Dim dataNewRow Som DataRow

Den første linjen validerer et innstikk kommandoen i bordet ditt når du bruker en DataRow . Den andre linjen skaper DataRow objektet
6

Skriv inn følgende linjer for å legge til en ny rad i tabellen i databasen og lagre variabler til felt i posten: .

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

dataNewRow.Item ( 1 ) = variable1

dataNewRow.Item ( 2 ) = variable2

dataNewRow.Item ( " FIELD_NAME ") = variable3

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

dataAdap.Update ( datasettet, " Database ")

den første linjen forbereder en ny rekord med tomme felt. De neste tre linjer legge til informasjon . De to første bruker indekstall i tabell felt og sette inn disse variabler i det første og andre felt i posten . Den tredje bruker feltet for å identifisere i hvilket felt du vil lagre den variabelen. Den femte og sjette linjene legge posten med variabler til bordet ditt og forplikte dataene
7

Skriv inn følgende linje for å lukke tilkoblingen til databasen : .

DbCon.Close ( )

Ring " AddRecord ( ) "-funksjonen andre steder i koden , for eksempel i en knapp klikk hendelsen.