Silakan ......
1. buat form dengan satu tombol command
2. buat database accessnya dengan struktur
field name | Data Type
nama | Text
photo | OLE Object
3. insert satu contoh datanya misal nama = coba, untuk field photo dikosongkan
4. siapkan satu contoh gambarnya misal namanya "test.jpg", tidak musti file
jpg bisa semua file
5. copy dan paste coding dibawah ini di "(General)" deklarasi.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Private Sub Command1_Click()
'berhubung proses ini dilakukan dengan perintah Update,
'maka sebelum meng update (proses yg digunakan untuk insert gambar adalah
update bukan insert),
'field nama nya sudah harus terisi (melakukan insert data), kemudian kita
memanggil procedure insert nya
'kita misalkan namanya 'coba'
Memasukan_Data_Gambar "coba"
'untuk membuktikan kalau sudah benar menyimpannya
Mengambil_Data_Gambar "coba", "coba.jpg"
End Sub
Private Sub Memasukan_Data_Gambar(ByVal strNama As String)
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &
"\test.mdb;Persist Security Info=True"
Set rs = New ADODB.Recordset
rs.Open "Select * from tblcustomer where nama = '" & strNama & "'", cn,
adOpenKeyset, adLockOptimistic
'menggunakan ADODB.Stream, makanya di references project di pilih
"Microsoft ActiveX Data Objects 2.5 Object Library"
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile App.Path & "\gambar\test.jpg" 'misal data gambarnya
ada di folder aplikasi ini dan di sub folder gambar
rs.Fields("photo").Value = mstream.Read
rs.Update
rs.Close
cn.Close
End Sub
Private Sub Mengambil_Data_Gambar(ByVal strNama As String, ByVal
strNamaFileBaru As String)
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &
"\test.mdb;Persist Security Info=True"
Set rs = New ADODB.Recordset
rs.Open "Select * from tblcustomer where nama = '" & strNama & "'", cn,
adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("photo").Value
'gambar dibuat di folder aplikasi di dalam sub folder "hasil gambar"
mstream.SaveToFile App.Path & "\hasil gambar\" & strNamaFileBaru,
adSaveCreateOverWrite
rs.Close
cn.Close
End Sub
semoga berguna
salammmmm
---------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Eko
Heri Susanto
Sent: Monday, June 25, 2007 5:35 PM
To: [email protected]
Subject: [indoprog-vb] Re: Input data Photo via VB
Untuk field di Access, anda bisa menggunakan type data BLOB. Untuk
input dan ambil datanya anda bisa menggunakan fungsi bawaan ADO yaitu
AppendChunk dan GetChunk. Untuk contohnya coba anda browsing disini
http://support.microsoft.com/default.aspx?scid=kb;en-us;103257
Demikian semoga membantu
best regards
Eko Heri
http://www.smsqta.com
>
> Dear VBers..
> saya mau tanya bagaimana cara menginput data gambar ke data base Ms.
> Access via VB. adakah yang pernah mencoba2 nya.
> Terima Kasih
>
>
> Rengga H Patria
>
#ygrp-mlmsg { FONT-SIZE: small; FONT-FAMILY:
arial,helvetica,clean,sans-serif } #ygrp-mlmsg TABLE { } #ygrp-mlmsg SELECT {
FONT: 99% arial,helvetica,clean,sans-serif } INPUT { FONT: 99%
arial,helvetica,clean,sans-serif } TEXTAREA { FONT: 99%
arial,helvetica,clean,sans-serif } #ygrp-mlmsg PRE { FONT: 100% monospace }
CODE { FONT: 100% monospace } #ygrp-mlmsg { LINE-HEIGHT: 1.22em } #ygrp-text
{ FONT-FAMILY: Georgia } #ygrp-text P { MARGIN: 0px 0px 1em } #ygrp-tpmsgs {
CLEAR: both; FONT-FAMILY: Arial } #ygrp-vitnav { FONT-SIZE: 77%; MARGIN: 0px;
PADDING-TOP: 10px; FONT-FAMILY: Verdana } #ygrp-vitnav A { PADDING-RIGHT: 1px;
PADDING-LEFT: 1px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px } #ygrp-actbar {
CLEAR: both; MARGIN: 25px 0px; COLOR: #666; WHITE-SPACE: nowrap; TEXT-ALIGN:
right } #ygrp-actbar .left { FLOAT: left; WHITE-SPACE: nowrap } .bld {
FONT-WEIGHT: bold } #ygrp-grft { PADDING-RIGHT: 0px; PADDING-LEFT: 0px;
FONT-SIZE: 77%; PADDING-BOTTOM:
15px; PADDING-TOP: 15px; FONT-FAMILY: Verdana } #ygrp-ft { PADDING-RIGHT:
0px; BORDER-TOP: #666 1px solid; PADDING-LEFT: 0px; FONT-SIZE: 77%;
PADDING-BOTTOM: 5px; PADDING-TOP: 5px; FONT-FAMILY: verdana } #ygrp-mlmsg #logo
{ PADDING-BOTTOM: 10px } #ygrp-vital { PADDING-RIGHT: 0px; PADDING-LEFT: 8px;
MARGIN-BOTTOM: 20px; PADDING-BOTTOM: 8px; PADDING-TOP: 2px; BACKGROUND-COLOR:
#e0ecee } #ygrp-vital #vithd { FONT-WEIGHT: bold; FONT-SIZE: 77%;
TEXT-TRANSFORM: uppercase; COLOR: #333; FONT-FAMILY: Verdana } #ygrp-vital UL {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 2px 0px;
PADDING-TOP: 0px } #ygrp-vital UL LI { CLEAR: both; BORDER-RIGHT: #e0ecee 1px
solid; BORDER-TOP: #e0ecee 1px solid; BORDER-LEFT: #e0ecee 1px solid;
BORDER-BOTTOM: #e0ecee 1px solid; LIST-STYLE-TYPE: none } #ygrp-vital UL LI .ct
{ PADDING-RIGHT: 0.5em; FONT-WEIGHT: bold; FLOAT: right; WIDTH: 2em; COLOR:
#ff7900; TEXT-ALIGN: right } #ygrp-vital UL LI .cat { FONT-WEIGHT: bold }
#ygrp-vital A { TEXT-DECORATION: none } #ygrp-vital A:hover {
TEXT-DECORATION: underline } #ygrp-sponsor #hd { FONT-SIZE: 77%; COLOR: #999 }
#ygrp-sponsor #ov { PADDING-RIGHT: 13px; PADDING-LEFT: 13px; MARGIN-BOTTOM:
20px; PADDING-BOTTOM: 6px; PADDING-TOP: 6px; BACKGROUND-COLOR: #e0ecee }
#ygrp-sponsor #ov UL { PADDING-RIGHT: 0px; PADDING-LEFT: 8px; PADDING-BOTTOM:
0px; MARGIN: 0px; PADDING-TOP: 0px } #ygrp-sponsor #ov LI { PADDING-RIGHT:
0px; PADDING-LEFT: 0px; FONT-SIZE: 77%; PADDING-BOTTOM: 6px; PADDING-TOP: 6px;
LIST-STYLE-TYPE: square } #ygrp-sponsor #ov LI A { FONT-SIZE: 130%;
TEXT-DECORATION: none } #ygrp-sponsor #nc { PADDING-RIGHT: 8px; PADDING-LEFT:
8px; MARGIN-BOTTOM: 20px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px;
BACKGROUND-COLOR: #eee } #ygrp-sponsor .ad { PADDING-RIGHT: 0px; PADDING-LEFT:
0px; PADDING-BOTTOM: 8px; PADDING-TOP: 8px } #ygrp-sponsor .ad #hd1 {
FONT-WEIGHT: bold; FONT-SIZE: 100%; COLOR: #628c2a; LINE-HEIGHT: 122%;
FONT-FAMILY: Arial }
#ygrp-sponsor .ad A { TEXT-DECORATION: none } #ygrp-sponsor .ad A:hover {
TEXT-DECORATION: underline } #ygrp-sponsor .ad P { MARGIN: 0px } o {
FONT-SIZE: 0px } .MsoNormal { MARGIN: 0px } #ygrp-text TT { FONT-SIZE: 120% }
BLOCKQUOTE { MARGIN: 0px 0px 0px 4px } .replbq { }
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
[Non-text portions of this message have been removed]
