一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现CSDN上

还是每天有人要问这些内容，我有的时候就懒的回答，呵呵，主要不断的去找代码给他们累啊。所以还是听高人的，来

个一劳永逸，自己重新温习下，也好给其他人一些帮助。

 

    这个数据库操作我会写个系列性的吧， 先写ACCESS。不知道这个一篇能写多长，不行我要分级篇了。

    其实ACCESS的操作基本都其他数据库一个样，只是长的不一样，大家有种畏惧还是陌生？其实是纸老虎啦。

 

    好了，先说连接方面：


[vb] view plain copy print ? 



    1. Public Function DB_CnStr() As String
2. Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "./FlashCard.mdb"
3. End Function


     

      上面的代码就是一个公用函数，因为多处要用到，懒得每次都写，直接调用下就OK了。中间部分就是一个数据库连接字串，

    Data Source=" & Application.StartupPath & "./FlashCard.mdb"这里就是设置你的数据库地址，具体代码不用我解释了吧？

     

        如果有密码就需要再加一个账号密码了.

     

         User ID=myUsername;Password=myPassword

     

    这个资料太多了，也基本差不多，随便抓抓就来咯。

     

    那下面是不是要说说如何操作了？对，操作数据库嘛，无非就是查询，增加，删除，修改这几种。代码方面基本也差不多了，只是SQL上要换名字。废话不说了，直接上代码好了。


    [vb] view plain copy print ?


    不知道大家有没有看清楚， 这里就是一个ACCESS操作的基本内容了。我想你这些明白了，数据库操作也该明白一大半了。 

    1. ‘这里就是“查询”部分咯，具体怎么查是写SQL的问题了，先不讨论  
2.         ’先连接  
3.         DBConnection.ConnectionString = DB_CnStr()  
4.         DBConnection.Open()  
5. '开始查询
6. Dim sql As New
7.   
8. " SELECT * FROM WORDINFO")  
9. " WHERE  CLASS='").Append(Classstring).Append("'")  
10.   
11. Dim cmd As New
12. Dim RS As OleDb.OleDbDataAdapter = New
13. New
14.   
15.         RS.Fill(DT)  
16.         DBConnection.Close()  
17.   
18. '有查到则显示出来
19.         Rowcount = DT.Rows.Count  
20. If Rowcount = 0 Then
21. "No Record ",BoxStyle.Critical, "Error")  
22. Me.Close()  
23.         else  
24. '这里写显示数据或者应用数据，自己看吧
25.          end if  
26.   
27. ‘开始演示“增加”功能吧，我这里只是演示这个执行的功能，怕有人看不懂，所以在源代码上修改了下  
28. New
29. "  INSERT INTO WORDINFO ([PICTURE],[ENGLISHNAME],[CHINESENAME],[VOICE],[Class]) ")  
30. " VALUES(PICTURE,ENGLISHNAME,CHINESENAME,VOICE,Class)")  
31. ‘上面就是一般的SQL而已，下面这句很关键，是执行语句。  
32.                         cmd.ExecuteNonQuery()  
33.   
34. ’下面是“修改”了。  
35.  DBConnection.ConnectionString = DB_CnStr()  
36.             DBConnection.Open()  
37.   
38. Dim str As New
39. "  UPDATE  USERINFO  ")  
40. "  SET  [PASSWORD]='").Append(Password).Append("'")  
41. "  WHERE [USERNAME]= '").Append(Username).Append("'")  
42.   
43. "")  
44.             Debug.WriteLine(str.ToString)  
45. Dim cmd As New
46.             cmd.ExecuteNonQuery()  
47.   
48. "Update OK", MsgBoxStyle.Information)  
49. ‘好了，最后一个“删除”  
50. Dim str As New
51. "  DELETE FROM  USERINFO  ")  
52. "  WHERE ")  
53. "  [USERNAME]= '").Append(username).Append("'")  
54. "")  
55.                     Debug.WriteLine(str.ToString)  
56. New
57.                     cmd.ExecuteNonQuery()  
58. "删除完成", MsgBoxStyle.Information)

    这里我要考下看官了，你有没有注意到查询和新增、插入等有什么区别没？注意看哦，栏位的名称在查询中没有加括号，而

    在其他的地方有，为什么呢？我也不知道，哈哈！但是一定要加哦，不加ACCESS就不认识，不能成功。记得！！

     

    还有的一些问题，比如存储图片啊，声音啊之类的文件，如何读取然后显示或者播放啊，这又一个技术问题了，呵呵，卖弄下。