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 .