Tutorial SQL VBA

Structured Query Language (SQL) adalah bahasa komputer yang digunakan untuk mengelola database relasional. Visual Basic for Applications (VBA) adalah bahasa pemrograman yang dikembangkan oleh Microsoft untuk digunakan dengan aplikasi Microsoft Office untuk membuat konten dinamis. Microsoft Access adalah program database di dalam suite Microsoft Office yang menggunakan SQL dan VBA untuk mengelola data dan menyediakan otomatisasi untuk fungsi database yang sistematis. Menggunakan shell pemrograman di belakang Microsoft Access, Anda dapat terhubung ke database utama, mencari data, menambahkan data baru dan menghapus data dengan menggabungkan kode pemrograman SQL dan VBA.

Langkah 1

Buka database yang ingin Anda gunakan di Microsoft Access. Buka Editor Visual Basic dengan mengklik tab "Database Tools" dan kemudian "Visual Basic."

Langkah 2

Klik "Sisipkan" dan kemudian "Modul" di Editor Visual Basic.

Langkah 3

Ketik kode untuk terhubung ke database. Anda harus membuat koneksi untuk menggunakan pernyataan SQL ke database.

SubSQLTutorial()

 'Atur variabel Anda untuk menyimpan informasi Dim Conn as ADODB.Connection 'Ini adalah koneksi aktual Dim rsSelect as 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 yang sebenarnya Dim strDeleteQuery as String' Ini akan menyimpan pernyataan SQL DELETE Dim strInsertQuery as String 'Ini adalah pernyataan SQL INSERT Dim strUpdateQuery as String' Ini akan menampung pernyataan UPDATE 'Ketikkan detail untuk menyambungkan ke database yang Anda inginkan Set Conn = New ADODB.Connection With Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Sumber Data=C:\Documents\SampleDatabase.mdb" .Open End With

Sekarang koneksi Anda ke database telah dibuat. Selanjutnya, Anda akan menetapkan pernyataan SQL ke variabel yang sudah Anda deklarasikan di atas.

Langkah 4

Ketik pernyataan SQL "SELECT" untuk memilih data dari database. Kueri SELECT biasanya dibuat seperti ini: "PILIH kolom DARI tabel". Anda dapat menambahkan kriteria ke pernyataan SELECT dengan menambahkan klausa "WHERE". Misalnya, Anda memiliki tabel bernama "Pelanggan" yang ingin Anda cari untuk semua pelanggan dengan nama belakang "Smith." Kode VBA dan SQL akan terlihat seperti ini:

strSelectQuery = "PILIH * FROM tblCustomers WHERE LastName = 'Smith'

Tanda asterisk(*) adalah wildcard, artinya Anda ingin menarik semua informasi, atau kolom, pada siapa pun dengan nama belakang "Smith." Untuk memilih kolom tertentu, Anda akan menggunakan:

strSelectQuery = "PILIH Nama Depan, Nama Belakang FROM tblCustomers WHERE LastName = 'Smith'"

Langkah 5

Ketik pernyataan "HAPUS" jika Anda ingin menghapus baris data dari tabel. Kode untuk itu adalah:

strDeleteQuery = "HAPUS DARI tblCustomers WHERE LastName = 'Smith'"

Pernyataan ini akan menghapus semua baris di mana pelanggan memiliki nama belakang "Smith" dari tabel "Pelanggan". Sintaks dasar untuk pernyataan DELETE adalah "DELETE FROM table WHERE column = 'value'."

Langkah 6

Ketikkan sintaks untuk menyisipkan baris baru ke dalam tabel. Gunakan pernyataan "INSERT".

strInsertQuery = "INSERT INTO tblCustomers VALUES (John, Smith, 123 Main Street, Cleveland, Ohio)"

Jika Anda memiliki tabel Pelanggan yang memiliki kolom Nama Depan, Nama Belakang, Alamat, Kota dan Negara Bagian, pernyataan ini akan menyisipkan data ke kolom kanan. Koma memberitahu kode untuk melompat ke kolom berikutnya sebelum memasukkan nilai. Pastikan Anda mengetikkan nilai dalam urutan kolom yang benar dalam tabel sehingga data Anda konsisten.

Langkah 7

Ketik pernyataan SQL untuk mengubah baris data. Ini adalah pernyataan "PERBARUI".

strUpdateQuery = "PERBARUI tblCustomers SET LastName='Jones', First WHERE LastName='Smith'"

Pernyataan ini mengubah setiap orang yang memiliki nama belakang "Smith" menjadi "Jones" dan nama depan mereka menjadi "Jim." Anda dapat mengubah beberapa kolom data sekaligus dalam satu pernyataan UPDATE dengan memisahkan kolom dengan koma. Sintaks dasar untuk UPDATE adalah "PERBARUI tabel SET kolom1=nilai1, kolom2=nilai2, kolom3=nilai3,... WHERE kolom = nilai."

Ketik kode VBA yang akan menjalankan kueri dan simpan hasilnya ke kumpulan rekaman. Tutup kode VBA.

Atur rsSelect = New ADODB.Recordset

Dengan rsSelect

       Setel .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strSelectQuery .Open

Berakhir dengan

Setel rsDelete = ADODB.Recordset Baru

Dengan rsDelete

       Setel .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strDeleteQuery .Open

Berakhir dengan

Setel rsInsert = ADODB.Recordset Baru

Dengan rsInsert

       Setel .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strInsertQuery .Open

Berakhir dengan

Setel rsUpdate = ADODB.Recordset Baru

Dengan rsDelect

       Setel .ActiveConnection = Conn .CursorType = adOpenStatic .Source = strUpdateQuery .Open

Berakhir dengan

'Ketik kode VBA untuk melakukan pekerjaan dengan data yang telah Anda kumpulkan melalui Pernyataan SQL.

'Anda bisa menggunakan data untuk memposting di formulir, di tabel lain, atau di laporan.

'Tutup recordset dan koneksi dengan Anda selesai

rsPilih.Tutup

rsHapus.Tutup

rsSisipkan.Tutup

rsUpdate.Tutup

Akhir Sub