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 "Cancella " per cancellare il codice esistente.
2
Copia e incolla il seguente codice nel modulo " Module1.vb " . Il codice esegue una connessione a un database di Microsoft Access , la query " TEST_CASE " ed inserire il contenuto in una tabella di dati . Il codice verrà quindi visualizzare il contenuto della tabella di dati .
Imports System.Data.OleDb
Module Module1
Sub Main ( ) per
Dim connString As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C : \\ testDatabase.mdb "
Dim myConnection come OleDbConnection = New OleDbConnection
Dim da quanto OleDbDataAdapter
Dim ds As DataSet
myConnection.ConnectionString = connString
da = New OleDbDataAdapter ( "SELECT TEST_CASE . * FROM TEST_CASE " , myConnection ) per
ds = New DataSet
da.Fill ( ds , " TEST_CASE " ) per
Dim dt come DataTable = ds.Tables ( " TEST_CASE " ) per
Ogni dtRow come DataRow In dt.Rows
Per Ogni Col Come DataColumn In dt.Columns
Console.WriteLine ( dtRow ( col) ) per
Successivo
Console.WriteLine ( " " . PadLeft ( 20 , " =" ) ) per
Successivo
myConnection.Close ( ) per
End Sub End Module
3
modificare la seguente riga di codice e digitare il percorso del database di Access :
Dim connString As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C : \\ TestDatabase . mdb "
Premere" F5 " per eseguire il programma .
Programmazione © www.354353.com