RE: [Programmer-VB] Coding save gambar

Tue, 25 Jul 2006 17:59:01 -0700

DB Access

Type data OLE Object

Up to 1 gigabyte (limited by available disk space)

From: [email protected] [mailto:[email protected]] On Behalf Of whe - en (gmail)
Sent: 25 Juli 2006 14:12
To: [email protected]
Subject: Re: [Programmer-VB] Coding save gambar

 

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 -----

From: Agus Sudana

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



YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke