从数据库读出并显示一个图片到网页上 cn = New SqlClient.SqlConnection(SqlConnection1.ConnectionString) cn.Open() Dim str As String = "SELECT photo FROM Photos WHERE name='" & s & "'" Dim cmd As New SqlClient.SqlCommand(str, cn) TextBox1.Text = s Dim b() As Byte b = cmd.ExecuteScalar() If (b.Length > 0) Then Dim stream As New MemoryStream(b, True) stream.Write(b, 0, b.Length) DrawToScale(New Bitmap(stream)) stream.Close() End If cn.Close()
cn.Open()
Dim str As String = "SELECT photo FROM Photos WHERE name='" & s & "'"
Dim cmd As New SqlClient.SqlCommand(str, cn)
TextBox1.Text = s
Dim b() As Byte
b = cmd.ExecuteScalar()
If (b.Length > 0) Then
Dim stream As New MemoryStream(b, True)
stream.Write(b, 0, b.Length)
DrawToScale(New Bitmap(stream))
stream.Close()
End If
cn.Close()