第五单元 VB访问Access数据库.ppt

技术 技术 第五单元　VB访问Access数据库 夯实考点 考点　VB访问Access数据库 1.通过ADO对象连接数据库 VB中使用ADO访问数据库。ADO是微软公司提供的一种应用程序访问数据库的编程接口。该接口包含了多个对象,其中Connection对象用于和数据库建立连接,在建立连接后,用Recordset对象查询数据表。 ●Connection对象 用Connection建立和数据库的连接时,需要设置连接字符串ConnectionString的参数。下列语句定义一个Connection对象的实例conn,并设置conn的连接字符串: Dim conn As New ADODB.Connection 　conn.ConnectionString=Provider=Microsoft.ACE.OLEDB.12.0;DATA Source=App.Path\Contacts.accdb 其中,参数Provider用于指定连接的提供者(Microsoft.ACE.OLEDB.12.0可以访问Access2010数据库),DATA Source用于指定数据库的文件名(含绝对路径),App.Path返回当前应用程序所在的绝对路径。 Connection对象具有Open、Close等方法,其中Open方法用于建立到数据源的连接,Close方法用于关闭连接。 2.通过Recordset对象获取数据表中的数据 ●Recordset对象 用Recordset对象从数据库中查询记录时,要设置ActiveConnection属性的值。语句Set rs.ActiveConnection=conn,使Recordset对象的实例rs与Connection对象的实例conn建立关联。 在与conn建立关联后,可用Recordset对象的Open方法查询数据表的记录。Open方法的参数为SQL命令。 如:rs.OpenSELECT*FROM info运行后,记录集rs中的数据为SQL语句SELECT*FROM info查询到的记录。Recordset对象的Close方法用于关闭对象。 Recordset对象的Fields集合用于返回当前记录中的数据,如:rs.Fields (fName)返回当前记录中“fName”字段的值;rs.Fields(1)返回当前记录中第一个字段的值,如果第一个字段名为“fName”,rs.Fields(1)与rs.Fields(fName)返回值相同。 Recordset对象的MoveNext方法用于把当前移动到下一条记录。若到结尾处还继续向下移动,程序会出错,因此在使用MoveNext时要判断Recordset的EOF属性,判断是不是到达结尾处。EOF属性取值为“True”或“False”。 3.Select语句 Select语句是结构化查询语言SQL中最常见的语句,主要用于从数据表中查询数据,如语句“SELECT*FROM info”表示查询数据表“info”中的全部数据。 典例1 将Access数据表中的第一条记录在VB文本框中显示。 (1)准备Access数据库。在文件夹“VB访问Access数据库”下的“test41”文件夹中存有数据库文件“cityaqi.mdb”,其“aqi”表的结构与部分数据分别如图5-1与图5-2所示: (2)建立VB工程、选择ADO引用。新建VB工程,将窗体与工程分别以“test41.frm”与“test41.vbp”为名保存于“test41”文件夹中,打开“工程”菜单,单击“引用”项,在弹出的对话框中勾选“Microsoft ActiveX Data Objects 6.0 Library”引用项,如图5-3所示: (3)在标签框中显示数据表中的数据。建立如图5-4所示: 命令按钮“显示”(Command1)和“退出”(Command2)的事件处理过程代码如下: Private Sub Command1_Click() 　　Dim conn As New ADODB.Connection 　　Dim rs As New ADODB.Recordset 　　conn.ConnectionString=Provider=Microsoft.ACE.OLEDB.12.0.DATA Source=App.Path\cityaqi.mdb 　　conn.Open 　　Set rs.ActiveConnection=conn 　　rs.OpenSELECT*FROM aqi 　　Text1.Text=rs.Fields(地区) 　　Text2.Text=rs.Fields(aqi) 　　Text3.Text=rs.Fields(等级) 　　rs.Close 　　conn.Close 　　Set