我把关键的部分取了出来,并作了相关的修改:
PictureBox1是指一个PictureBox控件
name是varchar(50)类型 image是image类型
Private Sub InsertImage()Sub InsertImage() '把图片插入到数据库中
Dim MyStream As New FileStream("C:Inetpubwwwrootwin2000.gif", FileMode.Open, FileAccess.Read)
Dim buffer(MyStream.Length) As Byte
MyStream.Read(buffer, 0, MyStream.Length)
MyStream.Close()
Dim SqlConnectionString As String = "Persist Security Info=False;Data Source=.;Initial Catalog=aa;User ID=sa;Password="
Dim MyConnection As New SqlConnection(SqlConnectionString)
Dim MyCommand As New SqlCommand("INSERT INTO Photos ([name], [photo]) VALUES (@name, @image)", MyConnection)
MyCommand.Parameters.Add("@name", "test")
MyCommand.Parameters.Add("@image", buffer)
MyConnection.Open()
MyComm