Tutorial SQL VBA

Structured Query Language (SQL) adalah bahasa komputer yang digunakan untuk menguruskan pangkalan data hubungan. Visual Basic for Applications (VBA) adalah bahasa pengaturcaraan yang dikembangkan oleh Microsoft untuk digunakan dengan aplikasi Microsoft Office untuk membuat konten dinamis. Microsoft Access adalah program pangkalan data di dalam suite Microsoft Office yang menggunakan SQL dan VBA untuk mengurus data dan menyediakan automasi ke fungsi pangkalan data yang sistematik. Menggunakan shell pengaturcaraan di belakang Microsoft Access, anda boleh menyambung ke pangkalan data utama, cari data, tambah data baru dan hapus data dengan menggabungkan kod pengaturcaraan SQL dan VBA.

Langkah 1

Buka pangkalan data yang ingin anda bekerjasama di Microsoft Access. Buka Editor Visual Basic dengan mengklik tab "Alat Pangkalan Data" dan kemudian "Visual Basic."

Langkah 2

Klik "Insert" dan kemudian "Module" di Visual Basic Editor.

Langkah 3

Taipkan kod untuk menyambung ke pangkalan data. Anda perlu membuat sambungan untuk menggunakan pernyataan SQL ke pangkalan data. Sub SQLTutorial () 'Sediakan pemboleh ubah anda untuk menyimpan maklumat Dim Conn sebagai ADODB.Connection' Ini adalah sambungan sebenar Dim rsPilih sebagai ADODB.Recordset 'Di sinilah anda akan menyimpan data Dim rsDelete as ADODB.Recordset Dim rsInsert as ADODB .Recordset Dim rsUpdate as ADODB.Recordset Dim strSelectQuery as String 'Ini adalah perintah SQL SELECT sebenarnya Dim strDeleteQuery as String' Ini akan menyimpan pernyataan SQL DELETE Dim strInsertQuery as String 'Ini adalah pernyataan SQL INSERT Dim strUpdateQuery sebagai String' tahan pernyataan UPDATE 'Taipkan butiran untuk menyambung ke pangkalan data yang anda mahukan Tetapkan Conn =ADODB Baru. Sambungan Dengan Conn .ConnectionString ="Penyedia =Microsoft.Jet.OLEDB.4.0;" &_ "Sumber Data =C:\ Documents \ SampleDatabase.mdb". Buka Akhir Dengan Sekarang, sambungan anda ke pangkalan data telah dibuat. Seterusnya, anda akan memberikan pernyataan SQL kepada pemboleh ubah yang telah anda nyatakan di atas.

Langkah 4

Ketik pernyataan SQL "PILIH" untuk memilih data dari pangkalan data. Pertanyaan SELECT biasanya dibuat seperti ini:"PILIH lajur DARI jadual". Anda boleh menambahkan kriteria ke pernyataan SELECT dengan menambahkan dalam klausa "DI MANA". Contohnya, anda mempunyai jadual yang disebut "Pelanggan" yang ingin anda cari untuk semua pelanggan dengan nama belakang "Smith." Kod VBA dan SQL akan kelihatan seperti ini:strSelectQuery ="SELECT * FROM tblCustomers WHERE LastName ='Smith' Asterisk (*) adalah wildcard, bermaksud bahawa anda ingin menarik semua maklumat, atau lajur, pada sesiapa sahaja dengan nama belakang "Smith." Untuk memilih lajur tertentu, anda akan menggunakan:strSelectQuery ="SELECT FirstName, LastName DARI tblCustomer DI MANA LastName ='Smith' "

Langkah 5

Taipkan pernyataan "DELETE" jika anda ingin menghapus baris data dari jadual. Kod untuk itu adalah:strDeleteQuery ="DELETE FROM tblCustomers WHERE LastName ='Smith'" Pernyataan ini akan menghapus semua baris di mana pelanggan mempunyai nama belakang "Smith" dari jadual "Pelanggan". Sintaks asas untuk pernyataan DELETE adalah "DELETE FROM table WHERE column ='value'."

Langkah 6

Taipkan sintaks untuk memasukkan baris baru ke dalam jadual. Gunakan pernyataan "INSERT". strInsertQuery ="MASUKKAN KE Tbl NILAI Pelanggan (John, Smith, Jalan Utama 123, Cleveland, Ohio) "Sekiranya anda mempunyai jadual Pelanggan yang mempunyai FirstName, Nama terakhir, Alamat, Lajur Bandar dan Negeri, pernyataan ini akan memasukkan data ke lajur kanan. Koma memberitahu kod untuk melangkau ke lajur berikutnya sebelum memasukkan nilai. Pastikan bahawa anda mengetik nilai dengan susunan lajur yang betul dalam jadual agar data anda konsisten.

Langkah 7

Taipkan pernyataan SQL untuk mengubah deretan data. Ini adalah pernyataan "KEMASKINI". strUpdateQuery ="UPDATE tblCustomers SET LastName ='Jones', FirstName ="Jim" WHERE LastName ='Smith' "Pernyataan ini mengubah semua orang yang mempunyai nama belakang" Smith "menjadi" Jones "dan nama depan mereka menjadi" Jim. "Anda boleh menukar beberapa lajur data sekaligus dalam satu UPDATE pernyataan dengan memisahkan lajur dengan koma. Sintaks asas untuk KEMASKINI adalah "UPDATE table SET column1 =value1, lajur2 =nilai2, lajur3 =nilai3, ... DI MANA lajur =nilai. "

Taipkan kod VBA yang akan menjalankan pertanyaan dan menyimpan hasilnya ke set rekod. Tutup kod VBA. Tetapkan rsSelect =New ADODB.Recordset Dengan rsSelect Set .ActiveConnection =Conn .CursorType =adOpenStatic .Source =strSelectQuery. Open End With Set rsDelete =New ADODB.Recordset With rsDelete Set .ActiveConnection =Conn .CuSororType =Connector .Centeror. Tamat Dengan Set rsInsert =Baru ADODB.Recordset Dengan set rsInsert .ActiveConnection =Conn .CursorType =adOpenStatic .Source =strInsertQuery. Open End With Set rsUpdate =New ADODB.Recordset With rsDelect Set .ActiveConnection =Connector.Cuatan =Connection. Connector =Connection. . Buka Akhir Dengan 'Taipkan kod VBA untuk berfungsi dengan data yang telah anda kumpulkan melalui Penyataan SQL. 'Anda boleh menggunakan data untuk menghantar dalam bentuk, dalam jadual lain atau dalam laporan. 'Tutup set rekod dan hubungan dengan anda selesai rsSelect.Close rsDelete.Close rsInsert.Close rsUpdate.Close End Sub