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 " a stlačte tlačidlo " Delete " odstrániť existujúci kód .
2
Skopírujte a vložte nasledujúci kód do modulu " Module1.vb " . Kód bude pripojenie k databáze a dotaz na tabuľku pomocou výberového dotazu. Výsledky dotazu na prvé pole sa zobrazí v okne výstupu .
Dovoz System.Data.Odbc.OdbcConnection
Module Module1
Sub Main ( )
Dim xCntr As Integer
Dim dbConn Ako Odbc.OdbcConnection
dbConn = New Odbc.OdbcConnection ( " DSN = TRA3 " )
dbConn.Open ( )
Dim da As New Odbc.OdbcDataAdapter ( " SELECT * FROM UNIT_DATA UNIT_DATA ; . " , dbConn )
Dim ds As New Data.DataSet
da.Fill ( ds )
xCntr = 0 K ds.Tables ( 0 ) Rows.Count . - = Nothing
End Sub End Module
3
Upraviť nasledujúci riadok kódu a zadajte názov DSN .
< P > dbConn = New Odbc.OdbcConnection ( " DSN = TRA3 " )
Upraviť nasledujúci riadok kódu a zadajte výberový dotaz , ktorý chcete spustiť .
Dim da As New Odbc.OdbcDataAdapter ( " SELECT * FROM UNIT_DATA UNIT_DATA ; . " . , dbConn )
4
Stlačte " F5 " pre spustenie programu