Det är bra att veta hur man fråga en Microsoft Access-databas med hjälp av en Data Source Name ( DSN ) genom en Open Database Connectivity ( ODBC ) -anslutning . Microsoft Access är en relationsdatabas program som ofta används för mindre databaser . Visual Basic.NET används ofta för att ansluta till en Access-databas . Programmerare kräver vanligtvis frågas innehåll i databasen för ytterligare data manipulation . Använda en DSN är praktiskt eftersom du kan manuellt uppdatera DSN att peka på en annan databas utan att behöva redigera din Visual Basic-kod . Saker du behöver
System DSN anslutning
Microsoft Access-databas
Microsoft Visual Basic 2010 Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic 2010 Express klicka på " File " och välj " Nytt projekt ... " . Klicka på " Windows Forms applciation " och välj " OK ".
Dubbelklicka på " Button " från menyn "Verktyg" för att lägga till en ny knapp " Form1 " . Dubbelklicka på " Button1 " för att öppna " Form1.vb " . Typ " Import System.Data.Odbc.OdbcConnection " i den allra första raden i " Form1.vb " modul .
2
Klicka inuti " Private Sub Button1_Click " och skriv följande för att deklarera dina variabler och öppna din DSN anslutning :
Dim loopCounter As Integer
Dim odbcConn Som Odbc.OdbcConnection
odbcConn = Ny Odbc.OdbcConnection ( " DSN = myDSN " ) katalog
odbcConn.Open ( ) katalog
Redigera " DSN = myDSN " för att lägga till din " DSN " namn
3
Skriv följande för att fråga din Access-databas . :
Dim odbcDataAdapter Som Nytt Odbc.OdbcDataAdapter ( " SELECT table1 * FROM Tabell1 , . " , odbcConn ) katalog
Dim odbcDataSet Som ny Data.DataSet
odbcDataAdapter.Fill ( odbcDataSet ) katalog
Redigera " SELECT Tabell1 * FROM Tabell1 , . " för att lägga till din fråga
4
Skriv följande för att loopa igenom din fråga och visa en meddelanderuta med information från . första fältet :
För loopCounter = 0 Till odbcDataSet.Tables ( 0 ) Rows.Count - 1
MsgBox ( odbcDataSet.Tables ( 0 ) Rows ( loopCounter ) Artikelnummer ( 0 ) . . . ) katalog
Nästa
5
Skriv följande för att frigöra dina variabler från minnet :
odbcConn.Close ( ) katalog
odbcConn.Dispose ( )
odbcConn = Nothing
Tryck " F5 " för att köra programmet och klicka på " Button1 " .
