0
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim str As String
Dim dr As SqlDataReader

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    str = "select * from llr where llrno='" & TextBox1.Text & "'"
    cmd = New SqlCommand(str, con)
    con.Open()
    dr = cmd.ExecuteReader()
    If dr.HasRows Then
        dr.Read()
        Dim img As Byte() = DirectCast(dr("img"), Byte())
        Dim ms As New MemoryStream(img)
        PictureBox1.Image = Image.FromStream(ms)
    End If
    dr.Close()
    cmd.Dispose()
    con.Close()
End Sub
4

1 に答える 1

0

問題は前の行にある可能性があると思います。これに変更してみてください。

Dim img As Byte() = dr("img") 

同じエラーが発生するかどうかを確認します。

于 2013-09-12T14:28:03.887 に答える