设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2669|回复: 5
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2006-11-6 01:42:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
哪位能帮下我,我想用excel做前台,accec做数据库,使用excel通过ado来调用已有的accec数据库里面的数据到excel相应的单元格~如:把jzhygda.mdb里面姓名栅的彭金生引到excel里面的姓名这列的单元格怎么做,还身份证码,参加工作时间等~

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

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

谢谢~

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-11-6 01:55:00 | 只看该作者

用Access做前台不是更好吗?

用Access做前台不是更好吗?,Access自身那么多好控件,而且可增加控件...
3#
发表于 2006-11-6 02:56:00 | 只看该作者
在 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编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2006-11-6 06:47:00 | 只看该作者
能不能不设置级别,我无法下载到你的附件~我是位新手来的~很想学VBA,wu8313可以把帮我做哪个附发给我吗?我的email是:pkingson@163.com
5#
 楼主| 发表于 2006-11-6 06:50:00 | 只看该作者
能不能不设置级别,我无法下载到你的附件~我是位新手来的~很想学VBA,wu8313可以把帮我做哪个附发给我吗?我的email是:pkingson@163.com

wu8313你帮我做的例子里面什么都没有~可以重新上传吗?
6#
发表于 2006-11-7 01:54:00 | 只看该作者
好的,重新上传。


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 17:24 , Processed in 0.091375 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表