vb+sql 存取PDF文件?
解决方案 »
- webbrowser的用法
- 求高手帮助!!!!至少一个参数没有被指定!!!!在线等!!
- 关于CNN的一段程序代码,请朋友们来完善一下,分少才100分
- 关于COM的学习的问题?
- 怎样得到硬盘的绝对容量????
- 发布一个程序安装不成功,谢谢指教!!!!!
- 帮忙,我怎么没有找到DBGRID?? 是那个ocx,谢谢
- 分不在多,心诚则灵
- 我是应届本科生,签了深圳的一家公司,可是我的英语四级没有考过,不知道能不能顺利解决户口?那位大哥知道请告诉我好不,谢谢!
- 找:phf(寻梦人) 要mp3play控件属性和事件的资料
- 有关串口,大家进来交流一下。
- 通过串口发送十六进制,对方接收的也为十六进制,不知道如何解决了,请大家帮忙了!
'SqlServer中的myfile字段类型为Image'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'保存文件到数据库中
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.pdf"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("myfile") = 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("myfile")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.pdf"
End With
'关闭对象
iRe.Close
iStm.Close
r = ShellExecute(0, vbNullString, App.Path & "\test1.pdf", vbNullString, vbNullString, vbNormalFocus) '打开
End Sub
Private Sub Command1_Click()
Call s_ReadFile
End Sub
Private Sub Command2_Click()
Call s_SaveFile
End Sub