保存图片的问题，谢指点

Question

Dim ms As Stream
        Dim picbyte() As Byte
        openFileDialog1.ShowDialog()
        If (openFileDialog1.ShowDialog() = DialogResult.OK) Then            ms = openFileDialog1.OpenFile()            ReDim picbyte(ms.Length)
            ms.Position = 0
            ms.Read(picbyte, 0, Convert.ToInt32(ms.Length))
            Dim conn As New SqlConnection
            conn.ConnectionString = "server=(local);database=Haha;integrated security=sspi;"
            Dim cmd As New SqlCommand
            cmd = conn.CreateCommand
            conn.Open()
            cmd.Parameters.Add("@image", SqlDbType.Image)
            cmd.Parameters("@image").Value = picbyte
            cmd.CommandText = "insert aa values(3,2,@image)"
            'cmd.CommandText = "insert aa values(3,2,'" & picbyte(ms.Length) & "')"
            ' cmd.CommandText = "select * from aa"
            cmd.ExecuteScalar()  '这里提示有错？  aa表有三个字段，第三个为image型            MsgBox("插入成功")
            conn.Close()
            ms.Close()

Answer 1

在SQL里好像图像一般是存图片的相对路径吧,不能直接存图像类型,

Answer 2

写入数据库怎么用cmd.ExecuteScalar() ？？？？？
应该四cmd.ExecuteNonQuery();

Answer 3

TO：yygiggs(yuyi)
我已经试了，都提示有错的。

Answer 4

哥们整理了一个在命令控制台下图片和二进制码相互转换的代码，是C#语言的，VB我实在头疼，你自己看着改吧，存到数据库里要用Binary格式，别滴是不可以滴需要引入io命名空间哦。呵呵
在当前目录要存放一个名为“kevin.gif”的图片
//定义流
FileStream fs = new FileStream(@"../../kevin.gif",FileMode.Open);
byte[] by = new byte[fs.Length];
//转换成二进制码，并存储到数组中
fs.Read(by,0,(int)fs.Length);
//将图片从二进制码重新转换回图片格式
fs = new FileStream(@"../../waston.bmp",FileMode.OpenOrCreate);
StreamWriter sw = new StreamWriter(fs);
fs.Write(by,0,by.Length);
fs.Close();

Answer 5

哦对了，你要是问关于VB的东西最好去VB那里。呵呵