Wah.. wah.. wah.. ternyata lagi pada banyak bikin software data
karyawan yah..
sekedar sharing, karena saya juga baru keluar dari komplikasi yang
sama ...
cara simple nya adalah menyimpan path file tersebut di DB Access nya
karena secara file akan membludak bila data photo di simpan di DB
Access.
Berikut yang saya jalankan untuk menyimpan file photo untuk data
Karyawan saya (semoga aja bisa membantu)
- buat 2 Form; 1 Form sebagai Form Master dan 1 Form sebagai Form
Upload Photo
Form 1
- Form 1 - Name = Form1
- Image1 - Name = image1
- Command Button - Name = Cmdbrowse
- TextBox - Name = text1
Source nya adalah
Private Sub cmdbrowse_Click()
Load Form2
Form2.Show
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then
Exit Sub
End If
Set Image1.Picture = Nothing
Image1.Stretch = True
Image1.Height = 3250
Image1.Width = 2500
Image1.Picture = LoadPicture(Text1.Text)
End Sub
Form 2
- Command Button - Name = cmdbrowse
- command button - Name = cmdupload
- Commondialog - cdlg1
- textbox - Name = text1
Private Sub cmdbrowse_Click()
cdlg1.ShowOpen
Text1.Text = cdlg1.filename
End Sub
Private Sub cmdupload_Click()
Form1.Text1.Text = Text1.Text
Me.Hide
Unload Me
End Sub
Maka pada Image Picture di Form1 akan terload Picture sesuai path
yang ada di text1.text
untuk simpan nya tinggal simpan path file yang ada pada text1.text
kedalam DB Access
Semoga membantu...
Terima Kasih
Rengga H Patria
--- In [email protected], "ahmad syaukani" <[EMAIL PROTECTED]>
wrote:
>
> Mengingat file Acccess sendiri sudah cukup besar, rata-rata puluhan
> MB mungkin akan lebih cepat hanya menyimpan path dari fotonya saja
> dalam database sedangkan gambarnya diload pada waktu run time
>
> 1. tempatkan semua foto dalam satu folder tertentu
> 2. buat field string di tabel Acess untuk menyimpan path dari
setiap
> foto tadi (folder + nama filenya)
> 3. gunakan field tadi untuk menentukan file mana yang harus
> ditampilkan
>
> Semoga membantu
> Ahmad
> --- In [email protected], Bagus Wicaksono
> <mynamewicaksono@> wrote:
> >
> > Teman-teman dan Master-master vb saya mohoon benar bantuan dan
> pencerahannya, saya benar-benar lieer..
> >
> > Saya diminta membuat data karyawan dikantor dengan menginputkan
> foto masing karyawan.. saya menggunakan VB 6, Ms Access
> >
> > Gambar fotonya ingin saya simpan di databasenya saja, Saya mohon
> bantuan dan pencerahannya...
> >
> > Misalnya saya ada 1 form berisi : objek
> > - Command (name: simpan)
> > - Command(name:tampil)
> > - Picture
> >
> > berikut adalah source code untuk koneksi ke databasenya :
> > ------------------------------------------------------------------
--
> -----------------------------
> > Dim cn As ADODB.Connection
> > Dim rs As ADODB.Recordset
> > Dim strsql As String
> > Dim mstream As ADODB.Stream
> >
> > Sub koneksi()
> > Set cn = New Connection
> > cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source="+app.path+"\data.mdb;Persist Security Info=False"
> > cn.Open
> > End Sub
> >
> > Sub rectabel(strsql As String)
> > Set rs = New Recordset
> > rs.CursorLocation = adUseClient
> > rs.Open strsql, con, adOpenKeyset, adLockOptimistic
> > End Sub
> > ------------------------------------------------------------------
--
> ---------------------------------------
> >
> > Bagaimana untuk proses penyimpanan datanya ya..
> >
> > Terimakasih banyak ya..
> >
> > Bagus
> >
> >
> > ---------------------------------
> > Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s
> user panel and lay it on us.
> >
> > [Non-text portions of this message have been removed]
> >
>
