Pada kesempatan kali ini saya akan mengulas bagaimana cara menyimpan obyek gambar ke dalam tabel yang ada di Microsoft Access. Pada tabel di MS.Access menyediakan OLE OBJECT akan tetapi apabila kita menggunakan fasilitas ini maka akan terjadi pembekakan pada database, maka dari itu saya menggunakan alternatif lain yaitu menyimpannya diluar database atau kita simpan di device kita. Mengapa demikian, sebab dengan menyimpan obyek gambar diluar kita dapat meningkatkan performa dari MS.Access yang mana akan kita jadikan sebuah Database dan juga kita jadikan sebagai Aplikasi dengan ruang lingkup yang sederhana.
Langkah pertama yang harus kita lakukan adalah membuat database terlebih dahulu dari MS.Access
Selanjutnya kita buat tabel yang kita beri nama foto
Selanjutnya kita buat tabel yang kita beri nama path, fungsi path disini untuk menyimpan lokasi direktori folder dari gambar yang akan kita simpan
pada tabel path terdapat Field Name Variable dan path, fungsi Field variable adalah untuk memberi nama direktori dari path yang nantinya akan kita gunakan untuk proses upload foto, sedangkan path berfungsi untuk menyimpan daftar direktori penyimpanan foto.
selajutnya kita buat dulu sebuah module yang berfungsi untuk membantu kita dalam proses Pencarian Foto, dan Penyimpanan Foto.
Kita siapkan 2 Module yaitu yang akan saya beri nama
anda dapat mengunduh source VBA untuk melakukan proses pencarian dan penyimpanan foto.
Setelah anda membuat module dan melakukan copy-paste yang perlu diperhatikan adalah untuk lebih teliti dalam melihat source yang saya berikan, apabila anda melakukan perubahan baik nama FieldName ataupun nama tabel.
Langkah selanjutnya kita siapkan form untuk melakukan proses penyimpanan
Pertama silahkan anda membuat sebuah Control Image dan beri nama "ImageSiswa" (tentunya tanpa tanda petik). Lalu beri nama Button yaitu Cari dan Simpan pada Property Sheetnya. Selanjutnya isikan code VBA pada Button Cari
========================================================================
On Error GoTo cmdAddImage_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant
strFilter = "Jpeg Files (*.*)" & vbNullChar & "*.jpg" _
& vbNullChar & "Png Files (*.png)" & vbNullChar & "*.png" _
& vbNullChar & "Gif Files (*.gif)" & vbNullChar & "*.gif" _
& vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly
varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")
If IsNull(varFileName) Then
Else
image_siswa.Picture = varFileName
End If
cmdAddImage_End:
On Error GoTo 0
Exit Sub
cmdAddImage_Err:
MsgBox Err.Description, , "Error: " & Err.Number _
& " in file"
Resume cmdAddImage_End
========================================================================
selanjutnya pada Button Simpan silahkan isikan Source VBA seperti dibawah ini :
========================================================================
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("foto", dbOpenDynaset)
path = pathxy("imagepath")
ext = GetExt(Me.ImageSiswa.Picture)
f_image = Me.IDPendataan + ext
bf_image = path + f_image
xxx = path + "no.dd"
If rst.NoMatch Then
If Me.ImageSiswa.Picture = xxx Then
f_image = "dd.jpg"
Else
FileCopy Me.ImageSiswa.Picture, bf_image
End If
rst.AddNew
rst!ID="111111"
rst!foto = f_image
rst.Update
Else
End If
========================================================================
Selamat Mencoba :)
0 komentar:
Posting Komentar