VB.NET 数据库存取文件
2009-03-13 16:07
459 查看
'** 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:/My Documents/客户资料1.mdb"
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile "c:/test.doc"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "表", iConc, adOpenKeyset, adLockOptimistic
.AddNew '新增一条记录
.Fields("保存文件内容的字段") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
End Sub
'从数据库中读取数据,保存成文件
Sub 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=//xz/c$/Inetpub/zj/zj/zj.mdb"
'打开表
Set iRe = New ADODB.Recordset
iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=64"
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("img")
.SaveToFile "c:/test.doc"
End With
'关闭对象
iRe.Close
iStm.Close
End Sub
'** 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:/My Documents/客户资料1.mdb"
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile "c:/test.doc"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "表", iConc, adOpenKeyset, adLockOptimistic
.AddNew '新增一条记录
.Fields("保存文件内容的字段") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
End Sub
'从数据库中读取数据,保存成文件
Sub 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=//xz/c$/Inetpub/zj/zj/zj.mdb"
'打开表
Set iRe = New ADODB.Recordset
iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=64"
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("img")
.SaveToFile "c:/test.doc"
End With
'关闭对象
iRe.Close
iStm.Close
End Sub
相关文章推荐
- VB.NET 与*.udl文件数据库连接调用
- 安装程序类(VB.net,新建数据库,修改webconfig文件)
- 'VB/VBA中实现数据库中的文件存取
- [VB.NET源码]文件读写与数据库操作示例
- VB.NET读取(数据库)配置文件
- [VB.NET]如何向数据库字段中写入文件?
- VB/VBA中实现数据库与文件的存取
- vb.net 存取数据库中的图片
- [VB.NET]怎样把cvs文件倒入数据库中
- VB.NET配置文件连接数据库--App.config文件
- ASP.NET实现文件的上传与下载(包括用数据库存取文件)
- vb.net 存取数据库中的图片 Montaque(原作)
- 在vb.net中使用数据库备份文件还原sqlserver数据库
- VB.net删除节点,数据库,文件
- [VB.NET]vb.net如何读取数据库生成指定格式的xml文件
- vb.net 存取数据库中的图片
- 用VB.NET 如果将任何文件以二进制形式保存在数据库,然后再从数据库读取出来
- vb.net播放资源文件中的音乐
- 怎么把CSV文件的导入到数据库中(C#.net VS2005)
- VB.net遍历路径下的所有文件及所有子文件夹---递归算法