Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2
Copia e incolla il seguente codice VBA nel modulo :
getRecordCnt Private Sub ( ) per
dim rst come Recordset
dim db As Database dim
sqlstr As String
sqlstr = " CREATE TABLE CityInfo ( TESTO Città ( 25 ) , TESTO Stato ( 25) ) ; "
DoCmd.RunSQL ( sqlstr ) per
sqlstr =" INSERT INTO CityInfo ( [Città ], [ Stato ]) "
sqlstr = sqlstr &" VALUES (' Arlington ',' Texas '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr =" INSERT INTO CityInfo ( [ Città ] , [ Stato ] ) "
sqlstr = sqlstr &" VALUES (' Watauga ', ' Texas '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr = "SELECT * FROM CityInfo CityInfo ; ».
Set rst = db.OpenRecordset ( sqlstr ) per
rst.MoveFirst
rst.MoveLast
MsgBox rst.RecordCount
End Sub
3
Premere " F5 " per eseguire la subroutine . Il codice crea una nuova tabella , aggiungere record ad esso , e aprire una serie di record.
Programmazione © www.354353.com