在vb程序中使用picturebox 的图形方法(pset,line)得到的图形,如何保存到access数据库中,我使用ado,并且在access报表中还能直接打印出来?
解决方案 »
- 从两个数据库中取得结果集的最优方法求解
- 请问如何确定mshflexgrid某个合并单元格的范围?
- 送分给openforever(++),快来接
- 请高人指点一下我的小程序-计数程序(以分钟为单位显示运行时间)
- 有个关于MSComm1握手协议的问题
- 发现4个DLL
- 如何用VB实现FTP的断点下载?有人知道的话请回答,特急!!
- 高手们请进!如何在程序中修改一个已存在的文件的扩展名.
- 客户端程序怎么调用服务器端ACCESS数据库。。。。。。。。。。。。。。。。。。
- 这个问题,我不会!你呢??来看看!
- wm_menucommand 在98下无法获得对应菜单的hwnd
- 做好的程序如果上传到服务器上的话,由于路径改变所以不能运行,请问怎么解决这个问题?
然后保存
打印可以使用PrintForm 方法,用以将 Form 对象的图象逐位发送给打印机。'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
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 + "\1.bmp"
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
'打开表
Set iRe = New ADODB.Recordset
iRe.Open "select * from img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=1"
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
.SaveToFile App.Path & "\test.bmp"
End With
Picture1.Picture = LoadPicture(App.Path & "\test.bmp")
'关闭对象
iRe.Close
iStm.Close
End SubPrivate Sub Command1_Click()
Call s_ReadFile
End SubPrivate Sub Command2_Click()
Call s_SaveFile
End SubPrivate Sub Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\access\img.mdb" Set iConc = New ADODB.Connection
iConc.Open iConcstr
End Sub
//
如果是保存的二进制,你不能用这个方法