Det er nyttigt at vide, hvordan at forespørge en Microsoft Access-database ved hjælp af en Data Source Name ( DSN ) gennem en Open Database Connectivity ( ODBC) -forbindelse. Microsoft Access er en relationel database program, der er almindeligt anvendt til mindre databaser . Visuel Basic.NET er ofte bruges til at oprette forbindelse til en Access-database . Programmører kræver normalt søge i en database indhold for yderligere data manipulation. Ved hjælp af en DSN er praktisk, fordi du manuelt kan opdatere DSN at pege på en anden database uden at skulle redigere din Visual Basic-kode . Ting du skal
System DSN forbindelse
Microsoft Access-database
Microsoft Visual Basic 2010 Express
Vis Flere Instruktioner
1
Start Microsoft Visual Basic 2010 Express , klik på " File" og vælg " Nyt projekt ... " . Klik på " Windows Forms Applciation " og vælg " OK".
Dobbeltklik på " Button " fra "Toolbox "-menuen til at tilføje en ny knap til " Form1 " . Dobbeltklik på " Button1 " for at åbne " Form1.vb " . Type " Import System.Data.Odbc.OdbcConnection " i allerførste linje af " Form1.vb "-modulet .
2
Klik inde i " Private Sub Button1_Click " og skriv følgende at erklære dine variabler og åbne din DSN forbindelse : Hej
Dim loopCounter As Integer
Dim odbcConn Som Odbc.OdbcConnection
odbcConn = Ny Odbc.OdbcConnection ( " DSN = myDSN " )
odbcConn.Open ()
Edit " DSN = myDSN " for at tilføje din " DSN " navn
3
Skriv følgende for at forespørge din Access-database. : Salg
Dim odbcDataAdapter Som ny Odbc.OdbcDataAdapter ( "SELECT TABEL1 * FROM TABEL1 , . " odbcConn )
Dim odbcDataSet Som New Data.DataSet
odbcDataAdapter.Fill ( odbcDataSet )
Edit " SELECT TABEL1 * FROM TABEL1 , ". at tilføje din bestemt forespørgsel
4
Skriv følgende at sløjfe gennem din forespørgsel og vise en meddelelse boks med oplysninger fra . første felt : Hej
loopCounter = 0 Til odbcDataSet.Tables (0) Rækker - 1
MsgBox ( odbcDataSet.Tables (0) Rækker ( loopCounter ) Item (0) . . . )
Næste
5
Skriv følgende for at frigøre dine variabler fra hukommelsen : Hej
odbcConn.Close ()
odbcConn.Dispose ()
odbcConn = Nothing
Tryk på " F5 " for at køre dit program og klik på " Button1 " .