sebagai contoh kita buat tabel dengan script berikut:
CREATE TABLE `Gambar` (
`id` varchar(10) NOT NULL ,
`gambar` longblob ALOW NULL ,
PRIMARY KEY (`id`)
)
;
setelah berhasil kita lanjutkan dengan pembuatan form di visual basic, desainnya kurang lebih seperti berikut:
Dari form tersebut kita sisipkan 1 buah IMAGE, 1 buah Commondialog dan 2 buah Button.
kita beralih ke view kode atau tampilan bahasa program dan langkah pertama dalam view kode kita deklarasikan variabel-variabel yang kita butuhkan. diantaranya:
Public Cn As New ADODB.Connection
Public Foto As New ADODB.Stream
Public rs As New ADODB.Recordset
Public strSql As String
setelah deklarasi variabel tersebut kita mulai dengan koneksi yang kurang lebih sbb:
Public Sub BukaDB()
With Cn
If .State = adStateOpen Then Cn.Close
.CursorLocation = adUseClient
.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=NamaServer;PWD=password;UID=root;PORT=3306;DATABASE=NamaDatabase;option=3;"
.Open
If Cn.State = adStateOpen Then
Else
MsgBox "Koneksi ke database error, hubungi administrator !"
End If
End With
End Sub
untuk tulisan yang berwarna merah silahkan ganti sesuai dengan nama server sesuai dengan komputer masing-masing dan database sesuai dengan yang telah dibuat.
untuk listing program tombol Browse adalah sbb:
Private Sub cmdbrowse_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Image1.Stretch = True
End Sub
untuk tombol simpan listing programnya sbb;
kita contohkan nama tabelnya adalah tabel "Gambar"
Private Sub Command1_Click()
strSql = "Insert Into Gambar Values("1",Null)"
Cn.Execute strSql
strSql = "SELECT * FROM Gambar WHERE id="1""
Set rs = New ADODB.recordset
rs.CursorLocation = adUseClient
rs.Open strSql, Cn, adOpenDynamic, adLockOptimistic
Set Foto = New ADODB.Stream
Foto.Type = adTypeBinary
Foto.Open
Foto.LoadFromFile CommonDialog1.FileName
rs!Gambar = Foto.Read
Foto.Close
rs.Update
Set rs = Nothing
exit sub
Private Sub Form_Load()
Call BukaDB
End Sub
Demikian cara menyimpan gambar kedalam database MySQL dengan menggunakan bahasa pemrograman Visual basic 6.0
Semoga bermanfaat.
gabisa dicopy ya mas hehe
ReplyDeletegabisa dicopy ya mas hehe
ReplyDelete