Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office .
2
Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fare clic sul campo "Inserisci" e selezionare "Modulo ".
3
Digitare quanto segue per creare un nuovo sottoprogramma :
cellArrayToString Private Sub ( ) per
Premere il tasto " Enter ".
4
Digitare quanto segue per creare nuove variabili :
Dim strSQL As String
Dim db As Database
dim rst come Recordset
dim cellIntArray ( 3) As Integer
dim X As Integer
dim Stringa As String
Set db = CurrentDb
5
digitare quanto segue per creare una nuova tabella e aggiungere tre nuovi record :
strSQL = " CREATE tABLE tblData ( Id_Num Number ) ;"
DoCmd.SetWarnings false
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO tblData VALUES ( 0); "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO tblData ( 1 ) ; "
DoCmd.RunSQL ( strSQL ) per
strSQL =" INSERT INTO tblData VALUES ( 2) ; "
DoCmd.RunSQL ( strSQL ) economici 6
Digitare quanto segue per aprire un nuovo Recordset e interrogare tutti i dati dalla " tblData " : .
Set rst = db.OpenRecordset ( "Select * from tblData tblData ; " ) per
rst.MoveLast
rst.MoveFirst
7
digitare quanto segue per scorrere tutti i record e aggiungerle alla matrice Integer :
per x = 0 Per rst.RecordCount - . 1
cellIntArray ( X) = rst.Fields ( 0 ) Valore
rst.MoveNext
Avanti X
Pagina 8
digitare quanto segue per convertire la matrice di celle intero in una stringa variabile :
For X = 0 To 2
stringa = myString & cellIntArray ( X ) e ","
Avanti X
9
digitare quanto segue per visualizzare il contenuto della variabile " myString " attraverso una finestra di messaggio :
MsgBox
myString
Digitare quanto segue per rilasciare le variabili dalla memoria :
rst.Close
db.Close
Programmazione © www.354353.com