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

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

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

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

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

 

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

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

 

    好了,先说连接方面:

  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上要换名字。废话不说了,直接上代码好了。

  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


阅读更多
个人分类: vb.net access 数据库
想对作者说点什么? 我来说一句

vb.net操作access数据库实例

2009年08月05日 116KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