vb.net操作数据库之ACCESS(一)

转载自:http://blog.csdn.net/machong8183/article/details/5488191

一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现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 ?

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

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

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

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

 

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

别急，我在下一篇ACCESS中来详细说明。

后续转载教程:

vb.net操作数据库之ACCESS（2） - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://blog.csdn.net/machong8183/article/details/5488300

vb.net操作数据库之ACCESS（3） - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://blog.csdn.net/machong8183/article/details/5488678