Cara Penggunaan Prepared Statement

Cara Penggunaan Prepared Statement

Cara Penggunaan Prepared Statement

Cara Penggunaan Prepared Statement
Cara Penggunaan Prepared Statement

Sekarang mari kita coba untuk mempelajari penggunaan prepared statement didalam aplikasi yang akan kita kembangkan.

Sebagai contoh kita akan mengambil data dari tabel <Barang> dengan kriteria Kode_Barang = 1234

‘Initialisasi Variabel pada awal form coding
Option Explicit

Dim oRS As Recordset
Dim mcmdFind As ADODB.Command

‘Command button untuk mengambil data barang
Private Sub cmdShowBarang_Click()
‘Periksa status Recordset
If oRS.State = adStateOpen Then
oRS.Close
End If

‘Panggil prosedur untuk membentuk parameter prepared statement (pertama kali)
If mcmdFind.CommandText = “” Then
Call CmdFindBuild
End If

‘Bound Recordset dengan informasi yang didapat dari prepared statement
With mcmdFind
.Parameters(“KodeBarang”) = txtKodeBarang.Text
Set oRS = .Execute
End With

‘Menampilkan nama barang
If oRS.EOF Then
MsgBox “Data tidak ada”
Else
txtNama.Text = oRS!Nama_Barang
End If
End Sub

Private Sub CmdFindBuild()
Dim strSQL As String
Dim oParam As ADODB.Parameter

‘membentukl statement SQL
strSQL = “SELECT Nama_Barang FROM Barang ”
strSQL = “WHERE Kode_Barang = ?”

‘building prepared statement
With mcmdFind
.CommandText = strSQL
.Prepared = True
.CommandType = adCmdText
Set oParam = .CreateParameter(“KodeBarang”, adInteger, adParamInput, 4)
.Parameters.Append oParam
Set .ActiveConnection = goLogin.Connection
End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
oRS.Close
Set mcmdFind = Nothing
End Sub
‘—————- END OF CODE ———————————–
Untuk membuat suatu prepared statement, kita cukup membuat sebuah statement SQL biasa dengan satu atau beberapa parameter, kemudian mengirimkannya ke database melalui properti CommandText pada objek Command. Kita juga harus men-setting property ActiveConnection ke objek Connection yang sedang aktif dan property Prepared = True untuk menggunakan prepared statement.

Parameter dibentuk dengan menggunakan tanda “tanya” (?) untuk kriteria yang kita inginkan. Pada contoh listing diatas kita tanda tanya (?) berfungsi untuk menggantikan nilai Kode_Barang yang akan kita cari.
Untuk menggantikan parameter (?) pada statment SELECT, kita menggunakan koleksi Parameters untuk mengisi nilai yang kita inginkan. Parameter dimulai dari 0 dan bertambah 1 (satu) untuk setiap tanda tanya (?) yang dijumpai didalam SQL Statement. Jika kita menggunakan metode CreateParameter() maka kita dapat menentukan nama parameter yang kita pakai dibandingkan nilai dari posisinya.

Sumber : http://blog.umy.ac.id/teknologiku/airport-city-apk/