|
ansferType:=acImport,_ 执行转换的类型 DatabaseType:=dBase III,_ 导入数据库的类型 DatabaseName:=APPPATH,_ 数据库的名称 ObjectType:=actable,_ 导入对象的类型 Source:=Customer,_ 导入源对象的名称 Destination:=tblCustomer,_ 导入目标对象的名称 StructureOnly:=False 只导入表的结构,还是结构、数据都导入 End sub
4.2 数据访问技术 本系统选用DAO(Data Access Objects)技术。 DAO代码可以创建、修改和删除Jet引擎对象,使用它可以完成以下工作: ● 分析已存在的数据库结构 ● 增加或修改表和查询 ● 创建新数据库 ● 通过修改查询所基于的SQL来改变查询定义 ● 遍历记录集 ● 修改表数据
4.3 展示数据 在Office解决方案中有许多不同的展示数据的方法,如何建构报表依赖于解决方案是如何设计的以及数据存储在什么地方。本系统解决方案以Access为基础,用户可以通过Access窗体和数据访问页面操作数据;同时若需要在Excel中观察和操作数据,以便以最大的灵活性来创建定制报表,可以把数据从Access中导入到Excel。 在Access运行的代码里使用Automation创建Excel的查询表QueryTable或PivotTable报表。使用Automation可以使用户对从数据库到Excel转换数据的过程进行更多的控制,还可以使用Automation来格式化报表,过滤数据,创建统计图等。用户能够在Access中简单地单击一个按钮,就得到Excel中已格式化的报表。 下面的示例创建一个新的数据库查询并把数据返回到工作表,建立动态报表。 要在VBA中创建一个新的查询表,使用QueryTables集合的Add方法。
QueryTables集合从属于Worksheet对象,并且包含了该工作表的所有QueryTable对象。创建了一个新的查询表后,必须使用QueryTable对象的Refresh方法在查询表中显示数据。 Dim dbReset As Database Dim rstReset As Recordset Dim wksNew As Excel.Worksheet Dim qtbData As Excel.QueryTable ...... Set rstReset = dbReset.OpenRecordset(营业部) Set qtbData = _ wksNew.QueryTables.Add(rstReset, wksNew.Range(A4)) Set qtbData = wksNew.QueryTables.Add( _ Connection:=rstReset, _ Destination:=wksNew.Range(A4)) With qtbData .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = False . 上一页 [1] [2] [3] [4] 下一页
|