Avviare Microsoft Visual Basic Express , fare clic su " Nuovo progetto " a sinistra pannello dello schermo e poi selezionare " Applicazione Windows Form ". Fare clic su "OK".
2 Fare doppio clic su "Pulsante" nel riquadro Casella degli strumenti per aggiungere un nuovo controllo pulsante . Fare doppio clic su " DataGridView " per aggiungere un nuovo controllo della griglia . . Doppio clic su " Button1 " per aprire il modulo Form1.vb
Digitare quanto segue nella prima riga del modulo :
Imports System.Data.OleDb
3
Digitare il seguente sotto la procedura " Button1_Click " per dichiarare le variabili :
Dim oleC Come OleDbConnection
sSQL fioco come stringa
Dim DataSet come DataSet
Dim newClmn Come DataColumn
4
digitare quanto segue per interrogare la tabella dal database di Access Northwind : .
sSQL = " SELECT * FROM ordini ordini ; "
oleC = New OleDbConnection _
( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb ; ")
Edit la seguente riga di codice e digitare il percorso e il nome del database di Access :
Source = C : \\ Northwind 2007.accdb
5
digitare quanto segue per creare e aprire la connessione :
Dim newOleConn Come OleDbConnection = New OleDbConnection
Dim da quanto OleDbDataAdapter
da = New OleDbDataAdapter ( sSQL , oleC ) per
dataSet = New DataSet
Pagina 6
digitare quanto segue per riempire il set di dati :
da.Fill ( DataSet , "Ordini " ) economici 7
digitare quanto segue per creare la nuova colonna calcolata e aggiungerla alla Data Grid View controllo :
newClmn = New DataColumn ( " CostoTotale " , GetType ( doppio ) ) per
newClmn.Expression = " [ Tassa di spedizione ] * 2 "
dataSet.Tables ( " ordini " ) . Columns.Add ( newClmn ) per
Me.DataGridView1.DataSource = dataSet.Tables ( " ordini " ) per
newOleConn.Close ( ) economici 8
Premere " F5 " per eseguire il programma. Fare clic su " Button1 " per riempire la griglia Visualizza controllo Data .
Programmazione © www.354353.com