Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto" nel riquadro sinistro dello schermo del computer . Fare clic su " Visual Basic " sotto " Modelli installati " e fare clic su "Applicazione Windows Form ". Fare clic su " OK ".
2 Fare doppio clic su " ListBox " nel riquadro " Casella degli strumenti " per aggiungere un nuovo controllo casella di riepilogo al form. Fare doppio clic su "Pulsante" nel riquadro " Casella degli strumenti " per aggiungere un nuovo pulsante .
3
doppio clic su " Button1 " per aprire il modulo " Form1.vb " . Digitare il seguente sopra " Public Class Form1 " per dichiarare il namespace :
Imports System.Data.OleDb
4
Digitare il seguente sotto " Button1_Click " per dichiarare le variabili :
Dim oleDBConn Come OleDbConnection
Dim strSQL As String Dim
DImpostare Come DataSet
5
digitare quanto segue per definire la stringa di query SQL e definire il connessione al database Northwind :
strSQL = " . Prodotti SELECT * FROM Prodotti ; "
oleDBConn = New OleDbConnection _
( "Provider = Microsoft.ACE.OLEDB . 12.0 ; Data Source = C : \\ Northwind 2007.accdb ; " ) per
modificare la seguente riga di codice , e digitare il percorso e il nome del database di Access :
( " Provider = Microsoft . ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb ; " ) economici 6
digitare quanto segue per effettuare la connessione e per riempire il DataSet con i dati della tabella Prodotti :
Dim makeConn Come OleDbConnection = New OleDbConnection
Dim dataAptr Come OleDbDataAdapter
dataAptr = New OleDbDataAdapter ( strSQL , oleDBConn ) per
DImpostare = New DataSet
dataAptr.Fill ( DImpostare , "Prodotti" ) economici 7
digitare quanto segue per accedere alle colonne di DataSet e aggiungere le informazioni di colonna per il controllo casella di riepilogo :
For Each myRows in dSet.Tables ("Prodotti " ) . Righe
Me.ListBox1.Items.Add ( myRows ( "Codice prodotto") . ToString ) per
Me.ListBox1.Items.Add ( myRows ( " Nome del prodotto " ) ToString ) per
Successivo
8
digitare quanto segue per chiudere il collegamento : .
makeConn.Close ( ) per
Premere il tasto " F5 " per eseguire il programma e fare clic su " Button1 " per eseguire il codice .
Programmazione © www.354353.com