Tutorial SQL dan VBA di Microsoft Access

Tutorial SQL dan VBA di Microsoft Access

Structured Query Language (SQL) adalah bahasa komputer yang digunakan untuk mengelola database relasional. Visual Basic for Applications (VBA) adalah bahasa pemrograman yang dikembangkan Microsoft untuk digunakan dengan aplikasi Microsoft Office, memungkinkan pembuatan konten dinamis. Microsoft Access, program database dalam paket Office, memanfaatkan kedua bahasa ini untuk mengelola data dan mengotomatisasi fungsi database.

Dengan menggunakan shell pemrograman di balik Microsoft Access, Anda dapat terhubung ke database utama, mencari, menambah, atau menghapus data dengan menggabungkan kode SQL dan VBA.

Langkah 1: Buka Database

Mulailah dengan membuka database yang akan Anda kerjakan di Microsoft Access. Buka Visual Basic Editor dengan menekan tab Database Tools lalu pilih Visual Basic.

Langkah 2: Tambah Modul

Di Visual Basic Editor, pilih menu Insert → Module untuk membuat modul baru.

Langkah 3: Koneksi ke Database

Masukkan kode berikut untuk membuat koneksi ke database. Pastikan referensi Microsoft ActiveX Data Objects Library sudah diaktifkan.

Sub SQLTutorial()
    'Deklarasi variabel
    Dim Conn As ADODB.Connection
    Dim rsSelect As ADODB.Recordset
    Dim rsDelete As ADODB.Recordset
    Dim rsInsert As ADODB.Recordset
    Dim rsUpdate As ADODB.Recordset
    Dim strSelectQuery As String
    Dim strDeleteQuery As String
    Dim strInsertQuery As String
    Dim strUpdateQuery As String

    'Buat koneksi
    Set Conn = New ADODB.Connection
    With Conn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents\SampleDatabase.mdb"
        .Open
    End With

Langkah 4: Menulis Query SELECT

Contoh query SELECT untuk mengambil semua pelanggan dengan nama belakang "Smith":

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

Jika hanya kolom tertentu yang diinginkan:

strSelectQuery = "SELECT FirstName, LastName FROM tblCustomers WHERE LastName = 'Smith'"

Langkah 5: Menulis Query DELETE

strDeleteQuery = "DELETE FROM tblCustomers WHERE LastName = 'Smith'"

Langkah 6: Menulis Query INSERT

strInsertQuery = "INSERT INTO tblCustomers (FirstName, LastName, Address, City, State) " & _
                 "VALUES ('John', 'Smith', '123 Main Street', 'Cleveland', 'Ohio')"

Langkah 7: Menulis Query UPDATE

strUpdateQuery = "UPDATE tblCustomers SET LastName='Jones', FirstName='Jim' " & _
                 "WHERE LastName='Smith'"

Eksekusi Query dan Kelola Recordset

    'Eksekusi SELECT
    Set rsSelect = New ADODB.Recordset
    With rsSelect
        .ActiveConnection = Conn
        .CursorType = adOpenStatic
        .Source = strSelectQuery
        .Open
    End With

    'Eksekusi DELETE
    Set rsDelete = New ADODB.Recordset
    With rsDelete
        .ActiveConnection = Conn
        .CursorType = adOpenStatic
        .Source = strDeleteQuery
        .Open
    End With

    'Eksekusi INSERT
    Set rsInsert = New ADODB.Recordset
    With rsInsert
        .ActiveConnection = Conn
        .CursorType = adOpenStatic
        .Source = strInsertQuery
        .Open
    End With

    'Eksekusi UPDATE
    Set rsUpdate = New ADODB.Recordset
    With rsUpdate
        .ActiveConnection = Conn
        .CursorType = adOpenStatic
        .Source = strUpdateQuery
        .Open
    End With

    'Lakukan pekerjaan tambahan (misal menampilkan data di form atau laporan)

    'Tutup recordset dan koneksi
    rsSelect.Close
    rsDelete.Close
    rsInsert.Close
    rsUpdate.Close
    Conn.Close
End Sub

Dengan mengikuti langkah-langkah di atas, Anda dapat mengelola database Access menggunakan kombinasi SQL dan VBA secara efektif.