[求助]哪位能帮下我,我想用excel做前台,accec做数据库

pkingson

哪位能帮下我,我想用excel做前台,accec做数据库,使用excel通过ado来调用已有的accec数据库里面的数据到excel相应的单元格~如:把jzhygda.mdb里面姓名栅的彭金生引到excel里面的姓名这列的单元格怎么做,还身份证码,参加工作时间等~

急用.因为很多数据都是已经有的,如果不能调用,那么要重新录入,要很多时间~

相关表格和数据库见附件~

谢谢~

wu8313

好的，重新上传。

[此贴子已经被作者于2006-11-6 17:53:48编辑过]

pkingson

能不能不设置级别,我无法下载到你的附件~我是位新手来的~很想学VBA,wu8313可以把帮我做哪个附发给我吗?我的email是:pkingson@163.com

wu8313你帮我做的例子里面什么都没有~可以重新上传吗?

pkingson

能不能不设置级别,我无法下载到你的附件~我是位新手来的~很想学VBA,wu8313可以把帮我做哪个附发给我吗?我的email是:pkingson@163.com

wu8313

在 excel 中使用 查询表 的方法可以实现你的要求。


QueryTables 集合对象





        



        



        


















[url=mkMSITStore:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/xlobjWorksheet.htm][img]mkMSITStore:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/images/workshee.bmp[/img][/url]
[img]mkMSITStore:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/images/parchild.bmp[/img]



QueryTable 对象的集合。每个 QueryTable 对象代表一张由外部数据源返回数据建立的工作表。


使用 QueryTables 集合


使用 QueryTables 属性可返回 QueryTables 集合。下列示例显示活动工作表中的查询表数目。

1. MsgBox ActiveSheet.QueryTables.Count

复制代码

使用 Add 方法可创建一个新的查询表，并将它加入到 QueryTables 集合中。下例创建一个新的查询表。

1. Dim qt As QueryTable
   sqlstring = "select 96Sales.totals from 96Sales where profit < 5"
   connstring = _
       "ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
   With ActiveSheet.QueryTables.Add(Connection:=connstring, _
           Destination:=Range("B1"), Sql:=sqlstring)
       .Refresh
   End With

复制代码

1. ====================================

复制代码

1. 在 excel 中的代码如下：

复制代码

1. Private Sub CommandButton1_Click()

复制代码

1. With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\jzhygda.mdb;DefaultDir=;", Destination:=Range("b6"))
   .CommandText = Array( _
   "SELECT ae职员表.职员姓名" & Chr(13) & "" & Chr(10) & "FROM ae职员表")
   .Name = "查询来自 my_querytable"
   .FieldNames = True
   .RowNumbers = False
   .FillAdjacentFormulas = False
   .PreserveFormatting = True
   .RefreshOnFileOpen = False
   .BackgroundQuery = True
   .RefreshStyle = xlInsertDeleteCells
   .SavePassword = True
   .SaveData = True
   .AdjustColumnWidth = True
   .RefreshPeriod = 0
   .PreserveColumnInfo = True
   .Refresh BackgroundQuery:=False
   End With

复制代码

1. End Sub
   ==================================

复制代码

[code][/code] 在excel中单击按钮，可以自动填充 姓名。

[此贴子已经被作者于2006-11-5 19:38:29编辑过]

xryaccess2

用Access做前台不是更好吗?,Access自身那么多好控件,而且可增加控件...