Membuat Database Gambar

Ms Visual Basic 6. 0.12.2012. Tek Sipil S1

Ada dua jenis data gambar, yang pertama gambar diletakkan pada database, dan yang kedua gambar diletakan di folder tertentu sementara database hanya berisi link dan nama filenya. Buat dengan Microsoft access yang berisi nama gambar. Untuk mempermudah, copy gambar yang berada di my pictures ke lokasi folder VB anda.

Simpan dengan nama tertentu, misalnya gambar1.mdb (format ke access 2002-2003). Setelah itu buka Microsoft VB 6. Buat GUI sebagai berikut, seperti biasa tambahkan component adodc.

Lihat tata cara mengkoneksikan adodc1 ke database gambar1.mdb lewat connection string dan record source. Jika sudah, pada property text1, arahkan data source ke adodc1 dan data filed = picture.

Pada tombol LIHAT, masukan listing berikut ini:

F = “D:\rahmadya\” & Text1.Text

Image1.Picture = LoadPicture(F)

Perhatikan, lokasi D:\rahmadya\ sesuaikan dengan letak gambar di komputer Anda. Jalankan hingga muncul tampilan sebagai berikut.

Jika tombol LIHAT ditekan, akan memunculkan gambar1.jpg, atau tekan tombol next pada Adodc1 untuk melihat gambar yang lainnya.