Preluați rezultatele interogării în Access folosind VBA.
Știind cum să citiți rezultatele dintr-o interogare Microsoft Access vă poate ajuta să faceți aplicația Access mai dinamică. Access face parte din suita Microsoft Office și este folosit pentru a crea baze de date relaționale. Visual Basic pentru aplicații (VBA) poate fi utilizat în Access pentru a crea aplicații Windows și a prelua datele bazei de date. O interogare este construită folosind instrucțiuni SQL (Structured Query Language) pentru a solicita informații dintr-o bază de date.
Pasul 1
Porniți Microsoft Office Access 2007 și selectați „Bază de date goală”, apoi faceți clic pe „Creare”. Faceți clic pe „Instrumente pentru baze de date” și selectați „Visual Basic”. Faceți clic pe câmpul „Inserare” și selectați „Modul”.
Videoclipul zilei
Tastați „Private sub readQueryResults” și apăsați „Enter” pentru a crea o nouă subrutină.
Pasul 2
Introduceți următoarele pentru a declara variabilele pe care le veți folosi pentru a citi rezultatele interogării:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Pasul 3
Introduceți următoarele pentru a crea tabelul „CityTbl”:
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. RunSQL (stringSQL)
Pasul 4
Introduceți următoarele pentru a adăuga două înregistrări noi la tabelul „CityTbl”:
stringSQL = "INSERT INTO CityTbl ([Oraș], [State] ) " stringSQL = stringSQL și „VALORI ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([Oraș], [Stat] ) " stringSQL = stringSQL și „VALORI ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Pasul 5
Introduceți următoarele pentru a vă defini interogarea și deschideți setul de înregistrări:
stringSQL = "SELECTARE CityTbl.* FROM CityTbl;" Set RecordSt = dBase. OpenRecordset (stringSQL)
Pasul 6
Tastați următoarele pentru a crea un „For Loop” și pentru a afișa rezultatele interogării printr-o casetă de mesaj:
RecordSt. MoveFirst Pentru rCnt = 0 To RecordSt. RecordCount MsgBox (Câmpuri RecordSt. ("City").Value & ", " & RecordSt. Câmpuri ("State").Value) RecordSt. MoveNext Următorul rCnt
Apăsați „F5” pentru a executa subrutina.
