Avviare Microsoft Visual Basic 2010 Express , fare clic su "File" e selezionare " Nuovo progetto ... " . Clicca
doppio clic su " Pulsante " dal menu " Strumenti " per aggiungere un nuovo pulsante di " Form1 " " applciation Windows Form " e selezionare "OK ". . Fare doppio clic su " Button1 " per aprire " Form1.vb " . Tipo " Importazioni System.Data.Odbc.OdbcConnection " nella prima riga del modulo " Form1.vb " .
2
Clicca dentro " Private Sub Button1_Click " e digitare il seguente per dichiarare le variabili e aprire la connessione DSN :
Dim loopCounter As Integer Dim
odbcConn Come Odbc.OdbcConnection
odbcConn = New Odbc.OdbcConnection ( " DSN = myDSN " ) per
odbcConn.Open ( ) per
Modifica " DSN = myDSN " per aggiungere il tuo nome " DSN "
3
digitare quanto segue per interrogare il database di Access . :
Dim OdbcDataAdapter As New Odbc.OdbcDataAdapter ( "SELECT * FROM TABLE1 TABLE1 ; ». , odbcConn ) per
Dim odbcDataSet As New Data.DataSet
odbcDataAdapter.Fill ( odbcDataSet ) per
Modifica "SELECT * FROM TABLE1 TABLE1 ; ". aggiungere la query particolare
4
digitare quanto segue per un ciclo tra la query e visualizzare una finestra di messaggio con informazioni dal . primo campo :
loopCounter = 0 Per odbcDataSet.Tables ( 0 ) Rows.Count - 1
MsgBox ( odbcDataSet.Tables ( 0 ) Righe ( loopCounter ) Voce ( 0) . . . ) per
Successivo
5
digitare quanto segue per rilasciare le variabili dalla memoria :
odbcConn.Close ( ) per
odbcConn.Dispose ( )
odbcConn = Nothing
Premere " F5 " per eseguire il programma e fare clic su " Button1 " .
software © www.354353.com