mas eko, terima kasih atas scriptnya sudah saya coba. dan berhasil dengan baik dan benar.
sekali lagi terima kasih. best regards Ardian --- In [email protected], "eko_hariyanto_mdn" <[EMAIL PROTECTED]> wrote: > > 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" <djkelabu@> 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, > > > > > > > > > >
