如何用VB打印数据库中的图片

1、在窗体中用Picture 控件做为数据库中图片字段的呈现控件

Picture.DataSource =数据控件 (如:Data)

Picture.DataField=字段名

2、直接打印图片

Printer.PaintPicture Picture, 0, 0

Printer.EndDoc

这样就直接打印出图片了

Printer.PaintPicture 命令参数可以自己设置，确定图片的打印位置(x,y坐标）及图片是否缩放...

1.使用存取文件路径的方法存取图片

保存文件名与保存其他字符型数据的方法相同，其代码如下：

Dim photoFilename as String

photoFilename = CommonDialog1.FileName

rs1.AddNew

rs1.Fields("photo")= photoFilename

rs1.Update

2.使用AppendChunk方法将二进制文件存入数据库中

下面使用AppendChunk方法将不同类型的文件存入到数据库中，程序主要代码如下：

Const BLOCKSIZE = 4096

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)

'定义数据块数组

Dim byteData() As Byte

'定义数据块个数

Dim NumBlocks As Long

Dim FileLength As Long

'定义剩余字节长度

Dim LeftOver As Long

Dim SourceFile As Long

Dim i As Long

'判断文件是否存在

If Dir(DiskFile) <>"" Then

SourceFile = FreeFile

'打开二进制文件

Open DiskFile For Binary Access Read As SourceFile

FileLength = LOF(SourceFile)

'判断文件是否空

If FileLength = 0 Then

Close SourceFile

MsgBox DiskFile &"文件无内容，请重新指定文件！", vbExclamation, "注意"

Else

'得到数据块的个数

NumBlocks = FileLength \ BLOCKSIZE

'得到剩余字节数

LeftOver = FileLength Mod BLOCKSIZE

Fld.Value = Null

ReDim byteData(BLOCKSIZE)

For i = 1 To NumBlocks

Get SourceFile, , byteData()

'用Appendchunk方法将byteData()数据写入FLD

Fld.AppendChunk byteData()

DoEvents

Next i

'将剩余数据写入FLD

ReDim byteData(LeftOver)

Get SourceFile, , byteData()

Fld.AppendChunk byteData()

Close SourceFile

End If

Else

MsgBox "文件不存在，请重新指定文件！", vbExclamation, "注意"

End If

End Sub

3.使用Stream对象将二进制文件存入数据库

在ADO2.5以上版本中提供了一个Stream对象，该对象的引入大大简化了二进制字段的存取 *** 作，但使用前需要引用ADO 2.5Library以上的版本

下面使用Stream对象将各种类型的文件存入到数据库中，程序代码如下：

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim mst As New ADODB.Stream

Private Sub cmdSave_Click()

rs.Open "select * from 文件表", cn, adOpenDynamic, adLockOptimistic

rs.AddNew

rs.Fields("名称") = Text1.Text

mst.Type = adTypeBinary

mst.Open

If Text2.Text <>"" Then mst.LoadFromFile Text2.Text

rs.Fields("文件") = mst.Read

rs.Update

mst.Close

rs.Close

End Sub

Private Sub Command1_Click()

On Error GoTo Err

CommonDialog1.Filter = "所有文件(*.*)|*.*"

CommonDialog1.ShowOpen

Text2.Text = CommonDialog1.FileName

Exit Sub

Err:

MsgBox Err.Description

End Sub

Private Sub Form_Load()

Dim cnnstr As String

cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db_wjgl.mdbPersist Security Info=False"

cn.Open cnnstr

Adodc1.ConnectionString = cnnstr

Set Picture1.DataSource = Adodc1

Picture1.DataField = "文件"

End Sub

---