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

Sumber : https://fascinasiansblog.com/