在数据库中存取文件

简介: 在数据库中存取文件http://www.51cto.com  2005-11-24 09:16  作者:  出处:pconline 本文介绍如何利用ADO来操作数据库中的文件。'************************************************* '** '** 使用 ADODB.
在数据库中存取文件
http://www.51cto.com  2005-11-24 09:16  作者:  出处:pconline
本文介绍如何利用ADO来操作数据库中的文件。

'*************************************************
'**
'** 使用 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:\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
目录
相关文章
|
存储 Java 关系型数据库
Java使用JDBC向数据库存取二进制数据(如图片,视频,音频等)
Java使用JDBC向数据库存取二进制数据(如图片,视频,音频等)
426 0
Java使用JDBC向数据库存取二进制数据(如图片,视频,音频等)
|
存储 Java 关系型数据库
Java使用JDBC向数据库存取大文本(比如小说等)
Java使用JDBC向数据库存取大文本(比如小说等)
279 0
Java使用JDBC向数据库存取大文本(比如小说等)
|
SQL .NET 数据库
ASP.Net数据库如何存取图片
当我们有大量的图片或者图片比较大时,我们常规的做法可能是保存图片路径,但是也不排除需要将图片直接存放到数据库的情况,此时就需要保存图片到数据库了。这篇文章我会向大家介绍: 如何通过FileUpLoad控件将图片保存到数据库 如何通过Button控件从数据库导出图片 具体步骤如下: 保存图片到数据...
1337 0
|
.NET 数据库
ASP.NET存取图片到数据库
private void btnUpload_Click(object sender, System.EventArgs e){ //得到用户要上传的文件名 string strFilePathName = loFile.
732 0
|
存储 数据库 数据库管理
|
存储 C# 数据库
一起谈.NET技术,c#数据库存取图片的三种方式
  第一种方式   文件夹与数据库配合   近来做了不少关于这块的功能 ,随着网络的飞速发展,网络存取图片已不再是神话,而成为了一种时尚,如果是你 是用Asp.net开发的话,可能更多的人会考虑使用数据库存储图片的路经,而在文件夹是存储图片的方式。
1710 0
|
数据库 Android开发 数据库管理
Android中SQlite数据库存取Bitmap(二)
main.xml如下: manifest.xml如下: ...
939 0
|
数据库 Android开发 数据库管理
Android中SQlite数据库存取Bitmap(一)
mainActivity如下: package cn.com; import java.io.ByteArrayOutputStream; import java.
1451 0

热门文章

最新文章