Bisa pake 2 cara (setahu saya:) :
1. Pake perintah AppendChunk ama GetChunk (bisa liat di MSDN ada
contohnya)
2. Pake ADO Stream (lebih singkat dan gak ruwet)
contoh:
Dim cnnDB As ADODB.Connection
Dim strCnn As String
Dim rsData As Recordset
Dim strmGambar as Stream
strCnn = ......
Set cnnDB = New ADODB.Connection
With cnnDB
.ConnectionString = strCnn
.CursorLocation = adUseClient
.Open
End With
Set rsData = New Recordset
Set strmGambar = New Stream
strmGambar.Type = adTypeBinary
With rsData
.Open "SELECT * FROM files WHERE 1=0", conn, adOpenStatic, adLockOptimistic
.AddNew
strmGambar.Open
strmGambar.LoadFromFile "c:\myimage.gif"
.Fields("file_name").value = "myimage.gif"
.Fields("file_size").value = mystream.size
.Fields("file") = strmGambar.read
.Update
.close
strmGambar.Close
End With
Semoga membantu....
--
Salam,
[.:hiawata:.]
Halo Bambang,
Thursday, November 17, 2005, 5:04:33 PM, kamu nulis kayak ginih:
BT> Vbers.... saya punya sedikit trouble bagaimana cara memasukan
BT> gambar je database SQL Server dengan syntax SQL, misalkan gambar
BT> foto karyawan....
BT> saya menggunakan type field foto dengan image....
BT>
BT> terima kasih atas bantuan teman-teman VBers.....
BT>
BT>
BT>
BT>
Send instant messages to your online friends http://asia.messenger.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
1.2 million kids a year are victims of human trafficking. Stop slavery.
http://us.click.yahoo.com/WpTY2A/izNLAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
