VB如何连接ACCESS数据库详解-.pdf

《VB如何连接ACCESS数据库详解-.pdf》由会员分享，可在线阅读，更多相关《VB如何连接ACCESS数据库详解-.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步:读取文件 -格式化数据 -关闭文件 -使用数据如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要 格式化数据 时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受.相对文本文件来说数据库的使用也大致分为以下几步:打开

2、数据库 -查找数据 -使用数据 -关闭数据库从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的.其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个 Textbox 中取出有用的信息,并进行处理,而 Listbox 则可以根据需要返回特定的某一项.由于 VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用 ADODB,相比 DAO 和能访问数据库的API来说,它比 DAO 更灵活,更强大;而比起 A

3、PI,它更简单易用,更适合初学者.而Access 数据库比起 SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了 Access.就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access 数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是 office中的 Access 或 VB自带的 VISDATA.当数据库设计好了以后,我们可以开始 数据库编程 了.首先,我们需要引用 ADO.具体的方法是,在 工程-引用 中,找到Microsoft ActiveX Data Object*.*Library,这里的*.*是

4、指的时 ADO 的版本号,一般来说,应用程序或 ActiveX 控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access 的同时,也能识别较新版本的 Access.然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox 才能看到文件名一样,只有创建了 ADO 对象,我们才能够访问数据库.常用的对象有两个,Connection 和 Recordset.创建这两个对象的具体方法是:1.在引用后,使用 New关键字,如Private Conn As New ADODB.Connection Private Reco As New ADODB.Re

5、cordset 2.在没引用时,用 CreateObject创建对象:Dim Conn,Reco Set Conn=CreateObject(ADODB.Connection)Set Reco=CreateObject(ADODB.Recordset)创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库.Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Main.mdb 这句代码打开了 D盘中的 Main.mdb 这个数据库.Connection.Open方法的第一个参数是连接代码,它将传递给系统

6、的数据库引擎.前半部分 Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句 Source=d:main.mdb 它表示了数据库所在的绝对路径.打开数据库之后,还要打开表.假如数据库中有一个表,表名为 Users,字段有两个,一个为用户名,一个为密码.那么看以下代码.1.想返回 Users 中,用户名 为去年烟花 的 密码 Recordset.open Select 密码 From Users Where 用户名=去年烟花,Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录.If Records

7、et.eof and Recordset.bof then Msgbox 用户不存在!,16 Else If PassWord=Recordset(密码).value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If Recordset.Close 2.假设 Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来Recordset.open Select*From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来.Do whlie Not Recordset.eof Print 用

8、户名:&Recordset(用户名).value&密码:&Recordset(密码).value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是 SQL语句.Select 字段名 From 表名 Where 条件 这里的条件可以省略.且字段名也可以用*来代替所有字段.需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开 用户名 字段,所以这一句 Recordset(密码)就没有值存在,还有可能出错.后面的条件,可以用

9、=、32.(这里假设ID 为数字型.)这是打开的部分.第二个很重要的部分就是查询记录.数据库它并不是把所有记录全部放到一个变量中备用的.而是以 当前记录 的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.定位:移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number 筛选:Recordset.Find 条件 如:用方法(2)打开表之后 Privat

10、e Sub Command1_Click()Recordset.Find 用户名=&text1.text If Recordset.Eof True Then Msgbox 该用户的密码是:&Recordset(密码).value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当 Eof 不为 True 时,才可用,否则发生错误.而 MovePrevious 刚是Bof 不为 True 时.而只要 Eof 和 Bof 中有一个不为真时,也就是说只要有一条记录时,它就可以使用.Find 方法中的条件和 Open时的第一个参数中的条件

11、表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof 为 True.找到则当前的值就是符合条件的记录.第三个部分就是添加/修改记录.修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.比如:(修改密码)按方法(1)打开表之后 Recordset(密码).value=123456 Recordset.Updata 需要注意的就是,在修改完成后,要调用 Updata 方法,这样修改才能生效.而添加记录则可以用以下代码来实现:Recordset.addnew Recordset(用户名).value=Admin Recordset(密码).value=Admin Rec

12、ordset.Updata 这里,先要调用 Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用 Updata 方法.到这里就差不多了,最后说一下上面提到的几个方法.Recordset.Open SQL 语句,数据源,游标类型,打开方法SQL语句不用说了,就是 Select 那啥的,目的就是按要求从表中返回数据数据源就是一个打开之后的Connection 对象.去他妈的游标类型,填 1 就可以了 偷笑 ing 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.对应数值的意义:1 只读 2 独占 3 可写 4 自已可写,别人可读Connection.open 连接代码,服务器用户名,密码这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.