vb.net操作数据库之ACCESS（1）

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

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

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

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

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

好了，先说连接方面：

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

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

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

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

User ID=myUsername;Password=myPassword

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

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

‘这里就是“查询”部分咯，具体怎么查是写SQL的问题了，先不讨论 ’先连接 DBConnection.ConnectionString = DB_CnStr() DBConnection.Open() '开始查询 Dim sql As New System.Text.StringBuilder sql.Append(" SELECT * FROM WORDINFO") sql.Append(" WHERE CLASS='").Append(Classstring).Append("'") Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection) Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd) DT = New DataTable RS.Fill(DT) DBConnection.Close() '有查到则显示出来 Rowcount = DT.Rows.Count If Rowcount = 0 Then MsgBox("No Record ",BoxStyle.Critical, "Error") Me.Close() else '这里写显示数据或者应用数据，自己看吧 end if ‘开始演示“增加”功能吧，我这里只是演示这个执行的功能，怕有人看不懂，所以在源代码上修改了下 str = New System.Text.StringBuilder str.Append(" INSERT INTO WORDINFO ([PICTURE],[ENGLISHNAME],[CHINESENAME],[VOICE],[Class]) ") str.Append(" VALUES(PICTURE,ENGLISHNAME,CHINESENAME,VOICE,Class)") ‘上面就是一般的SQL而已，下面这句很关键，是执行语句。 cmd.ExecuteNonQuery() ’下面是“修改”了。 DBConnection.ConnectionString = DB_CnStr() DBConnection.Open() Dim str As New System.Text.StringBuilder str.Append(" UPDATE USERINFO ") str.Append(" SET [PASSWORD]='").Append(Password).Append("'") str.Append(" WHERE [USERNAME]= '").Append(Username).Append("'") Debug.WriteLine("") Debug.WriteLine(str.ToString) Dim cmd As New OleDb.OleDbCommand(str.ToString, DBConnection) cmd.ExecuteNonQuery() MsgBox("Update OK", MsgBoxStyle.Information) ‘好了，最后一个“删除” Dim str As New System.Text.StringBuilder str.Append(" DELETE FROM USERINFO ") str.Append(" WHERE ") str.Append(" [USERNAME]= '").Append(username).Append("'") Debug.WriteLine("") Debug.WriteLine(str.ToString) cmd = New OleDb.OleDbCommand(str.ToString, DBConnection) cmd.ExecuteNonQuery() MsgBox("删除完成", MsgBoxStyle.Information)
不知道大家有没有看清楚，这里就是一个ACCESS操作的基本内容了。我想你这些明白了，数据库操作也该明白一大半了。

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

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

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

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

vb.net操作数据库之ACCESS（1）相关推荐

vb.net操作数据库之ACCESS(一)
转载自:http://blog.csdn.net/machong8183/article/details/5488191 一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧, ...
vb.net操作数据库之ACCESS（2）
上一篇中我已经说了下如何操作ACCESS数据库,下面来说说存取图片,声音之类的问题. 由于图片,声音不能直接存储,这里就要用到数据流方式了.对于.NET中的一些术语概念我仍然很迷糊,在学习中.主要我不 ...
vb.net操作数据库之ACCESS（3）
这一篇我再说说水晶报表的情况.ACCESS中对应水晶报表方面,大家可能会遇到的最多的问题应该就是打开报表后会出现需要登录的问题. 这个是为什么呢?明明我没有设置密码,怎么会有要输入密码呢?如果你够沉 ...
vb adodb mysql_VB6实现连接Access数据库的ADODB代码实现方法
本文实例讲述了使用ADODB.Connection连接access数据库的方法,驱动类型版本为:Microsoft.Jet.OLEDB.4.0.在VB的数据库操作中,连接数据库是第一步,也是最基本的, ...
学习记录：VB.NET.操作ACCESS数据库
从98年到现在,VB6使用了20多年,真的舍不得扔掉,但是随着新计算机预装操作系统的版本越来越高,做好的安装包在安装时遇到的问题越来越多,无奈之下只能转向使用VB.NET了.安装了VS2005来学习, ...
VB和VB.net环境下链接Access、SQL数据库的方法及技巧（Access篇）
ACCESS数据库: VB环境下方法一:用代码链接步骤一: 在工程引用Microsoft ActiveX Data Objects 2.8 Library '2.5 2.6 2.7 2.8 随你 ...
将DataSet中的操作更新到Access数据库
代码如下: <%@import Namespace =Namespace=system.data%> <%@import Namespace =Namespace=system.da ...
Sql Server 和 Access 操作数据库结构Sql语句
下面是Sql Server 和 Access 操作数据库结构的常用Sql,希望对你有所帮助. 新建表: create table [表名] ( [自动编号字段] int IDENTITY (1,1) ...
VS2010 数据库操作（基于Access 2013）
这几天老师让我做一个实现从VS2010中向Access数据库读写数据的程序.我想起当初学习VS的时候做过一个类似的密码管理器,就是利用数据库的一些知识.当时也是突发奇想,找了各种资料,总算有了个结果, ...

vb.net操作数据库之ACCESS（1）

vb.net操作数据库之ACCESS（1）相关推荐

最新文章

热门文章