rs.Fields(0) = Text3.Text
rs.Fields(1) = Text1.Text
rs.Fields(2) = DTPicker1
rs.Fields(3) = Combo1.Text
rs.Fields(4) = Combo2.Text
rs.Fields(5) = Text4.Text
rs.Fields(6) = Text5.Text
rs.Fields(7) = Text7.Text
rs.Fields(8) = Text6.Text
rs.Fields(9) = Text2.Text
利用ADODB.Stream把图片插入数据库
Set myStream = New ADODB.Stream
myStream.Type = adTypeBinary
myStream.Open
myStream.LoadFromFile "" + picture1.Picture + ""'错误处:类型不匹配
rs.Fields("Photo").value = myStream.Read
rs.Update
rs.Fields(1) = Text1.Text
rs.Fields(2) = DTPicker1
rs.Fields(3) = Combo1.Text
rs.Fields(4) = Combo2.Text
rs.Fields(5) = Text4.Text
rs.Fields(6) = Text5.Text
rs.Fields(7) = Text7.Text
rs.Fields(8) = Text6.Text
rs.Fields(9) = Text2.Text
利用ADODB.Stream把图片插入数据库
Set myStream = New ADODB.Stream
myStream.Type = adTypeBinary
myStream.Open
myStream.LoadFromFile "" + picture1.Picture + ""'错误处:类型不匹配
rs.Fields("Photo").value = myStream.Read
rs.Update
解决方案 »
- vb6.0有没有线程,
- 请问如何实现检验文本框内是否输入正确的EMAIL格式?
- 问一个冷门图形判断的问题
- 请问:有关RS.Open "Select * From " & TableName的问题
- 求好用的Wise Installation System 的软件,下载地址.
- 如何在datagrid 中显示查询结果? 在线等待···
- 急得要跳楼的问题?那位大侠帮忙解决一下?
- 如何在程序运行时更改DataGrid中列的“读写”属性?
- Timer控件问题
- 我想问vb中有没有类似于delphi中的split控件?????????
- RecordSet的filter属性可以对字段长度进行过滤吗?
- 请问哪里可以下载vsprinter控件,以及此控件的使用说明
http://support.microsoft.com/default.aspx?scid=kb;EN-US;258038
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamSet cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;
Initial Catalog=pubs;User Id=sa;Password=Password"Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile app.path & "\aa.jpg"
rs.Fields("logo").Value = mstream.Read
rs.Updaters.Close
cn.Close
myStream.LoadFromFile filepath+filename
'**
'** 使用 ADODB.Stream 保存/读取文件到数据库
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
'**
'** ----- 数据库连接字符串模板 ---------------------------------------
'** ACCESS数据库
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'** ";Data Source=数据库名"
'**
'** SQL数据库
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'** "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
'**'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcStr As String
'数据库连接字符串
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\img.mdb"
Dim iConc As ADODB.Connection
Set iConc = New ADODB.Connection
iConc.Open iConcStr
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\com.doc"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
End SubSub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConc As String
'数据库连接字符串
iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\img.mdb"
'打开表
Set iRe = New ADODB.Recordset
iRe.Open "img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=3" '比如单击datagrid后找到id=3的纪录
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
.SaveToFile "c:\com.doc"
End With
'添加了ole控件
OLE1.SourceDoc = "c:\\com.doc"
OLE1.Action = 1 'use the old action method
OLE1.SizeMode = vbOLESizeAuttoSize '调节对象大小使其正好充满OLE容器控件 'Picture1.Picture = LoadPicture("c:\tesd.bmp")
'关闭对象
iRe.Close
iStm.Close
End SubPrivate Sub Command1_Click()
Call s_ReadFile
End SubPrivate Sub Command2_Click()
Call s_SaveFile
End Sub
Private Sub Command1_Click()
Dim bteContent() As Byte
Open "C:\aa.bmp" For Binary Access Read As #1
bteContent = InputB(LOF(1), #1)
Close #1
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs!Name = "张三"
rs!AGE = 22
rs!SEX = "男"
rs.Fields("PHOTO").AppendChunk bteContent
rs.Update
Erase bteContent
End Sub'打开
Private Sub Command2_Click()
Dim bteContent() As Byte
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from tablename", cn, adOpenForwardOnly, adLockReadOnly
bteContent = rs.Fields("PHOTO").GetChunk(rs.Fields("PHOTO").ActualSize) Open "C:\aa.bmp" For Binary Access Write As #1
Put #1, , bteContent
Close #1
Image1.Picture = LoadPicture("C:\aa.bmp")
End SubPrivate Sub Form_Load()
On Error GoTo Errhandle
cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
cn.Open
Exit Sub
Errhandle:
MsgBox Err.Description, vbExclamation
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub