需要添加的控件:Microsoft ADO Data Control 6.0(OLEDB)
需要引用 Microsoft ActiveX Data Objects 2.5 Library (或者2.5以上版本)
窗体添加 PictureBOX 、 CommandButton 控件
Dim StrPicTemp As String
Dim sql As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Private Sub Form_Load()
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=SQLJxc_Data"
conn.Open
End Sub
'读出图片,并显示
Private Sub Command2_Click()
Dim stmpic As New ADODB.Stream
sql = "select photo from t_img where goodscode = 'HP0051'"
' On Error GoTo err
'读取显示数据库中id为hp0051的图像
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
StrPicTemp = "c:\temp.bmp"
Set stmpic = New ADODB.Stream
With stmpic
.Type = adTypeBinary
.Open
.Write rs.Fields("photo") '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
Exit Sub
err:
MsgBox err.Description
End Sub
需要引用 Microsoft ActiveX Data Objects 2.5 Library (或者2.5以上版本)
窗体添加 PictureBOX 、 CommandButton 控件
Dim StrPicTemp As String
Dim sql As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Private Sub Form_Load()
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=SQLJxc_Data"
conn.Open
End Sub
'读出图片,并显示
Private Sub Command2_Click()
Dim stmpic As New ADODB.Stream
sql = "select photo from t_img where goodscode = 'HP0051'"
' On Error GoTo err
'读取显示数据库中id为hp0051的图像
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
StrPicTemp = "c:\temp.bmp"
Set stmpic = New ADODB.Stream
With stmpic
.Type = adTypeBinary
.Open
.Write rs.Fields("photo") '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
Exit Sub
err:
MsgBox err.Description
End Sub