文件名称：编写从数据库到工作表的数据-mathematical statistics with applications
文件大小：13.45MB
文件格式：PDF
更新时间：2024-06-22 08:02:57
excel,VBA
21.3 使用ADO 绝大多数E x c e l开发人员在使用 A D O时有一个目的：从数据库获取数据导入到工作簿中。 实现这个目的的基本步骤如下： 1）建立到数据源的连接。 2）获取对记录集的访问。 3）从记录集得到记录。 4）关闭到数据源的连接。 21.4 添加到ADO库的引用 在开始编写代码之前，需要创建一个到 A D O库的引用，使用下面的步骤来实现这一点： 1）选择“工具”、“引用”，“引用”对话框显示出来。 2）找到Microsoft ActiveX Data Objects 2.0 Library复选框并选中它。 3）单击“确定”按钮，对A D O库的引用就添加到应用程序中了。 21.5 编写从数据库到工作表的数据 因为编写从数据库到工作表的数据是绝大多数 E x c e l开发人员想做的关键事情之一，所以 下面将开始这项工作来学习A D O。在新建的工作簿中，创建程序清单 2 1 - 1中给出的过程。 程序清单21-1 GoGetProducts过程 1: Sub GoGetProducts () 2: Dim rsProducts As ADODB.Recordset 3: Set rsProducts = New ADODB.Recordset 4: rsProducts.Open Source:= "P r o d u c t s", _ 5: activeconnection:= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= _ 6: C:\Program Files\Microsoft Off i c e \ O ff i c e \ S a m p l e s \ N o r t h w i n d . m d b", _ 7: CursorType:=adOpenStatic, _ 8: LockTy p e : = a d L o c k O p t i m i s t i c , _ 9: Options:=adCmdTa b l e 10: With Wo r k s h e e t s ("S h e e t 1") 11: .Range("A 1") . C u r r e n t R e g i o n . C l e a r 代码中的长语句分为几行是出于本书每行长度的限制。笔者建议你在 自己的过程中输入虚线作为一个长行。 12: Application.Intersect(.Range(.Rows(1), →. R o w s ( r s P r o d u c t s . R e c o r d C o u n t ) ) , →. R a n g e ( . C o l u m n s ( 1 ) , . C o l u m n s ( r s P r o d u c t s . F i e l d s . C o u n t ) ) ) . →Value = Tr a n s p o s e A r r a y ( r s P r o d u c t s . G e t R o w s →( r s P r o d u c t s . R e c o r d C o u n t ) ) 13: End Wi t h 1 4 : 15: rsProducts.Close 16: End Sub 这个过程从一开始就使用记录集对象，现在，我们来看一看记录集对象的 O p e n方法。在 第21学时 使用 ADO访问数据使用177