16,555
社区成员
发帖
与我相关
我的任务
分享
Dim MyStream As New System.IO.MemoryStream
Me.PictureBox1.Image.Save(MyStream, System.Drawing.Imaging.ImageFormat.Bmp)
Dim MyBytes(MyStream.Length) As Byte '声明数组
MyBytes = MyStream.ToArray()
Dim Sql As String = "INSERT INTO 幼儿信息(编号,姓名,年龄,身高,图片) VALUES(?,?,?,?,?)"
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")
Dim cmd As New OleDbCommand(Sql, cn)
cmd.Parameters.Add(New OleDbParameter("编号", TextBox1.Text))
cmd.Parameters.Add(New OleDbParameter("姓名", TextBox2.Text))
cmd.Parameters.Add(New OleDbParameter("年龄", TextBox3.Text))
cmd.Parameters.Add(New OleDbParameter("身高", TextBox4.Text))
cmd.Parameters.Add(New OleDbParameter("图片", MyBytes))
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()