浙江高考选考Access数据库.pptx

Private Sub Form_Load（） Dim strSQL As String Command2. Enabled=False Conn. Connectionstring =provider = Microsoft. Jet. oledb. 4. 05Data source = + App. Path+\supermarket. accdb” Conn. Open Set rs. ActiveConnection=Conn strSQL= select * from 销售数据表 rs. Open strSQL n=0 Do While Not rs. EOF n=n+l Listl. Addltem rs. Fields(”商品” + +Str(rs. Fields(销售额））+元” nam(n) = rs.FieldS(商品) sal(n) = rS.FieldSr (销售额) rs. MoveNext Loop rs. Close Conn.Close Set rs= Nothing Set Conn= Nothing End Sub ;5.6算法在数据管理中的应用;记录集recordset ;数据库文件名为 数据表名称为 ; ADO(ActiveX Data Objects)：是微软公司提供的一种新的数据库的存取技术，是应用程序访问数据库的编程接口。通过ADO可引用包括SQL Server、Oracle、ACCESS 等数据库、甚至EXCEL表格、文本文件、图形文件和无格式的数据文件在内的任何一种OLE DB数据源。该接口主要包含了三个对象成员(可编程对象集合)：Connection对象、Command对象和Recordset对象。 主要学习两个对象，Connection对象用于和数据库建立连接，通常命名为conn。在建立连接后，用Recordset对象查询数据表，通常命名为rs。;对象名;VB中使用ADO;数据库;01 |建立数据库连接;02 |建立记录集（数据表）连接;03 |数据库记录的显示;03 |数据库记录的显示;Dim xm(100) As String,cj(100) As Integer;Do语句代码： i=0 Do While __________ i=i+1 ________________ rs.MoveNext Loop;RecordSet对象的基本方法和属性;04 |VB访问ACCESS数据库通常的方法;连接库;实践体验;实践体验;实践体验;实践体验;99 | 作业;练习1：使用VB中的ADO访问Access 2010数据库，与数据库建立连接的代码段如下： Dim conn As New ADODB.Connection conn.ConnectionString = Provider = Microsoft.ACE.OLEDB.12.0;Data Source= App.Path \souce. accdb conn. Open 连接的数据库文件名为（ ） 定义的ADO的Connection对象实例名称为（ ） A. conn B. app.path C. souce.accdb D. ACE.OLEDB 建立数据库连接的基本过程：（1）定义连接数据库的对象。 （2）确定连接的数据库。（3）打开到数据库的连接。;练习2：使用VB中的ADO访问文件名为“Course. accdb”的Access数???库，与数据库建立连接的代码段如下： Dim conn As New ADODB.Connection conn.ConnectionString = Provider = Microsoft.ACE.OLEDB.12.0;Data Source= App.Path \Course. accdb conn. Open 在调试时出现了如图所示的错误提示框。 产生该错误提示的原因可能是（ ） A. 没有定义ADO的Connection对象实例 B. 没有打开Connection对象实例到数据库的连接 C. 指定的数据库文件不存在 D. 没有添加选择Microsoft ActiveX Data Objects 6.0 Library组件;练习3：通过ADO的RecordSet对象从数据库中获取数据，有以下程序段： Dim rs As New ADODB.RecordSet Set rs. ActiveConnectio