lancio di accesso , fare clic su " Database vuoto " e cliccare sul pulsante "Crea " per creare un nuovo database . Fare clic sulla scheda "Database Tools " e cliccate su " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice
2
Digitare quanto segue per creare una nuova stored procedure : .
ProgramInAccess Private Sub ( )
Premere " Invio".
3
digitare quanto segue per creare le variabili :
Dim strSQL As String Dim
datastring come String
Dim myRst come Recordset
Dim myDbs Come Database
Dim rowCnt As Integer
myDbs = CurrentDb
4
Digitare il comando seguente per creare una nuova tabella nel database :
strSQL = " CREATE tABLE tableWithData ( TESTO cliente ( 25 ) , TESTO del prodotto ( 25 ) ) ;"
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) economici 5
digitare quanto segue per aggiungere una nuova riga di dati utilizzando l'oggetto " DoCmd " :
sqlstr = " INSERT INTO tableWithData ( [Customer ] , [ prodotto] ) "
sqlstr = sqlstr &" VALUES ( ' John' , 'Desktop '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) economici 6
Digitare quanto segue per aggiungere una seconda riga di dati alla tabella utilizzando un oggetto Recordset :
myRst = myDbs.OpenRecordset ( " tableWithData " )
myRst.AddNew
myRst.Fields ( " Cliente ") . Value = " Susan "
myRst.Fields ( " Prodotto ") . Value =" Laptop "
myRst.Update
myRst.Close
7
digitare la query seguente nuova tabella :
strSQL =" . SELEZIONA tableWithData * dA tableWithData ; "
8
digitare quanto segue per aprire la query utilizzando un oggetto Recordset e un ciclo tra il contenuto della tabella :
myRst = myDbs.OpenRecordset ( strSQL )
myRst.MoveFirst
rowCnt = 0 Per myRst.RecordCount
datastring = "Cliente : " . & myRst.Fields ( 0 ) Value & "
Programmazione © www.354353.com