Private Sub PAPHOTO_SEL()
Try
Dim objCon As SqlConnection
Dim objCmd As SqlCommand
‘打开数据库
objCon = New SqlConnection(PA001H_INSERT.strConn)
objCon.Open()
‘定义SQL字符串
Dim SQL_String As String
SQL_String = “select top 1 pa_photo from LJPA005H WHERE pa_no='” & Me.TB_PANO.Text & “‘ order by uid desc”
‘执行操作
objCmd = New SqlCommand(SQL_String, objCon)
‘objCmd.CommandTimeout = dbTimeout
objCmd.ExecuteNonQuery()
Dim DataRd As SqlDataReader = objCmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(“pa_photo”)
Me.PB_PAPHOTO.Image = Bitmap.FromStream(New IO.MemoryStream(da))
Else
‘Me.TxtPictureURL.Text = “数据库中没有图片！”
Me.PB_PAPHOTO.Image = Global.LJPA001H.My.Resources.Resources.noimage
End If
DataRd.Close()
objCon.Close()
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub
Original: https://www.cnblogs.com/beichengshiqiao/p/16662978.html
Author: 我是北城石桥
Title: PictureBox 从数据库加载图片照片
原创文章受到原创版权保护。转载请注明出处：https://www.johngo689.com/596680/
转载文章受原作者版权保护。转载请注明原作者出处！