vbsql图片读取

⑴ 请问如何用vb读取sql数据库中的图片，我想用一个picturebox显示数据库中的图片，求详细解释

这个问题要这样分析解决：
SQL数据库里存放的是图片文件的路径，如果图片是存放在本地计算机还好处理，而存放在远程计算机里的，就比较麻烦．
vb访问SQL数据库，可以用控件或对象,访问到数据表,读取对应图片文件的路径．
利用picturebox的LoadPicture函数,动态加载图片

⑵ vb如何将jpg图片存入数据库及其读取方法

VB6 保存和读取图片到数据库

dim stm as ADODB.Stream
dim rs as ADODB.Recordset
sub SavePictureToDB(cn As ADODB.Connection)
'将图片存入数据库
On Error GoTo EH
Set stm = New ADODB.Stream
rs.Open "select ImagePath,ImageValue from tbl_Image", cn, adOpenKeyset, adLockOptimistic
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

With stm
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
With rs
.AddNew
.Fields("ImagePath") = Text1.Text
.Fields("ImageValue") = stm.Read
.Update
End With
rs.Close
Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub

Sub LoadPictureFromDB(cn As ADODB.Connection)
'载数据库中读出图片
On Error GoTo EH
Dim strTemp As String
Set stm = New ADODB.Stream
strTemp = "c:/temp.tmp" '临时文件,用来保存读出的图片
rs.Open "select ImagePath,ImageValue from tbl_image", cn, , , adCmdText
With stm
.Type = adTypeBinary
.Open
.Write rs("ImageValue")
.SaveToFile strTemp, adSaveCreateOverWrite
.Close
End With
Image1.Picture = LoadPicture(strTemp)
Set stm = Nothing
rs.Close
Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub
也可用FileSystemObject的方式来保存
Dim Sql As String
Dim fs As New FileSystemObject
Sub SavePicture()
Dim sByte() As Byte
Dim bIsNull As Boolean

If fs.FileExists(g_FilePath) Then
Open g_FilePath For Binary Access Read As #1
ReDim sByte(1 To LOF(1))
Get #1, 1, sByte()
Close #1
bIsNull = False
Else
bIsNull = True
End If

Dim rs As New ADODB.Recordset
rs.Open "select empid,empname,pic from emp where empid = '" & Trim(txtEmpId.Text) & "'", cn, adOpenStatic, adLockOptimistic
rs.AddNew
rs!EmpId = txtEmpId.Text
rs!EmpName = txtEmpName.Text
If bIsNull <> True Then
rs!pic = sByte
End If
rs.Update
MsgBox "save data ok!"
txtEmpId.Text = ""
txtEmpName.Text = ""
Set picView.Picture = Nothing
cmdAdd.Enabled = True
End Sub
Sub viewJpg()

Dim TmpFile As String
Dim jByte() As Byte
Sql = "select * from emp"
Set rsViewJpg = New ADODB.Recordset
rsViewJpg.Open Sql, cn, adOpenStatic, adLockOptimistic
rsViewJpg.MoveFirst

If Not rsViewJpg.BOF Then
If Not rsViewJpg.EOF Then
txtEmpId.Text = rsViewJpg!EmpId
txtEmpName.Text = rsViewJpg!EmpName
Set pic.Picture = Nothing
If Not fs.FolderExists(App.Path + "/temp") Then
fs.CreateFolder (App.Path + "/temp")
End If
TmpFile = App.Path + "/Temp/" + rsViewJpg.Fields(0) + ".jpg"
If Not IsNull(rsViewJpg!pic) Then
jByte = rsViewJpg!pic
Open TmpFile For Binary Access Write As #1
Put #1, , jByte
Close #1
pic.Picture = LoadPicture(TmpFile)
End If
End If
End If
End Sub

⑶ vb 如何从SQL中读取图片

和直接显示有区别吗？只不过多了一步读数据库而已吧？

⑷ 在VB中怎样读取SQL数据库中的图片路径并显示图片

晕倒 这种问题不会有人回答你的
感觉你问这个问题的逻辑十分的有问题
或许你是个新手甚至不知道该从何下手是吧
你这个问题我是无法回答你的了
不过我可以告诉你的是你该问什么问题
你如果想达到你要的效果你应该提出下列问题

1怎么样读取SQL里数据库的内容
2使用图片控件Image怎么样载入指定路径的图片

第1个问题我是没办法回答你了因为太不具体了这个问题虽然我知道怎么做
第2个问题就是直接修改控件属性你应该会的吧,比如PictureBox1的话就是
PictureBox1.Image="c:\a.bmp"

先从学习SQL数据库开始吧朋友

⑸ vb.net读取与存储sql server 2008图片

一般图片存储与读取采用数据类型Blob进行存储。
当然，由于现在数据库几乎都是关系型数据库，所以处理声音、图像、视频等，不能使用对象的方式，所以只能使用特殊的类型Blob进行存储，但效率比较低。我们在使用时，一般只存路径（字符串），而不采用Blob存储。

⑹ VB中怎样提取及写入SQL SERVER中的图片,并显示在IMAGE中

说思路：
SQL中的图片都是二进制的
所以你要先图片在VB中用一个二进制数组给存起来！
IMAGE控件的参数是要一个文件地址，
所以你还要把这个二进制数组用
OPEN “FILENAME” FOR BINARY AS FILENO
PUT---------
把这个数组写成JPG的文件！
下面就可以在IMAGE中用了！

⑺ 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.0;Data Source=" & App.Path & "\db_wjgl.mdb;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub

⑻ 如何用vb向sql数据库存取照片 最好有事例 谢谢

