Det er nyttig å vite hvordan man skal spørre en Microsoft Access database ved hjelp av en Data Source Name ( DSN ) gjennom en Open Database Connectivity ( ODBC ) tilkobling . Microsoft Access er en relasjonsdatabase program som vanligvis brukes for mindre databaser . Visual Basic.NET brukes ofte til å koble til en Access database. Programmerere krever vanligvis spørring en database innholdet for videre data manipulasjon . Ved hjelp av en DSN er praktisk fordi du kan manuelt oppdatere DSN til å peke til en annen database uten å måtte redigere Visual Basic-kode . Du trenger
System DSN forbindelse
Microsoft Access database
Microsoft Visual Basic 2010 Express
Vis flere instruksjoner
en

start Microsoft Visual Basic 2010 Express klikk på "File " og velg "New Project ... " . Klikk på "Windows Forms Applciation " og velg " OK ".

Dobbeltklikk på " Button" fra " Toolbox" menyen for å legge til en ny knapp " Form1 " . Dobbeltklikk på " Button1 " for å åpne " Form1.vb " . Type " Import System.Data.Odbc.OdbcConnection " i den aller første linjen i " Form1.vb " modulen.
2

Klikk i "Private Sub button1_click " og skriv inn følgende å erklære variabler og åpne DSN forbindelse : en

Dim loopCounter As Integer

Dim odbcConn Som Odbc.OdbcConnection

odbcConn = Ny Odbc.OdbcConnection ( " DSN = myDSN " )

odbcConn.Open ( )

Edit " DSN = myDSN " for å legge til din " DSN " name
3

Skriv inn følgende for å søke Access-databasen . :

Dim odbcDataAdapter som ny Odbc.OdbcDataAdapter ( "SELECT table1 * FROM Tabell 1 ; . " , odbcConn )

Dim odbcDataSet som ny Data.DataSet

odbcDataAdapter.Fill ( odbcDataSet )

Rediger "SELECT table1 * FROM Tabell 1 ; . " for å legge den aktuelle spørringen
4

Skriv inn følgende for å sløyfe gjennom spørringen og vise en meldingsboks med informasjon fra . første feltet : en

For loopCounter = 0 For å odbcDataSet.Tables ( 0 ) Rows.Count - en

MsgBox ( odbcDataSet.Tables ( 0 ) Rows ( loopCounter ) Item ( 0 ) . . . )

Neste
5

Skriv inn følgende for å frigjøre dine variabler fra minnet : en

odbcConn.Close ( )

odbcConn.Dispose ( )

odbcConn = Ingenting

Trykk " F5 " for å kjøre programmet og klikk " Button1 " .