Menyimpan gambar ke dalam database MySQL dengan VB 6.0

Artikel sebenarnya banyak di Internet, Cuma saya ketik ulang

Pertama buat database dan tabelnya di MySQL contoh

Create database dbanggota;
use dbanggota;

Create anggota(NO int primary key, Nama varchar(25), Alamat Varchar(40), Foto LongBlob);


buka VB, buat Project

'~~~~~~~ General ~~~~~~
Dim con as new ADODB.Connection
Dim Rs as new ADODB.Recordset

'~~~~~~ Load ~~~~~~~

if con.state=adstateClosed then
Con.Open "DSN=MyDSN"
else
Con.Close
Con.Open "DSN=MyDSN"
End If

'~~~~~~~~ Simpan ~~~~~~~
dim gb as ADODB.Stream
gb.Type=AdTypeBinary
gb.Open

rs.Open "Select * from anggota where no='" & Text1 & "'",Con,adOpenStatic,adLockOptimistic

if Not Rs.eof Then
  MsgBox "Data Sudah Ada!",64,"Info"
Else
  Rs.AddNew
  rs!no=Text1
  rs!nama=text2
  rs!alamat=text3
  gb.LoadFromFile ("D:\Foto1.Jpg")
  rs("Foto").Value=gb.Read
  rs.Update
End If
set gb=Nothing

Selamat Mencoba
 
End If