Modifikasi Data dengan Prepared Statement

Modifikasi Data dengan Prepared Statement

Modifikasi Data dengan Prepared Statement

Modifikasi Data dengan Prepared Statement

Prepared statement dapat juga kita gunakan untuk melakukan modifikasi terhadap data, INSERT, UPDATE dan DELETE Statement.

Sekarang marilah kita lihat contoh penggunaan INSERT dengan prepared statement:

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

‘Insert Statement for Tabel Barang
strSQL = “INSERT INTO Barang(”
strSQL = strSQL & “KodeBarang, ”
strSQL = strSQL & “NamaBarang, ”
strSQL = strSQL & “Harga ”
strSQL = strSQL & “) VALUES (?, ?, ?)”

With mcmdAdd
.CommandText = strSQL
.Prepared = True
.CommandType = adCmdText

Set oParam = .CreateParameter(“KodeBarang”, adInteger, adParamInput, 4)
.Parameters.Append oParam

Set oParam = .CreateParameter(“NamaBarang”, adChar, adParamInput, 100)
.Parameters.Append oParam

Set oParam = .CreateParameter(“Harga”, adCurrency, adParamInput, 8)
.Parameters.Append oParam

Set .ActiveConnection = goLogin.Connection
End With
End Sub

‘—————- END OF CODE ———————————–
Didalam procedure CmdAddBuild() diatas dapat kita lihat statement INSERT dengan beberapa tanda tanya (?). Kita harus membuat satu buah tanda tanya untuk setiap parameter yang akan kita masukkan. Untuk setiap parameter, kita harus menspesifikasikan nama, datatype, ukuran data dan jenis input/output parameter tersebut.

Sedangkan untuk melakukan UPDATE data, kita akan membuat procedure yang hampir sama seperti statment INSERT:

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

‘Update Statement for Tabel Barang
strSQL = “UPDATE Barang SET ”
strSQL = strSQL & “NamaBarang = ?, ”
strSQL = strSQL & “Harga = ? ”
strSQL = strSQL & “WHERE KodeBarang = ?”

With mcmdUpdate
.CommandText = strSQL
.Prepared = True
.CommandType = adCmdText

Set oParam = .CreateParameter(“NamaBarang”, adChar, adParamInput, 100)
.Parameters.Append oParam

Set oParam = .CreateParameter(“Harga”, adCurrency, adParamInput, 8)
.Parameters.Append oParam

Set oParam = .CreateParameter(“KodeBarang”, adInteger, adParamInput, 4)
.Parameters.Append oParam

Set .ActiveConnection = goLogin.Connection
End With
End Sub

‘—————- END OF CODE ———————————–

Untuk menyimpan data menggunakan command object-command object diatas, maka kita harus mengisi setiap nilai parameter yang terdapat didalam procedure diatas, seperti:

Private Function FormAdd() As Boolean
Dim lngRecords As Long

On Error GoTo Error_EH

If mcmdAdd.CommandText = “” Then
Call CmdAddBuild
End IF

With mcmdAdd
.Parameters(“KodeBarang”) = 12345
.Parameters(“NamaBarang”) = “Buku Komputer”
.Parameters(“Harga”) = 125000

.Execute lngRecords
If lngRecords = 0 Then
Msgbox “Error adding record!”
FormAdd = False
Else
FormAdd = True
End If
End With

Exit Function

Error_EH:
FormAdd = False
MsgBox goLogin.ErrorHandler
Exit Function
End Function

Baca Juga :