vb程序 怎么把图片写入数据库并读出来显示？

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

试试基于C/C++语言的开源图像处理函数库OpenCV吧：

#include "cv.h"

#include "highgui.h"

int main( int argc, char** argv )

{

IplImage* pImg//声明IplImage指针

//载入图像

if( argc == 2 &&

(pImg = cvLoadImage( argv[1], 1)) != 0 )

{

cvNamedWindow( "Image", 1 )//创建窗口

cvShowImage( "Image", pImg )//显示图像

cvWaitKey(0)//等待按键

cvDestroyWindow( "Image" )//销毁窗口

cvReleaseImage( &pImg )//释放图像

return 0

}

_按钮1_被单击

通用对话框1.过虑器 = “图片文件|*.jpg”

如果真 (通用对话框1.打开 () ＝ 真)

图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)

---------------------------------------------------------------------

保存看你用什么保存。可以是access保存。也可以保存为字节集。。。很多保存方法，如果是access保存。把保存图片的字段设置为二进制。也可以把图片复制到运行目录下。再写个代码，每次从运行目录读取。不过这笨方法只能保存一张。

------------------------------------------------------------------

复制文件（通用对话框1.文件名，取运行目录（）+“\*.jpg”）

保存到运行目录下，在程序启动时

如果真（文件是否存在（取运行目录（）+“\*.jpg”））

图片框.图片=读入文件(取运行目录（）+“\*.jpg”））

---