Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " na ľavom paneli obrazovky . Double - kliknite na " Console Application . " Stlačte tlačidlo " Ctrl " a " , " a potom stlačte tlačidlo " Delete " pre vymazanie existujúci kód .
2
Skopírujte a vložte nasledujúci kód do vášho modulu " Module1.vb " . Kód bude pripojenie k databáze programu Microsoft Access , dotaz " TEST_CASE " a vložte jeho obsah do dátovej tabuľky . Kód potom zobrazí obsah tabuľky dát .
Dovoz System.Data.OleDb
Module Module1
Sub Main ( )
Dim connString as String = " Provider = microsoft.jet.oledb.4.0 ; Data Source = C : \\ testDatabase.mdb "
Dim myConnection ako OleDbConnection = New OleDbConnection
Dim da ako OleDbDataAdapter
Dim ds As DataSet
myConnection.ConnectionString = connString
da = New OleDbDataAdapter ( " SELECT TEST_CASE . * FROM TEST_CASE " , myConnection )
ds = new DataSet
da.Fill ( ds , " TEST_CASE " )
Dim dt Ako DataTable = ds.Tables ( " TEST_CASE " )
každý dtRow As DataRow V dt.Rows
každý sl As DataColumn V dt.Columns
Console.WriteLine ( dtRow ( col ) )
Ďalšie
Console.WriteLine ( " " . PadLeft ( 20 , " = " ) )
Ďalšie
myConnection.Close ( )
End Sub End Module
3
Upraviť nasledujúci riadok kódu a zadajte cestu k databáze programu Access :
Dim connString As String = " Provider = microsoft.jet.oledb.4.0 ; Data Source = C : \\ TestDatabase . mdb "
Stlačte " F5 " pre spustenie programu .