在VB中存取数据库中的图片
2001-07-05·
·史美康
··vbeden.com
一、
数据库的设计
数据库可以采用微软的Access97或者SQL
Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是:姓名
Char型(SQL
Server中)文本型(Access中);编号Char型(SQL
Server中)文本型(Access中);照片image型(SQL
Server中)OLE对象(Access中)，设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进行，双击打开控制面板里的ODBC数据源,点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的*.mdb或者SQL
Server，依照添加向导加添加数据源，下面就可以开始程序的编写了。
二、
程序的编写
运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程\引用”菜单，出现引用对话框，选择Microsoft
ActiveX
Data
Objects2.0
Library并确定。
添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程\部件”。点“控件”选项卡，在其中选中Microsoft
ADO
Data
Control
6.0(OLEDB)和Microsoft
Common
Dialog
Control
6.0两项按“确定”按钮。
下面是以上各个控件的一些属性:
Form1.MaxButton=False
Label1.Caption=姓名:
Label2.Caption=编号:
Label3.Name=
ResName
Label3.BackColor=
&H80000009&
Label3.BorderStyle=1-Fixed
Single
Label3.DataField=姓名
Label3.DataSource=
AdoCtr
Label4.Name=
ResNumb
Label4.BackColor=
&H80000009&
Label4.BorderStyle=1-Fixed
Single
Label4.DataField=编号
Label4.DataSource=
AdoCtr
Text1.Name=
Names
Text2.Name=
Numb
CommonDialog1.Name=
CDlg
Adodc1.Name=AdoCtr
CommonButton1.Name=PreView
CommonButton1.Caption=预览
CommonButton2.Name=Save
CommonButton2.Caption=保存
CommonButton3.Name=
Update
CommonButton3.Caption=更新
PictureBox1.Name=
PicBox
PictureBox1.AutoSize=False
PictureBox1.AutoRedraw=False
PictureBox1.DataField=照片
PictureBox1.DataSource=AdpCtr
下面是程序代码:
′此工程需有Microsoft
ActiveX
Data
Object
2.1
Library(msado15.dll)
Dim
Constr
As
String
′ODBC路径
Dim
FileName
As
String
′图片文件名
Const
BLOCKSIZE
=
4096
′每次读写块的大小
Dim
ADOCon
As
New
ADODB.Connection
′ADODB
Connection对象
Dim
ADORst
As
New
ADODB.Recordset
′ADODB
Recordset
对象
Dim
ADOFld
As
ADODB.Field
′ADODB
Field
对象
------------------------
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
′定义循环变量
SourceFile
=
FreeFile
′提供一个尚未使用的文件号
Open
DiskFile
For
Binary
Access
Read
As
SourceFile
′打开文件
FileLength
=
LOF(SourceFile)
′得到文件长度
If
FileLength
=
0
Then
′判断文件是否存在
Close
SourceFile
MsgBox
DiskFile
&
〃
无
内
容
或
不
存
在
!〃
Else
NumBlocks
=
FileLength
\
BLOCKSIZE
′得到数据块的个数
LeftOver
=
FileLength
Mod
BLOCKSIZE
′得到剩余字节数
Fld.Value
=
Null
ReDim
byteData(BLOCKSIZE)
′重新定义数据块的大小
For
i
=
1
To
NumBlocks
Get
SourceFile,
,
byteData()
′
读到内存块中
Fld.AppendChunk
byteData()
′写入FLD
Next
i
ReDim
byteData(LeftOver)
′重新定义数据块的大小
Get
SourceFile,
,
byteData()
′读到内存块中
Fld.AppendChunk
byteData()
′写入FLD
Close
SourceFile
′关闭源文件
End
If
End
Sub
----------------------
Private
Sub
Form_Load()
Constr
=
〃DSN=image〃
′定义ODBC连接
ADOCon.Open
Constr
′创建一个连接
ADORst.Open
〃table〃,
ADOCon,
adOpenDynamic,
adLockOptimistic
′打开一个ADO动态集
表名为table
Set
AdoCtr.Recordset
=
ADORst
′将动态集赋给ADO控件
End
Sub
----------------------
Private
Sub
Form_Unload(Cancel
As
Integer)
′记得关闭打开的数据集，释放资源
ADORst.Close
ADOCon.Close
Set
ADORst
=
Nothing
Set
ADOCon
=
Nothing
End
Sub
----------------------
Private
Sub
PreView_Click()
′显示打开文件的公用对话框，选择需要加入数据库的图片
CDlg.Filter
=
〃位图(*.bmp)|*.bmp〃
CDlg.ShowOpen
FileName
=
CDlg.FileName
PicBox.Picture
=
LoadPicture(FileName)
′预览图片
End
Sub
----------------------
Private
Sub
Save_Click()
ADORst.AddNew
′新增纪录
ADORst(〃姓名〃).Value
=
Names.Text
′给动态集的第一个字段赋值
ADORst(〃编号〃).Value
=
Numb.Text
′给动态集的第二个字段赋值
Set
ADOFld
=
ADORst(〃照片〃)
′给ADODB.Field对象赋值
Call
SaveToDB(ADOFld,
FileName)
′调用子程序，给第三个字段(image)赋值
ADORst.Update
End
Sub
----------------------
Private
Sub
Update_Click()
′重新打开纪录集，刷新纪录
ADORst.Close
ADOCon.Close
Set
ADORst
=
Nothing
Set
ADOCon
=
Nothing
ADOCon.Open
Constr
ADORst.Open
〃table〃,
ADOCon,
adOpenDynamic,
adLockOptimistic
Set
AdoCtr.Recordset
=
ADORst
End
Sub

⑼ 如何用VB将图片导入到SQL数据库

用stream组件就可以了，给你个示例

保存文件到数据库中
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.jpg"
End With

'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With