Karena banyak pertanyaan dari teman-teman dan komentar request tentang bagaimana membuat program menyimpan foto atau gambar di vb 6.
Maka pada pembahasan kali ini saya akan membahas tentang bagaimana cara menampilkan dan menyimpan foto pada folder yang kita buat menggunakan visual basic 6.
Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.
Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.
Field | Data Type | Size |
NRP | Text | 10 |
Nama | Text | 30 |
Jurusan | Text | 35 |
- Public conn As New ADODB.Connection
- Public RSdata As New ADODB.Recordset
- Sub koneksi()
- Set conn = New ADODB.Connection
- Set RSdata = New ADODB.Recordset
- conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"
- End Sub
Kemudian pada form activate dan form load ketikkan kode perintah berikut :
- Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif
- Call koneksi
- Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"
- Adodc1.RecordSource = "data"
- Adodc1.Refresh
- Set DataGrid1.DataSource = Adodc1
- DataGrid1.Refresh
- End Sub
- Private Sub Form_Load()
- Text1.Text = ""
- Text2.Text = ""
- Text3.Text = ""
- Text4.Text = ""
- Text4.Enabled = False
- End Sub
Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :
- Private Sub TampilkanData()
- Text2 = RSdata!nama
- Text3 = RSdata!jurusan
- Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
- End Sub
Perintah untuk mencari data dengan acuan dari Text1 :
- Function CariData()
- Call koneksi
- RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn
- End Function
- Function CariData()
- Call koneksi
- RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn
- End FunctionPrivate Sub kosong()
- Text1.Text = ""
- Text2.Text = ""
- Text3.Text = ""
- Text4.Text = ""
- End Sub
- Private Sub simpan()
- SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
- End Sub
Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.
- Private Sub cmdcari_Click()
- cmndialog.ShowOpen
- Text4 = cmndialog.FileName
- End Sub
Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.
- Private Sub cmdsimpan_Click()
- Dim SQLTambah As String
- Call simpan
- SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
- conn.Execute SQLTambah
- Form_Activate
- End Sub
Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.
- Private Sub cmdedit_Click()
- Dim SQLEdit As String
- Call simpan
- SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
- conn.Execute SQLEdit
- Form_Activate
- End Sub
Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.
- Private Sub smdhapus_Click()
- Adodc1.Recordset.Delete
- Adodc1.Recordset.Update
- DataGrid1.Refresh
- End Sub
Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.
- Private Sub cmdbersih_Click()
- Text1.Text = ""
- Text2.Text = ""
- Text3.Text = ""
- Text4.Text = ""
- Text1.SetFocus
- End Sub
- Private Sub Text1_LostFocus()
- Call CariData
- If Not RSdata.EOF Then
- TampilkanData
- MsgBox "Data Ditemukan"
- Else
- Text2.Text = ""
- Text3.Text = ""
- Text4.Text = ""
- End If
- End Sub
- Private Sub Text4_Change()
- Image1.Picture = LoadPicture(Text4)
- End Sub
Read more: http://komputerkampus.com/artikel-70/contoh-program-simpan-foto-menggunakan-visual-basic-60/#ixzz1whtrnSN5
