Tutorial SQL VBA

Tutorial SQL VBA

Structured Query Language (SQL) ialah bahasa komputer yang digunakan untuk mengurus pangkalan data hubungan. Visual Basic for Applications (VBA) ialah bahasa pengaturcaraan Microsoft yang direka untuk berinteraksi dengan aplikasi Microsoft Office bagi menghasilkan kandungan dinamik. Microsoft Access, program pangkalan data dalam suite Microsoft Office, menggunakan SQL dan VBA untuk menyimpan, mencari, menambah dan memadam data serta mengautomatikkan fungsi sistem pangkalan data.

Langkah 1

Buka pangkalan data yang anda ingin gunakan di Microsoft Access. Klik tab Database Tools dan pilih Visual Basic untuk membuka Editor Visual Basic.

Langkah 2

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

Langkah 3

Masukkan kod berikut untuk mewujudkan sambungan ke pangkalan data:

Sub SQLTutorial()
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

Set Conn = New ADODB.Connection
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents\SampleDatabase.mdb;" .Open
End With
'Sambungan siap. Seterusnya, tetapkan arahan SQL.
End Sub

Langkah 4

Masukkan arahan SELECT untuk mendapatkan data. Contoh:

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

Untuk memilih kolum tertentu:

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

Langkah 5

Masukkan arahan DELETE untuk memadam baris:

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

Langkah 6

Masukkan arahan INSERT untuk menambah baris baru:

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

Langkah 7

Masukkan arahan UPDATE untuk mengubah data:

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

Menjalankan Arahan dan Menyimpan Keputusan

Masukkan kod VBA berikut untuk mengeksekusi arahan dan menyimpan hasil ke dalam Recordset:

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

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

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

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

'Gunakan rekod yang dikumpul untuk dipaparkan di borang, jadual atau laporan.
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
Conn.Close
End Sub

Penutup

Dengan menggabungkan SQL dan VBA dalam Microsoft Access, anda dapat memanipulasi data secara automatik dan lebih efisien. Pastikan nama jadual, kolum, dan nilai yang dimasukkan betul agar tidak menjejaskan integriti pangkalan data.