Avviare Microsoft Visual Basic Express e fare clic su " Nuovo progetto ... " nel riquadro di sinistra del vostro schermo . Fare doppio clic su " Applicazione console . " Premere il tasto " Ctrl " e "A ", quindi premere "Elimina" per rimuovere il codice esistente.
2
Copia e incolla il seguente codice al modulo " Module1.vb " . Il codice farà la connessione al database ed eseguire query su una tabella tramite una query di selezione . I risultati della query per il primo campo vengono visualizzati nella finestra di output .
Importazioni System.Data.Odbc.OdbcConnection
Module Module1
Sub Main ( ) per
Dim xCntr As Integer Dim
dbConn Come Odbc.OdbcConnection
dbConn = New Odbc.OdbcConnection ( " DSN = TRA3 " ) per
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 Per ds.Tables ( 0 ) Rows.Count . - = Nothing End Sub
End Module
3
modificare la seguente riga di codice e digitare il nome del DSN .
dbConn = New Odbc.OdbcConnection ( " DSN = TRA3 " ) per
modificare la seguente riga di codice e digitare la query di selezione che si desidera eseguire .
Dim da As New Odbc.OdbcDataAdapter ( "SELECT * FROM UNIT_DATA UNIT_DATA ; ». , dbConn ) economici 4
Premere " F5 " per eseguire il programma
.
Programmazione © www.354353.com