Upload Photo Dan kemudian Menyimpannya ke acces pada VB 6

Assalamualaikum

Pagi ini cerah, sesuai dengan moodku. Saya harap teman-teman juga merasakan hal yang sama. Soalnya tanpa mood yang bagus dijamin belajar siang malam juga ndag bakal masuk apalagi paham.

Progam yang nanti saya bikin, sesuai permintaan kakak saya harus ada browse photo. Dan saya hanya jawab " OKE, ndag masalah". Padahal pass dikasih tahu mengenai hal itu saya pun belum pernah belajar cara browse poto sebelumnya.

sebelum ingin upload photo,

• Langkah Pertama : Buat terlebih dahulu database  dengan nama sesuai yang diinginkan, untuk database yang bikin   namanya Pegawai.mdb menggunakan Microsoft acces 2007. Untuk nama tabelnya adalah tbGambar. Hasilnya seperti ini

gambar: Tabel Database

• Langkah Kedua : Buat Rancangan Form vb 6.0seperti  dibawah iniada satu label, satu textbox dengan nama txtnama, dua command button satu dengan nama cmdsimpan satunya lagi dengan nama cmdupload, satu frame, satu image dengan nama image1 atur properti stretch jadi true, satu commondialog dengan nama cdi. Commondialog didapat dengan cara : Pilih project, pilih Component, Kemudian centang pilihan Microsoft Common Dialog 6.0 lalu tambahkan pada form

         

Gambar : Rancangan Form 

• Langkah Ketiga:  Kita buat listing kodenya sebelumnya kita buat modul terlebih dahulu dengan isi sebagai berikut:

Public koneksi As New ADODB.Connection

Public recordset As New ADODB.recordset

Public Function konekin()

strkonek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database\database_pegawai.mdb"

If koneksi.State = adStateOpen Then

koneksi.Close

Set koneksi = New ADODB.Connection

koneksi.Open strkonek

Else

koneksi.Open strkonek

End If

End Function

Kemudian klik ganda pada form kemudian ketikkan listing

Private Sub Form_Load()

konekin

koneksi.CursorLocation = adUseClient

End Sub

 Klik ganda pada command Button Upload Photo lalu ketikkan koding dibawah ini:

'untuk menampilkan photo di form

Private Sub cmdupload_Click()

cdi.Filter = "Picture FileS(*.jpg;*.bmp;)|*.jpg;*.bmp;"

cdi.ShowOpen

Image1.Picture = LoadPicture(cdi.FileName)

Image1.Visible = True

End Sub

Klik ganda pada commnad button simpan lalu ketikkan koding :

Private Sub cmdsimpan_Click()

Set recordset = koneksi.Execute("insert into tbGambar values('" & txtnama.Text & "','" & cdi.FileName & "')")

End Sub

dan hasilnya seperti dibawah ini:

Selamat berkarya. Hope you like that and I am happy if you would like to try it:)