vb打印数据库中的图片 (vb 数据库 图片)

打开宴纯图晌衫咐片－文件塌闭-打印图像-设置打印机－设置纸张大小位置等－ok,

我有试过 先把 longraw 转换成图片然后在加载到inage 不过图片大的话蛮仿返旦慢的

Private Sub writefile()

Dim iStm As ADODB.Stream

Dim strings As String

gSQL = “select PIC from iqc_masklist where Part_no=’AAA’ and pic is not null ”

Set gadoRS = gadoCN.Execute(gSQL)

If gadoRS.RecordCount > 0 Then

Set iStm = New ADODB.Stream

With iStm

.Mode = adModeReadWrite

.Type = adTypeBinary

.Open

.Write gadoRS(“备扰PIC”)

If Len(Dir$(PictBmp)) > 0 Then

Kill PictBmp

End If

.SaveToFile “D:\temp.jpg”

End With

Image1.Picture = LoadPicture(“世茄D:\temp.jpg”)

iStm.Close

End If

gadoRS.Close

End Sub

你还是借助报表工具吧

比如水晶报表 或者acticereport等等

相关问题拓展阅读：

• 怎么在VB数据库中添加图片

怎么在VB数据库中添加图片

在form窗口 任意位置点一下。。在右边的属性栏里自己弄

‘将枝羡明文件从数据库中下载到本地：

Function DownLoadReportModelFile(FileName, TblNo) As Boolean

On Error Resume Next

Dim arrBytes() As Byte, lngsize As Long

rs1.Open “select * from 报表信息 where 表号='” & TblNo & “‘ and 模版NULL”

If Not rs1.EOF Then

lngsize = rs1.Fields(“模版”).ActualSize

If lngsize > 0 Then arrBytes = rs1.Fields(“猛告模版”).GetChunk(lngsize)

End If

rs1.Close

If lngsize = 0 Then Exit Function

WriteFileBin FileName, arrBytes

DownLoadReportModelFile = Err = 0

Err.Clear

End Function

‘将文件从本地上传到数据库派尘中

Function UpLoadReportModelFile(FileName, TblNo) As Boolean

On Error Resume Next

Dim arrBytes() As Byte, FreeFileNumber As Integer

FreeFileNumber = FreeFile

Open FileName For Binary As #FreeFileNumber

n = LOF(FreeFileNumber)

ReDim arrBytes(1 To n) As Byte

Get #FreeFileNumber, , arrBytes

Close #FreeFileNumber

rs1.LockType = 2

rs1.Open “select * from 报表信息 where 表号='” & TblNo & “‘”

rs1.Fields(“模版”).AppendChunk (arrBytes)

rs1.Update

rs1.Close

UpLoadReportModelFile = Err = 0

Err.Clear

End Function

我的程序中的俩函数，一字未动发给你，可供参考。

工具箱中有个图片控件的。你连工具箱都不熟悉！还要多练练哦！

vb 数据库 图片的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 数据库 图片,vb打印数据库中的图片,怎么在VB数据库中添加图片的信息别忘了在本站进行查找喔。