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
Copia e incolla il seguente codice nel nuovo modulo per visualizzare il nome e il numero di telefono di business nella tabella "Cliente" :
private Sub customerQuery ( ) per
Dim strSQL As String Dim
custRst come Recordset
Dim dbs As Database Dim
rstCntr As Integer Dim
custStr As String
Set dbs = CurrentDb
strSQL = " SELECT Customers . [ Nome ] , "
strSQL = strSQL & "I clienti [Business Phone ] ".
strSQL = strSQL & "FROM clienti; "
custRst = dbs.OpenRecordset ( strSQL ) per
custRst.MoveLast
custRst.MoveFirst
rstCntr = 0 Per custRst.RecordCount - 1
custStr = custStr & custRst.Fields ( 0 ) Value & _
"è. un cliente e il loro telefono business è "& custRst.Fields ( 1) . Value & vbCr
custRst.MoveNext
Avanti rstCntr
MsgBox custStr
custRst.Close
dbs.Close
End Sub
4
Eseguire il sottoprogramma con il tasto " F5 ".
Programmazione © www.354353.com