To. indoprog
tolong pencerahannya, bagaimana cara menjalankan stored procedure pada MySQL
dgn VB6, saya udah googling tapi belum dapat materinya, mungkin rekan2x ada
yang pernah buat. saya dapat di googling seperti ini tapi tidak berjalan mulus.
berikut codingnya... hasil dari googling ( tapi masih error, parameter tidak
boleh lebih dari 2).
kalau ada contoh projectnya bisa email ke saya.
Terima kasih sebelumnya.
'Tambahkan variable global pada form
Private sqlConn As Object
Private sqlCmd As Object
Private sqlParam As Object
Private sqlStream As Object
Dim strConn As String
'Berikut untuk setting koneksi dengan database MySQL menggunakan ODBC dan MySQL
ODBC Connector
'Berikut adalah code untuk membaca BLOB ari database dan menampilkannya pada
Image control
Private Function GetData() As Boolean
Dim ErrGet As String
On Error GoTo ErrGet
Dim rst As Object
GetData = False
'Untuk execute data dari MySQL procedure
'ConKlinik.Open
Set rst = CreateObject("ADODB.Recordset")
Set sqlCmd = CreateObject("ADODB.Command")
Set Param = CreateObject("ADODB.Parameter")
sqlCmd.CommandType = adCmdStoredProc
sqlCmd.CommandText = "pegawai_p"
Set Param = sqlCmd.CreateParameter("pchProc ", adChar, adParamInput, 1, "R")
sqlCmd.Parameters.Append Param
'Misalkan ingin menampilkan foto untuk pegawai dengan no id = 1
Set Param = sqlCmd.CreateParameter("pinIdPegawai", adInteger, adParamInput, , 1)
sqlCmd.Parameters.Append Param
Set Param = sqlCmd.CreateParameter("pvcNama ", adVarChar, adParamInput, , "")
sqlCmd.Parameters.Append Param
Set Param = sqlCmd.CreateParameter("pmbFoto", adBinary, adParamInput, 200000,
"")
sqlCmd.Parameters.Append Param
sqlCmd.ActiveConnection = sqlConn
'On Error GoTo err:
'Masukan hasil SELECT ke Recordset rst
Set rst.DataSource = sqlCmd.Execute
If Not rst.EOF Then
'Gunakan ADODB.Stream sebagai media untuk menampilkan datanya dari binary ke
Image Control
Set sqlStream = CreateObject("ADODB.Stream")
sqlStream.Type = adTypeBinary
sqlStream.Open
'Load isi field foto dari Recordset ke ADODB.Stream
sqlStream.Write rst.Collect("foto")
'Buat file sementara untuk menyimpan hasil gambar yang dibentuk oleh
ADODB.Stream
sqlStream.SaveToFile App.Path & "\foto.tmp", adSaveCreateOverWrite
'Lalu lakukan load gambar dari file sementara ke Image Control
Image1.Picture = LoadPicture(App.Path & "\foto.tmp")
'Hapus kembali file sementaranya
Kill App.Path & "\foto.tmp"
Else
'Jika tidak ada se8t Image Control dengan nilai kosong
Image1.Picture = Nothing
End If
GetData = True
sqlConn.Close
Exit Function
ErrGet:
Debug.Print err.Number & err.Description
'MsgBox "Refresh Data gagal", vbExclamation, "Konfirmasi"
'sqlConn.Close
End Function
'Berikut function untuk save data dari ADODB.Stream ke MySQL
Private Function SaveData() As Boolean
SaveData = False
'ConKlinik.Open
Set sqlCmd = CreateObject("ADODB.Command")
Set Param = CreateObject("ADODB.Parameter")
sqlCmd.CommandType = adCmdStoredProc
sqlCmd.CommandText = "pegawai_p"
Set Param = sqlCmd.CreateParameter("pchProc ", adChar, adParamInput, 1, "R")
sqlCmd.Parameters.Append Param
'Misalkan ingin menampilkan foto untuk pegawai dengan no id = 1
Set Param = sqlCmd.CreateParameter("pinIdPegawai", adInteger, adParamInput, , 1)
sqlCmd.Parameters.Append Param
Set Param = sqlCmd.CreateParameter("pvcNama ", adVarChar, adParamInput, , "")
sqlCmd.Parameters.Append Param
Set Param = sqlCmd.CreateParameter("pmbFoto", adBinary, adParamInput, 200000,
sqlStream.Read)
sqlCmd.Parameters.Append Param
sqlCmd.ActiveConnection = sqlConn
sqlCmd.Execute
SaveData = True
sqlConn.Close
Exit Function
err:
MsgBox "Save Data gagal", vbExclamation, "Konfirmasi"
sqlConn.Close
End Function
Private Sub Command1_Click()
'Gunakan CommonDialog, Button, dan Image untuk menampilkan gambarnya dari file
'Berikut Contoh perintah pada CommandButton untuk browse image
On Error GoTo err:
With CommonDialog1
DefaultExt = ".jpg"
DialogTitle = "Browse Foto"
Filter = "JPEG|*.JPG|Bitmap|*.BMP|All Files|*.*"
.FilterIndex = 1
.CancelError = True
.Flags = FileOpenConstants.cdlOFNHideReadOnly + _
FileOpenConstants.cdlOFNCreatePrompt + _
FileOpenConstants.cdlOFNOverwritePrompt
.InitDir = "C:\"
.ShowOpen
Set sqlStream = CreateObject("ADODB.Stream")
sqlStream.Type = adTypeBinary
sqlStream.Open
sqlStream.LoadFromFile .Filename
If sqlStream.State = adStateOpen Then
Image1.Picture = LoadPicture(.Filename)
End If
End With
err:
EXIT
End Sub
Private Sub Form_Load()
'Dim StrConx As String
'StrConx = "DRIVER={MySQL ODBC 5.1
Driver};SERVER=localhost;DATABASE=coba;UID=root;PWD=;OPTION=16427"
'strConn = StrConx '"DRIVER={MySQL ODBC 3.51
Driver};SERVER=localhost;DATABASE=coba;UID=root;PWD="
'Set sqlConn = CreateObject("ADODB.Connection")
'sqlConn = GetConnection
'sqlConn.CursorLocation = adUseClient
If MySQLConnection Then
If Not ConKlinik.State = adStateOpen Then
MsgBox "" '& errorx, vbExclamation, "Err"
LoginSucceeded = False
Else
LoginSucceeded = True
End If
Else
MsgBox "Conenction failed" & vbCrLf & "Please Try again " & _
vbCrLf & err.Number & " : " & err.Description, vbInformation, "~oo~ IT
Pluit"
End If
End Sub
Private Sub GetDatax_Click()
GetData
End Sub
Private Sub SaveDatax_Click()
SaveData
End Sub
