Dim rsPic As New ADODB.Stream
Dim rs As New ADODB.RecordSet
rs.open "SELECT Photo FROM BioMHS WHERE NIM = '" & txtNIM.Text & "'",
2, 3, 1
' ~~~ buat nyimpen filenya ~~~
rsPic.Type = adTypeBinary
rsPic.Open
If rs.EOF Then rs.AddNew
rs.Fields("NIM") = txtNIM.Text
If Not Image1.Picture = 0 Then
rsPic.LoadFromFile "<alamat file\namafile>"
rs.Fields("Photo").Value = rsPic.Read
End If
rs.Update
rs.Close
rsPic.Close
Set Rec = Nothing
Set rsPic = Nothing
' ~~~ buat load filenya ~~~
If rsPic Is Nothing Then Set rsPic = New ADODB.Stream
With rsPic
.Type = adTypeBinary
.Open
If Not IsNull(rs!Photo) Then
.Write (rs.Fields("Photo").Value)
.SaveToFile App.Path & "\nama file", adSaveCreateOverWrite
Set Image1.Picture = LoadPicture(App.Path & "\nama file")
End If
.Close
End With
Set rsPic = Nothing
saya kira begitu,
semoga membantu...
--- In [email protected], "xkelabu" <[EMAIL PROTECTED]> wrote:
>
> Mas Eko, scriptnya gimana yah. untuk simpan dan extract kembali.
>
> thank's ya mas
>
> --- In [email protected], "eko_hariyanto_mdn"
> <eko_hariyanto_mdn@> wrote:
> >
> > aq pernah menyimpan file flash dalam sql server
> > dan hasilnya ga mengecewakan....
> > tp dengan kapasitas file yang ga terlalu gede'
> >
> > klo file .wav mu ga gede'2 amat kapasitasnya
> > mudah2an bisa tertampung
> > krn aq pernah nyimpan file .dat dengan kapasitas
> > sekitar 600 MB ga tertampung
> > dan mengeluarkan pesan error
> >
> > caranya sama seperti nyimpan photo
> > dengan tipe data fieldnya image
> >
> > semoga membantu....
> >
> >
> > --- In [email protected], "xkelabu" <djkelabu@> wrote:
> > >
> > > hi vbers
> > >
> > > mau tanya neh... bisa gak yah file wav di simpan di database sql
> > >
> > > thanks,
> > >
> >
>
