VB2010VBNET读取写入ACCESS图片

Imports System.Data.OleDb

Public Class Form1
Dim AccessConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & https://www.wendangku.net/doc/1f2965592.html,.DirectoryPath & "\db1.mdb;" & _
"Persist Security Info=True"

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

Try
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim PicturePath As String = "K:\Mine\WinPE\baby.jpg"
Dim Picturebyte = https://www.wendangku.net/doc/1f2965592.html,puter.FileSystem.ReadAllBytes(PicturePath)
Dim AccessString As String = "INSERT INTO TEST(F) VALUES(?)"
Dim AccessCmd = New OleDb.OleDbCommand(AccessString, AccessConn)
AccessCmd.Parameters.Add(New OleDb.OleDbParameter)
AccessCmd.Parameters(0).Value = Picturebyte
AccessCmd.ExecuteNonQuery()
MsgBox("Save OK", https://www.wendangku.net/doc/1f2965592.html,rmation)
AccessConn.Close()
Catch AccessException As Exception
MsgBox(AccessException.Message)
End Try
End Sub

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

Dim AccessString As String = "SELECT * FROM TEST"
Try
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn)
Dim TempDataSet As New DataSet
AccessAdapter.Fill(TempDataSet)
If TempDataSet.Tables(0).Rows.Count = 0 Then Exit Sub
Dim Picturebyte = TempDataSet.Tables(0).Rows(0).Item(1)
PictureBox1.Image = Bitmap.FromStream(New IO.MemoryStream(Picturebyte, True), True)
AccessConn.Close()
Catch AccessException As Exception
MsgBox(AccessException.Message)
End Try
End Sub
End Class

Try
Dim AccessString As String = "INSERT INTO UserTable(照片,姓名,密码,性别,生日,部门,权限,备注) VALUES(?,'" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Text & "','" & TextBox5.Text & "','" & QX & "','" & TextBox6.Text & "')"
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessCmd As OleDbCommand = New OleDbCommand(AccessString, AccessConn)
AccessCmd.Parameters.Add(New OleDb.OleDbParameter)
Dim mem As MemoryStream = New MemoryStream()
Pic_User.Image.Save(mem, System.Drawing.Imaging.ImageFormat.Bmp)
Dim Picturebyte = mem.ToArray
AccessCmd.Parameters(0).Value = Picturebyte
AccessCmd.ExecuteNonQuery()
MsgBox("Save OK", https://www.wendangku.net/doc/1f2965592.html,rmation)
AccessConn.Close()

Catch AccessException As Exception
MsgBox(AccessException.Message)
End Try


====================================================================================================


将声音图片转换为二进制数据：
Picturebyte = https://www.wendangku.net/doc/1f2965592.html,puter.FileSystem.ReadAllBytes(PicturePath)
Voicebyte = https://www.wendangku.net/doc/1f2965592.html,puter.FileSystem.ReadAllBytes(VoicePath)
将二进制数据转换为声音图片：
PictureBox1.Image = Bitmap.FromStream(New IO.MemoryStream(Picturebyte, True), True)
'这里是取出声音文件了，需要交代的是，我研究了很久（套用行家台词），没找到好的方法，
'好像只能先把声音文件暂存出来，然后你去播放之类的动作。不知道能不能直接播放流文件，
'或者有其他的方法，这个是刚刚想到的，呵呵，以后去尝试下。
With stream
.Mode = ADODB.ConnectModeEnum.adModeReadWrite
.Type = ADODB.StreamTypeEnum.adTypeBinary
.Open()
.Write(Voicebyte)
.SaveToFile("c:\test.wav ", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
End With