Ambil hasil kueri di Access menggunakan VBA.
Mengetahui cara membaca hasil dari kueri Microsoft Access dapat membantu Anda membuat aplikasi Access lebih dinamis. Access adalah bagian dari suite Microsoft Office dan digunakan untuk membuat database relasional. Visual Basic for Applications (VBA) dapat digunakan di Access untuk membuat aplikasi Windows dan mengambil data database. Sebuah query dibangun menggunakan pernyataan Structured Query Language (SQL) untuk meminta informasi dari database.
Langkah 1
Mulai Microsoft Office Access 2007 dan pilih "Blank Database," lalu klik "Create." Klik "Alat Basis Data" dan pilih "Visual Basic." Klik bidang "Sisipkan" dan pilih "Modul".
Video Hari Ini
Ketik "Private sub readQueryResults" dan tekan "Enter" untuk membuat subrutin baru.
Langkah 2
Ketik berikut ini untuk mendeklarasikan variabel yang akan Anda gunakan untuk membaca hasil kueri:
Redupkan RecordSt Sebagai Recordset Redupkan dBase Sebagai Database Redupkan stringSQL Sebagai String Redupkan rCnt Sebagai Integer
Langkah 3
Ketik berikut ini untuk membuat tabel "CityTbl":
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. RunSQL (stringSQL)
Langkah 4
Ketik berikut ini untuk menambahkan dua catatan baru ke tabel "CityTbl" Anda:
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([Kota], [Negara Bagian] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Langkah 5
Ketik yang berikut untuk menentukan kueri Anda dan buka Recordset Anda:
stringSQL = "PILIH CityTbl.* FROM CityTbl;" Atur RecordSt = dBase. OpenRecordset (stringSQL)
Langkah 6
Ketik berikut ini untuk membuat "For Loop" dan tampilkan hasil kueri Anda melalui kotak pesan:
RekamSt. MoveFirst Untuk rCnt = 0 Untuk RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. PindahBerikutnya Berikutnya rCnt
Tekan "F5" untuk menjalankan subrutin.
