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

2004-11-22 10:07:50 257 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb adodc连接mysql_VB之Adodc控件连接数据库 VB之Adodc控件连接数据库(2019-03-26 16:04:17)标签：vbadocAccess 数据库如：With Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DB1.mdb;Persist Security Info=False".RecordSource = "select * f... 阅读详情

...全文

VB6.0 SP6 AOD应用笔记——第一部分序：工作多年，一直是程序爱好者，真正动手编码其实才21天，纯新手一个。用的还是老古董的VB+SQLserver2000，唯一的原因就是网络上资源多，有啥不懂的好找。 ADO，ActiveX Data Objet，微软用于访问数据库的接口。研究了快半个月，终于搞懂了一点皮毛，整理一下过程中的问题，理理自己的思路，如果有不对的地方，还请高手不吝赐教，对于和我一样的新手，希望有所帮助。 1、ADOD 阅读详情

sl_szk

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

sl_szk 2004-12-10

打赏
举报

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

springswallow 2004-11-22

打赏
举报

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

韧恒 2004-11-22

打赏
举报

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

aohan 2004-11-22

打赏
举报

先要引用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

springswallow 2004-11-22

打赏
举报

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

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

相关推荐