I Visual Basic , objektet og integrering , database (OLE DB) application programming interface kan du tilslutte dit program til en database. Med det, kan du gemme oplysninger fra dit projekt til en tabel i din database og genbruge det i andre programmer. Du kan oprette dine variabler som helst i dit projekt, såsom fra tekstbokse , afkrydsningsfelter eller lister valg , bare sørg for din variable datatype matcher datatype for feltet i din database bord. Instruktioner
1

Open Visual Basic og starte et nyt projekt . Åbn koden vinduet og oprette en funktion ved at skrive " Private Sub AddRecord ()"
2

skrive følgende linjer for at oprette variabler , der vil forbinde til din database : .

Dim dbCon som New OleDb.OleDbConnection

Dim datasættet New dataSet

Dim dataAdap som OleDb.OleDbDataAdapter

Dim SqlCommand As String

" dbCon " variable etablerer en forbindelse til din database , " datasæt " holder data fra det, " dataAdap " udfører kommandoer og interagerer med databasen, og " SqlCommand " holder dine spørgsmål.
3

Forbind til din database med følgende linjer :

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

dbCon.Open ()

Udskift " path_to_database " del med den fysiske placering af din database på din computer. Denne linje forbinder din Visual Basic-program til din database og den anden linie åbner databasen
4

skrive følgende linjer at indlæse data fra din database: .

SqlCommand = " SELECT * FROM tblContacts "

dataAdap = Ny OleDb.OleDbDataAdapter ( SqlCommand , dbCon )

dataAdap.Fill ( datasæt , " Database " )

Dine data adapter nu besidder alle de poster i din tabel . Du kan bruge et andet navn end " Database " for bedre at identificere dit bord. For eksempel, hvis dit bord holder kontaktoplysninger kan du navngive denne " Kontaktpersoner"
5

Opret følgende variable: .

Dim comBuild Da New OleDb.OleDbCommandBuilder ( dataAdap ) < br >

Dim dataNewRow Som DataRow

Den første linje validerer et indstik kommando i dit bord , når du bruger en DataRow . Den anden linje skaber DataRow objekt
6

skrive følgende linjer til at tilføje en ny række til tabellen i din database og gemme dine variabler til felter i posten : .

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

dataNewRow.Item (1) = variabel1

dataNewRow.Item (2) = variabel2

dataNewRow.Item ( " FIELD_NAME " ) = variabel3

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

dataAdap.Update ( datasæt , " Database " )

den første linje forbereder en ny rekord med tomme felter. De næste tre linier tilføje oplysninger . De to første bruge indekset antal tabelfelter og indsætte disse variabler ind i den første og anden felter i posten . Den tredje bruger feltet navn for at identificere , hvor feltet for at gemme denne variabel. Det femte og sjette linjer føje posten med dine variabler til dit bord og forpligte data
7

Skriv følgende linje for at lukke forbindelsen til din database : .

DbCon.Close ()

Ring til din " AddRecord ()" funktionen andetsteds i din kode , som i en knap klik begivenhed.