怎么在题目里添加图片到SQL数据库中

Public Class Form1Class Form1




Private db As New LzmTW.Data.SqlDatabase(".", "NorthWind")






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


Dim SqlCreate As String = "CREATE TABLE Simple(ID int , Photo image, sex bit)"


db.Execute(SqlCreate)


End Sub






Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


Dim table As New DataTable("Simple")


db.Load("Simple", table, New String() {"ID"})


Me.DataGridView1.DataSource = table




If table.Rows.Count = 0 Then Return




Dim row As DataRow = table.Rows(0)


Dim bytes() As Byte = CType(row(1), Byte())




Dim m As New System.IO.MemoryStream(bytes)




Dim t As New System.Drawing.Bitmap(m)


Me.PictureBox1.Image = t


End Sub






Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


Using d As New OpenFileDialog


With d


.Multiselect = False


.Filter = "*.PNG|*.PNG"


If .ShowDialog = Windows.Forms.DialogResult.OK Then


Using r As New System.IO.BinaryReader(System.IO.File.Open(.FileName, IO.FileMode.Open))


Dim len As Integer = CInt(New System.IO.FileInfo(.FileName).Length)


Dim bytes(len - 1) As Byte


r.Read(bytes, 0, len)




Dim m As New System.IO.MemoryStream(bytes)




Dim t As New System.Drawing.Bitmap(m)


Me.PictureBox1.Image = t




Dim row As DataRow = CType(Me.DataGridView1.DataSource, DataTable).NewRow


row(0) = CType(Me.DataGridView1.DataSource, DataTable).Rows.Count + 1


row(1) = bytes


row(2) = False


CType(Me.DataGridView1.DataSource, DataTable).Rows.Add(row)


End Using


End If


End With


End Using


End Sub








Private Sub Button4_Click()Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


db.Update("Simple", CType(Me.DataGridView1.DataSource, DataTable), New String() {"ID"})


End Sub






Private Sub Button5_Click()Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click


db.Execute("DROP TABLE Simple")


End Sub




End Class