vb.net操作数据库之ACCESS2

上一篇中我已经说了下如何操作ACCESS数据库，下面来说说存取图片，声音之类的问题。

由于图片，声音不能直接存储，这里就要用到数据流方式了。对于.NET中的一些术语概念我仍然很迷糊，在学习中。主要我不是专业的，

只是开始学了点VB6代码，然后就用VB.NET了，所以目前只是会写点代码，却不知道原理，很惭愧。

哎哟，走题了，赶紧回来，不好意思！

好吧，我们先看看图片和声音的存储和读取。看下代码。

’这段<a href="https://www.jb51.cc/tag/daima/" target="_blank" class="keywords">代码</a>是插入<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>和声音的<a href="https://www.jb51.cc/tag/daima/" target="_blank" class="keywords">代码</a> ’第<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>就是<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>了，path当然是<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>的地址了 Picturebyte = My.Co<a href="https://www.jb51.cc/tag/mpu/" target="_blank" class="keywords">mpu</a>ter.FileSy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ReadAllBytes(PicturePath) ’下面这个就是声音咯，voicepath自然还是声音地址了 Voicebyte = My.Co<a href="https://www.jb51.cc/tag/mpu/" target="_blank" class="keywords">mpu</a>ter.FileSy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ReadAllBytes(VoicePath) ‘这里就开始照旧写<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>，区别以前的地方就是这里是用COMMAND的<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>参数来赋值 str = New Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Text.StringBuilder str.Append(" INSERT INTO WORDINFO ([PICTURE],[ENGLISHNAME],[CHI<a href="https://www.jb51.cc/tag/nes/" target="_blank" class="keywords">nes</a>ENAME],[VOICE],[Class]) ") str.Append(" VALUES(?,?,?)") cmd = New OleDb.OleDbCommand(str.ToString,DBConnection) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters.Add(New OleDb.OleDbP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meter) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters(0).Value = Picturebyte cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters.Add(New OleDb.OleDbP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meter) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters(1).Value = EnglishName cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters.Add(New OleDb.OleDbP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meter) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters(2).Value = Chi<a href="https://www.jb51.cc/tag/nes/" target="_blank" class="keywords">nes</a>eName cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters.Add(New OleDb.OleDbP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meter) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters(3).Value = Voicebyte cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters.Add(New OleDb.OleDbP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meter) cmd.P<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>meters(4).Value = Clas<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>ring cmd.ExecuteNonQuery()’<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>写完了就开始执行 DBConnection.Close() Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("Save OK",Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Style.<a href="https://www.jb51.cc/tag/informat/" target="_blank" class="keywords">informat</a>ion)

看看上面的代码是不是很简单了？就这样就可以存储进数据库咯，我这里还是用ACCESS来演示的，sql之类的还要简单。

行了，不说别的了，继续实行功能吧，其他的问题我放在最后交代。

下面我们来看看如何读取，看代码。（怎么有点像武侠上看刀一个味？呵）

Dim Englishname As String Dim Picturebyte() As Byte Dim Voicebyte() As Byte Dim stream As New ADODB.Stream Englishname = Trim(SearchT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text) If Englishname <> "" Then DBConnection.ConnectionString = DB_Cn<a href="https://www.jb51.cc/tag/str/" target="_blank" class="keywords">str()</a> DBConnection.<a href="https://www.jb51.cc/tag/open/" target="_blank" class="keywords">open()</a> '开始<a href="https://www.jb51.cc/tag/chaxun/" target="_blank" class="keywords">查询</a> Dim <a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a> As New Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Text.StringBuilder <a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>.Append(" SELECT * FROM WORDINFO") <a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>.Append(" WHERE ENGLISHNAME='").Append(Englishname).Append("'") Dim cmd As New OleDb.OleDbCommand(<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>.ToString,DBConnection) Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd) Dim DT As New DataTable RS.Fill(DT) DBConnection.Close() '有查到则<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>出来 If DT.Rows.Count = 0 Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("No Record ",Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Style.Critical,"Error") Exit Sub Else '界面初始化 Modifybtn.Enabled = True Deletebtn.Enabled = True 'EnglishNameT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Enabled = True Chi<a href="https://www.jb51.cc/tag/nes/" target="_blank" class="keywords">nes</a>eNameT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Enabled = True Cla<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a><a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Enabled = True InsertPicLinkLab.Enabled = True InsertVoiceLinkLab.Enabled = True TestLinkLab.Enabled = True RecordLinkLab.Enabled = True Printbtn.Enabled = True SearchT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = "" ’上面你可以不要看了，关键来咯，下面是开始<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a><a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a> Picturebyte = DT.Rows(0).Item(1) Picture<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.Image = Bitmap.FromStream(New IO.MemoryStream(Picturebyte,True),True) EnglishNameT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = DT.Rows(0).Item(2).ToString Chi<a href="https://www.jb51.cc/tag/nes/" target="_blank" class="keywords">nes</a>eNameT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = DT.Rows(0).Item(3).ToString Cla<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a><a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = DT.Rows(0).Item(5).ToString ‘这里是取出声音<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>了，需要交代的是，我研究了很久（套用行家台词），没找到好的<a href="https://www.jb51.cc/tag/fangfa/" target="_blank" class="keywords">方法</a>， ‘好像只能先把声音<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>暂存出来，然后你去播放之类的动作。不知道能不能直接播放流<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>， ’或者有其他的<a href="https://www.jb51.cc/tag/fangfa/" target="_blank" class="keywords">方法</a>，这个是刚刚想到的，呵呵，以后去尝试下。 With stream .Mode = ADODB.ConnectModeEnum.adModeReadWrite .Type = ADODB.StreamTypeEnum.adTypeBinary .<a href="https://www.jb51.cc/tag/open/" target="_blank" class="keywords">open()</a> .Write(DT.Rows(0).Item(4)) .Sav<a href="https://www.jb51.cc/tag/eto/" target="_blank" class="keywords">eto</a>File("c:/test.wav ",ADODB.SaveOptionsEnum.adSaveCreateOverWrite) End With VoiceT<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = "c:/test.wav " End If Else Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("English Name is empty","Error") End If

OK，上面一些话呢就是说了下存储和读取了，其他的更新之类的就不要说了吧？我想大家肯定比我还聪明。

不知道这样用代码来说，能不能帮助到大家清楚这些操作方法呢，希望大家能和我交流，我的空间里有联系方式。

最后呢，我还要啰嗦下，其实图片和声音之类的文件太大，或者你的程序中用到很多的话，还是不要直接存储到数据库里，自己单独用

一个文件夹放置他们，然后呢你就把这些文件的地址保存到数据库里，这样来说就会很合理化了，不会影响到数据库和程序的性能。

我这里只是做一个介绍，大的项目就要有性能方面的考虑了。好了，就说这么多，谢谢！