I Visual Basic , objektet länkning och inbäddning , gör databas ( OLE DB ) programmeringsgränssnitt du ansluta ditt program till en databas . Med den kan du spara information från ditt projekt till en tabell i databasen och återanvända den i andra program . Du kan skapa dina variabler som helst i ditt projekt , såsom från textrutor , kryssrutor eller val listan , se bara till att din variabel datatyp matchar datatypen för fältet i databasen bord . Instruktioner
1
Öppna Visual Basic och starta ett nytt projekt . Öppna koden fönstret och skapa en funktion genom att skriva " Private Sub AddRecord ( ) "
2
Skriv följande rader för att skapa variabler som kommer att ansluta till din databas : .
Dim dbCon som ny OleDb.OleDbConnection
Dim dataSet som ny dataSet
Dim dataAdap som OleDb.OleDbDataAdapter
Dim SqlCommand As String
" dbCon " variabel etablerar en anslutning till databasen " dataset " innehåller data från det , " dataAdap " kör kommandon och interagerar med databasen , och " SqlCommand " håller dina frågor .
3
Anslut till din databas med följande rader :
dbCon.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 , Data Source = path_to_database "
dbCon.Open ( ) katalog
Byt ut " path_to_database " delen med den fysiska placeringen av din databas på din dator . Denna linje kopplar ditt Visual Basic-program för din databas och den andra raden öppnar databasen
4
Skriv följande rader att läsa in data från din databas : .
SqlCommand = " SELECT * FROM tblContacts "
dataAdap = Ny OleDb.OleDbDataAdapter ( SqlCommand , dbCon ) katalog
dataAdap.Fill ( dataSet , " Databas " ) katalog
Dina uppgifter adapter håller nu alla poster inom ditt bord . Du kan använda ett annat namn än " Database " för att bättre identifiera ditt bord . Till exempel , om tabellen innehåller kontaktuppgifter , kan du namnge denna " Kontakter "
5
Skapa följande variabler : .
Dim comBuild Som New OleDb.OleDbCommandBuilder ( dataAdap )
Dim dataNewRow Som DataRow
första raden validerar en insats kommando i tabellen när du använder ett DataRow . Den andra raden skapar DataRow objektet
6
Skriv följande rader för att lägga till en ny rad i tabellen i databasen och spara dina variabler till fält i posten : .
DataNewRow = dataSet.Tables ( "Databas" ) . NewRow ( ) katalog
dataNewRow.Item ( 1 ) = variable1
dataNewRow.Item ( 2 ) = variabel2
dataNewRow.Item ( " FIELD_NAME " ) = variable3
dataSet.Tables ( " Databas " ) . Rows.Add ( dataNewRow ) katalog
dataAdap.Update ( dataSet , " Databas " ) katalog
den första raden förbereder ett nytt rekord med tomma fält . De kommande tre rader till information. De två första använder indextalen för tabellfält och infoga dessa variabler i den första och andra fält i posten . Den tredje använder fältet namn för att identifiera i vilka fält för att lagra den variabeln . Den femte och sjätte raderna lägger till posten med dina variabler till ditt bord och begå data
7
Skriv följande rad för att stänga anslutningen till databasen : .
DbCon.Close ( ) katalog
Ring din " AddRecord ( ) " -funktion på andra håll i koden , till exempel i en knapp klick händelse . Addera
