Re: [Programmer-VB] Coding save gambar

Tue, 25 Jul 2006 00:05:55 -0700

Pak Agus,Pak Ferri, Pak Ilham, Pak BillY,
Terimakasih untuk advisenya.
Gambar sudah bisa di save.  Tipe data saya OLE Object
 
Permasalahannya,
berapa sich maksimal ukuran gambar/data yang bisa ditampung.
Saya pake DB Access.
 
Please advise.
Thanks
//Whe~en
----- Original Message -----
Sent: Monday, July 24, 2006 8:31 AM
Subject: Re: [Programmer-VB] Coding save gambar

dear rekan all..
saya pake VB 6 dan reference microsoft activex data object 2,5 library. DBMS pake SQL server.
 
Private Sub CmdSave_Click()
 Set PhotoStream = New ADODB.Stream
rsitem.open "select * from FotoBrg where kdBrg='"& cmbkdBrg.text & "'",cn,adOpenStatic, adLockOptimistic
RsItem.Fields("kdbrg") = CmbKdBrg.Text
 RsItem.Fields("photo") = ImgFoto.Picture
  If TxtPath.Text <> "" Then
   With PhotoStream
    .Type = adTypeBinary
    .Open
    .LoadFromFile (TxtPath.Text)
    RsItem.Fields("Photo") = .Read
   End With
  End If
   RsItem.Update
   Set PhotoStream = Nothing
end sub
 
hanya saja, DBase sdkt gede.. tapi, no problem banget.
moga membantu..
thanx

billy blue <[EMAIL PROTECTED]> wrote:
tentu saja klo km pake vb6, tapi klo pake vb.net baru bisa dimasukin ke SQL statement nya langsung
klo km minat hub saya di 081321388744, tapi klo km udah bisa cara simpennya kan tinggal logikanya saja, insert data yang lain dl, baru file gambarnya nyusul klo saya kaya gt

"whe - en (gmail)" <[EMAIL PROTECTED]> wrote:

Dim hGambar As New ADODB.Stream
hGambar.Type = adTypeBinary
hGambar.Open
Set hGambar = KonversiGambar(txtGbr)
If hGambar.State = adStateOpen Then
cn.Execute " UPDATE  tblGambar SET " & _
               " Nama = '" & Me.txtNama.Text & "'," & _
" Nama = '" & hGambar.read & "' "
Please advise.
Thanks & rgds
.


See the all-new, redesigned Yahoo.com. Check it out.
__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke