Public Sub 查找4(ByVal 字符 As String, ByVal Pi As PictureBox, ByVal FR As PictureBox, ByVal str As String)
Dim sql As String = "select PIC from prdt where PRD_NO = '" & 字符 & "'"
Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(str)
sqlConn.Open()
On Error Resume Next
Dim sqlCmd As New SqlClient.SqlCommand(sql, sqlConn)
= CommandType.Text
Dim bt As Byte() = sqlCmd.ExecuteScalar()
' MsgBox(Fstr & sql)
If Not bt Is Nothing Then
If bt.Length > 0 Then
Dim fs As New MemoryStream(bt, True)
fs.Write(bt, 0, bt.Length)
fs.Position = 0
Pi.Image = Image.FromStream(fs)
Else
Pi.Image = FR.Image
End If
Else
Pi.Image = FR.Image
End If
sqlConn.Close()
sqlConn = Nothing
End Sub
引用 Dim stry As String = .Item(0, .CurrentCell.RowIndex).Value.ToString.Trim
查找4(stry, Me.PictureBox1, Me.PictureBox2, Ftps)
