有一段程序麻烦大家帮我看一下。
代源如下:
Dim mstream As ADODB.Stream
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile CommonDialog1.FileName
Main.datacon.CommandType = adCmdTable
Main.datacon.RecordSource = "userdangan"
Main.datacon.Recordset.AddNew
Main.datacon.Recordset.Fields("图片").value = mstream.Read
Main.datacon.Recordset.Update
Main.datacon.Refresh
mstream.Close
目的是将comondialog1浏览到的图片存入userdangan表中的'图片'字段,可是运行后总是报错:
‘在对应所需名称或序数的集合中,末找到项目’搞不懂,大家帮我看看!在线等
代源如下:
Dim mstream As ADODB.Stream
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile CommonDialog1.FileName
Main.datacon.CommandType = adCmdTable
Main.datacon.RecordSource = "userdangan"
Main.datacon.Recordset.AddNew
Main.datacon.Recordset.Fields("图片").value = mstream.Read
Main.datacon.Recordset.Update
Main.datacon.Refresh
mstream.Close
目的是将comondialog1浏览到的图片存入userdangan表中的'图片'字段,可是运行后总是报错:
‘在对应所需名称或序数的集合中,末找到项目’搞不懂,大家帮我看看!在线等
解决方案 »
- 请大家进来看一看,帮一帮我,怎么才能解决这个问题。谢谢了。
- 如何截获WebBrowser控件下载文件的事件?
- 在vb中打开word文件
- 请问VB中有几个类?请快回答!!!!很急!!!!
- 怎么用ADO控件的BookMark属性显示指定的记录。
- vb调用vc dll,不知参数类型增么转换?
- 在VSS里,如何让vb窗口文件(frm)让多个用户同时check out?谢谢
- 在VB中,如何将文件压缩后上传到远程FTP或HTTP。
- 急用!关于winsock的问题
- 没事干,散分。
- #################如何关闭进程??##################
- 用这段代码可以把窗口置顶变透明,但有个问题这样就无法去掉窗体的边框,怎办
SQL中要用image 类型
access 中要用OLE类型
userdangan表中的'图片'字段,是什么类型的字段
ADO要引用2.5以上版本Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Mstream As ADODB.StreamPrivate Sub Command2_Click()
Dim StrPath As String
if cn.state=0 then Cn.Open "Provider=SQLOLEDB;data Source=127.0.0.1;Initial Catalog=test;User Id=sa;Password="
Rs.Open "Select * from TABLE1 where empid= 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
err:
上面的程序测试通过 ,可以正常存图入SQL数据库
如何使用 ADO Stream 对象访问和修改 SQL Server BLOB 数据
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;258038