VB连接Access数据库-.pdf

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

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

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

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

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

5、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方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分 Provide

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

7、 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*FromUsers,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来.Do whlie Not Recordset.eof Print 用户名:&Recordset(用户名).value&

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

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

10、d 用户名=&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时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof 为 T

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

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

13、库时才用到.VB如何连接 access 数据库2009年 07 月 25 日 星期六 下午 07:07 VB如何连接 access 数据库？最近在学习VB，正在研究当中！今天告诉大家 VB连接数据库的方法，我知道的有两种：一种是在 adodc1 的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为 message,然后把里面的字段名称

14、和数据类型都按自己的需要设置好.然后保存就可以了.打开 Microsoft Visual Basic6.0 我用的是 VB6.0,在需要调用数据库的窗体上加入一个 adodc 控件,默认名称为:Adodc1.默认的情况下工具栏里是没有这个控件的,可以打开工程-部件(快捷键 CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后确定，工具栏就会多了一个adodc的控件。第一种方法，设置adodc1 的属以连接数据库.在 adodc1控件上右键-Adodc 属性-使用连接字符串-生成-Microsoft Jet 4.0 OLE DB

15、Provider-下一步-选择或输入数据库名称-找到要连接的数据库后,确定.然后记录源设置属性.如果要把内容提交到数据库一般使用adCmdTable.表选择要连接的表。设置完毕后就可以了.如果我们想把内容提交到数据库.举个例子.在窗体建立一个文本框,设置属性中的 DataSource 为 adodc1 DataField为要连接的数据库的字段名。如果数据库中有字段，会让你选择。设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：Private Sub Command1_Click()Adodc1.Recordset.Update 保存Adodc1.Refresh 刷新End Sub 添加按

16、钮代码:Private Sub Command2_Click()Adodc1.Recordset.AddNew 添加新纪录Adodc1.Recordset(姓名).Value=Text1.Text End Sub 第二种方法:在窗体添加 Adodc控件一个 text控件 一个添加记录按钮一个提交按钮在窗体设置代码:Private Sub Form_Load()Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+App.Path+db1.mdb;Persist Security Info=False 设置数据

17、库路径Adodc1.CommandType=adCmdText 设置记录源Adodc1.RecordSource=select*from message 连接数据库的 message表文件Set Text1.DataSource=Adodc1 text1.DataField=姓名 End Sub 添加记录按钮代码：Private Sub Command1_Click()Adodc1.Recordset.AddNew 添加新纪录End Sub 提交代码：Private Sub Command2_Click()Adodc1.Recordset.Update 保存Adodc1.Refresh 刷新E

18、nd Sub 好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。如果有问题请多看几遍，或看些别人写的程序代码，会有很大进步的，我的 VB也不好,因为不是计算机专业的，老师也没有教很多,高手莫笑。好了我再给大家几个查询数据库常用的代码：首记录按钮的代码：Private Sub sjl_Click()Adodc1.Recordset.MoveFirst End Sub 上一条记录按钮代码：Private Sub up_Click()Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.Mo

19、veFirst End If End Sub 下一条记录代码：Private Sub down_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub 末记录代码：Private Sub mjl_Click()Adodc1.Recordset.MoveLast End Sub 删除记录代码：Private Sub Command3_Click()Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If(Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF)Then MsgBox 已经无纪录,提示 End If End Sub