vb中图片怎么写入数据库中，用Adodc实现。数据库为SQL或者Access

[sl_szk]

vb中图片怎么写入数据库中，用Adodc实现。数据库为SQL或者Access

[springswallow]

字段用image类型
插入用APPENDCHUNK
读取用GETCHUNK

[aohan]

先要引用ADO2.5或以上版本的ADO
然后用STREAM对象
数据库中有TABLE1表及PICTUER字段，其类型为：image
程序中引用CommonDialog

Option Explicit

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Private Sub Command1_Click()'读取图片

Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=127.0.0.1;Initial Catalog=数据库名;User Id=sa;Password="
Set rs = New ADODB.Recordset
rs.Open "Select * from TABLE1 where aaaaa=1 ", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
Image1.Picture = LoadPicture("C:\aa.jpg")
rs.Close
cn.Close
End Sub

Private Sub Command2_Click() '往数据库中写图片
Dim StrPath As String
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=127.0.0.1;Initial Catalog=数据库名;User Id=sa;Password="
Set rs = New ADODB.Recordset
rs.Open "Select * from TABLE1 where aaaaa= 1 ", cn, adOpenKeyset, adLockOptimistic
On Error GoTo err:
CommonDialog1.CancelError = True
CommonDialog1.Filter = "*.jpg;*.bmp;*.gif|*.jpg;*.bmp;*.gif" ' CommonDialog1.Filter = "*.mdb|*.mdb|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
StrPath = CommonDialog1.FileName
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile StrPath
If rs.EOF Then
rs.AddNew
rs!empid = 1
rs.Fields("Picture").Value = mstream.Read
Else
rs.Fields("Picture").Value = mstream.Read
End If
rs.Update
rs.Close
cn.Close
End If
exit sub

err:


End Sub

[韧恒]

这里有三个例子，两个是ADO的，一个是用代码，另一个是用Adodc控件，是access的。
http://www.vb99.com/code.asp?codetype=2&findmode=2

[springswallow]

http://community.csdn.net/Expert/topic/3569/3569808.xml?temp=.6730921

[sl_szk]

我的系统是日文的,出现以下错误代码:
エラー: HelloWorldApp.java を読み込めません。
エラー 1 個