小弟知道怎么将一个图片文件(图片文件,不是内存图片)转换成流,然后写入access数据库里面 如下代码:
写入:
Dim OpenDialog As New OpenFileDialog
If OpenDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim da() As Byte
da = My.Computer.FileSystem.ReadAllBytes(OpenDialog.FileName)
Cmd.CommandText = "insert into biao(pic) values(?)"
Cmd.Parameters(0).Value = da
Conn.Open()
If Cmd.ExecuteNonQuery > 0 Then
MsgBox("添加图片成功")
End If
Conn.Close()
End If
读取图片:
Cmd.CommandText = "select pic from biao where 编号=1" '注意选择编号
Conn.Open()
DataRd = Cmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(0)
PictureBox1.Image = Bitmap.FromStream(New IO.MemoryStream(da))
End If
DataRd.Close()
Conn.Close()
上面代码没有问题!
写一个txt文本文件进去没问题,但是不知道怎么读出来,郁闷,求高手指点,谢谢!
写入:
Dim OpenDialog As New OpenFileDialog
If OpenDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim da() As Byte
da = My.Computer.FileSystem.ReadAllBytes(OpenDialog.FileName)
Cmd.CommandText = "insert into biao(pic) values(?)"
Cmd.Parameters(0).Value = da
Conn.Open()
If Cmd.ExecuteNonQuery > 0 Then
MsgBox("添加图片成功")
End If
Conn.Close()
End If
读取图片:
Cmd.CommandText = "select pic from biao where 编号=1" '注意选择编号
Conn.Open()
DataRd = Cmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(0)
PictureBox1.Image = Bitmap.FromStream(New IO.MemoryStream(da))
End If
DataRd.Close()
Conn.Close()
上面代码没有问题!
写一个txt文本文件进去没问题,但是不知道怎么读出来,郁闷,求高手指点,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货