Office中国论坛/Access中国论坛

标题: [求助]哪位能帮下我,我想用excel做前台,accec做数据库 [打印本页]

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

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

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

谢谢~[attach]21357[/attach]

作者: xryaccess2 时间: 2006-11-6 01:55
标题: 用Access做前台不是更好吗?
用Access做前台不是更好吗?,Access自身那么多好控件,而且可增加控件...

作者: wu8313 时间: 2006-11-6 02:56
在 excel 中使用查询表的方法可以实现你的要求。

QueryTables 集合对象







[url=mk

MSITStore

:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/xlobjWorksheet.htm][img]mk

MSITStore

:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/images/workshee.bmp[/img][/url]
[img]mk

MSITStore

:\office2000%20exe\Office\2052\VBAXL9.CHM::/html/images/parchild.bmp[/img]

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

使用 QueryTables 集合

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

MsgBox ActiveSheet.QueryTables.Count

复制代码

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

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

复制代码

====================================

复制代码

在 excel 中的代码如下：

复制代码

Private Sub CommandButton1_Click()

复制代码

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

复制代码

End Sub
==================================

复制代码

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

[attach]21359[/attach]

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

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

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

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

作者: wu8313 时间: 2006-11-7 01:54
好的，重新上传。[attach]21374[/attach]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)