问题描述:

1.把pdf文件写入access
2.读出时用AcroPDF控件

问题解答:

使用流对象保存和显示图片与文件
打开vb6,新建工程。

添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image

'**
引用 Microsoft ActiveX Data Objects 2.5 Library
及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As
ADODB.Connection

'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As
ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As
String

'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type =
adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
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 Sub

Sub
s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As
ADODB.Recordset
'打开表
Set iRe = New
ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id
desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New
ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type =
adTypeBinary
.Open
.Write
iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path
& "\test1.jpg"
End With

Image1.Picture =
LoadPicture(App.Path &
"\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub

Private
Sub Command1_Click()
Call s_ReadFile
End Sub

Private Sub
Command2_Click()
Call s_SaveFile
End Sub

Private Sub
Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist
Security Info=False" & _
";Data
Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"

‘下面的语句是连接sqlserver数据库的.
‘iConcstr
= "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User
ID=sa;Password=;Initial Catalog=test;Data Source=yang"

Set iConc =
New ADODB.Connection
iConc.Open iConcstr
End Sub

Private Sub
Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub

摘要:PDF文件可以当作图片来保存,参考:http://download.csdn.net/source/1467817

VB将PDF流写入ACCESS数据库,通过AcroPDF控件读出PDF流之实现的更多相关文章

  1. 如何使用免费PDF控件从PDF文档中提取文本和图片

             如何使用免费PDF控件从PDF文档中提取文本和图片 概要 现在手头的项目有一个需求是从PDF文档中提取文本和图片,我以前也使用过像iTextSharp, PDFBox 这些免费的PD ...

  2. VB高效导入Excel2003和Excel2007文件到MSHFlexGrid控件显示

    1.VB高效导入Excel2003和Excel2007文件到MSHFlexGrid控件显示 2.以前也有Excel导入通用功能,但速度有些慢一会把两种实现方式都提供出为参考对比. 一.原通用导入exc ...

  3. 如何显示二进制流的图片(利用img控件)

    之前在http://www.cnblogs.com/JsonZhangAA/p/5568575.html博文中是利用的image控件来显示的二进制流图片,我现在想的是能 通过普通的<img id ...

  4. Android控件进阶-自定义流式布局和热门标签控件

    技术:Android+java   概述 在日常的app使用中,我们会在android 的app中看见 热门标签等自动换行的流式布局,今天,我们就来看看如何 自定义一个类似热门标签那样的流式布局吧,类 ...

  5. SQLite数据库、ListView控件的使用

    android下数据库的创建(重点) 在Android平台上,集成了一个轻量级嵌入式关系型数据库—SQLite,SQLite3支持 NULL.INTEGER.REAL(浮点数字).TEXT(字符串文本 ...

  6. 使用数据库绑定ListBox控件

    1. The HTML Markup <div> <asp:ListBox ID="ListBox1" runat="server">& ...

  7. 在VB中动态执行VBS代码,可操控窗体控件

    通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. Option E ...

  8. C#与数据库有关的控件和属性

    BindingNavigator  数据记录导航 BindingSource 与数据源绑定, 常用属性:DataSource.DataMember 常用方法: DataGridView 以表格形式显示 ...

  9. PDF创建及动态转换控件程序包ActivePDF Portfolio

    ActivePDF Portfolio是将4个activePDF最优秀的服务器产品捆绑成一个价格适中的控件程序包.它提供了开发一个完整的服务器端的PDF解决方案所需的一切. 具体功能: activeP ...

随机推荐

  1. Android 线程Thread的2种实现方法

    在讲解之前有以下三点要说明: 1.在Android中有两种实现线程Thread的方法: ①扩展java.long.Thread类: ②实现Runnable()接口: 2.Thread类是线程类,它有两 ...

  2. AndroidStudio KeyMap

  3. 【Cocos2d入门教程八】浅析Cocoss2d下的音频引擎及封装音频类

    Cocos2d-x提供了一个音频CocosDenshion引擎,CocosDenshion引擎可以独立于Cocos2d-x单独使用,CocosDenshion引擎本质上封装了OpenAL音频处理库.具 ...

  4. ubuntu(16.04.01)学习-day1

    1.修改root用户密码 sudo passwd root 按提示进行设置. 2.从Ubuntu 16.04开始,用户可以实现改变启动器的位置,可以将启动器移到屏幕底部,但是无法移到右边或顶部.打开终 ...

  5. Amoeba相关产品及其介绍

    Amoeba for MySQL Amoeba for MySQL致力于MySQL的分布式数据库前端代理层,它主要在应用层访问MySQL的时候充当query       路由功能,专注 分布式数据库 ...

  6. Access数据库一种树形结构的实现和子节点查询

    BOOL CManageDataBase::GetDepTreeAllSons( int rootItem ) { CADORecordset Rst(&m_DataBase); BOOL b ...

  7. iOS进阶——App生命周期

    State Description Not running The app has not been launched or was running but was terminated by the ...

  8. 对整站的a链接进行监控,对匹配规则进行指定页面的跳转

    项目中有个需求,就是将非本站的链接跳转到过渡页(提示即将离开本站的那种页面).这个时候想起了腾讯邮箱,不安全链接会有新的页面提示,如下图: 本以为ASP.NET中有全局的方法获取到点击或者跳转的链接, ...

  9. Git快速上手 : Tortoise工具使用

    利用工具快速上手Git 别跟我说什么用命令操作Git,多高大上呀,请不要在这里跟我装逼,就如同,有个小妞在床上眉眼诱惑地,你却TM还要先看个片儿来热热身.... TortoiseGit  名字看着眼熟 ...

  10. 开发问题记录——AE开发提示80040111错误

    System.runtime.interpServices.ComException(0X80040111): 80040111 ClassFactory无法供应请求的类(异常来自HRESULT:0X ...