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

第五单元 VB访问Access数据库;夯实考点;　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 rs=Nothing 　　Set conn=Nothing End Sub Private Sub Command2_Click() 　　End End Sub;(4)运行程序。单击“显示”按钮,结果如图5-5所示:;典例2 在典例1的基础上,添加一个按钮对象Command3(即“下一条”按钮),增加和修改相关代码实现:单击“下一条”按钮时,在文本框Text1和Text2显示下一条记录,显示完最后一条记录时提示“记录已全部显示完!”。程序运行界面如图5-6所示:;(2)命令按钮“显示”(Command1)和“下一条”(Command3)的事件处理过程代