Public Function FtPeg(ByVal nip As String)
Dim Ors As New ADODB.Recordset
Dim MstReam As New ADODB.Stream
On Error Resume Next
Ors.Open "Select FOTO from PEGAWAI where NIP='" & nip & "'", PathRecord,
adOpenKeyset, adLockOptimistic
If Not Ors.BOF And Not Ors.eof Then
MstReam.Type = adTypeBinary
MstReam.Open
MstReam.Write Ors.Fields("FOTO").Value
If Ors.Fields("FOTO").Value = Not Null Then
MstReam.SaveToFile "C:\Program Files\Foto\" & nip & ".jpg",
adSaveCreateOverWrite
FtPeg = "C:\Foto\" & nip & ".jpg"
Else
FtPeg = Nothing
End If
End If
Ors.Close
End Function
bastian nugroho <[EMAIL PROTECTED]> wrote:
Maksudnya langsung baca file binary lalu disimpan dlm varchar dan restore file?
Bagaimana caranya dan bagaimana membedakan tipe filena?
Terima kasih
On May 12, 2006 5:31 PM, Ervin Listyawan <[EMAIL PROTECTED]> wrote:
> Kalau pakai VB (atau VB.NET), bisa coba pakai control buat Image
> (atau Picture) yang dibinding ke field database (Oracle) yg tipenya
> binary (RAW, LONG RAW). Kalau mau lebih canggih bisa coba pakai LOB
> (BLOB) di Oracle 9. Cuma makan space banyak (krn sistem OLE).
>
> Kalau VB (atau Vb.net/C#) memang lebih tight-connect ke MS SQL
> dibandingkan Oracle, sekalipun bisa buat semua database juga (asal
> ada drivernya).
>
> Yg lebih mudah (bodoh-2x-an), tapi keuntungan space bisa sedikit,
> bisa pakai tipe data apa saja (yg penting bisa buat menyimpan
> binary/text). Di programnya, utk masukin, langsung baca file-nya
> (binary), terus masukin ke field di database (panjang/size
> disesuaikan, misal pakai VARCHAR). Terus waktu nampilin, ambil field
> tsb, extract ke file, terus pakai control yang ngeload dari file tsb.
> Pakai cara ini space bisa kecil (misal pakai JPG, original file
> kecil, di database kecil juga).
>
> Rgds,
>
> Ervin L
>
> --- In [email protected], "Agho Arepas" <[EMAIL PROTECTED]>
> wrote:
> >
> > Hallo, saya anggota baru di sini.
> >
> >
> >
> > Kebetulan saya mendapat tugas dari dosen saya untuk membuat database
> > menggunakan oracle 9i dengan bantuan visual basic. Nah saya ingin
> membuat
> > variasi dengan memasukkan foto-foto pada database saya itu.
> Dimanakah saya
> > mendapat tutorial mengenai hal itu. Atau adakah rekan-rekan yang
> mengetahui
> > bagaimana caranya ?
> >
> > Atas perhatiannya saya ucapkan terima kasih.
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
>
>
>
> --
> -----------I.N.D.O - O.R.A.C.L.E---------------
> Keluar: [EMAIL PROTECTED]
> Website: http://indo-oracle.lizt.org (NEW)
> -----------------------------------------------
>
> Bergabung dengan Indonesia Thin Client User Groups,
> Terminal Server, Citrix, New Moon Caneveral, di:
> http://indo-thin.vze.com
> Yahoo! Groups Links
>
>
>
>
>
---------------------------------
Never miss a thing. Make Yahoo your homepage.
[Non-text portions of this message have been removed]
