乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 45|回复: 2

请教:vba怎样与Access数据库联接??

[复制链接]

19

主题

33

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2005-9-7 07:26:00 | 显示全部楼层 |阅读模式
怎样用vba读取Access数据库中的数据??
回复

使用道具 举报

6

主题

11

帖子

1

银币

初来乍到

Rank: 1

铜币
35
发表于 2005-9-7 09:24:00 | 显示全部楼层
随便一本vba的书上都应该有阿,找本书看看吧
回复

使用道具 举报

3

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
18
发表于 2006-1-17 09:43:00 | 显示全部楼层
    Dim adocon                      As Connection
    Dim adors                       As Recordset
    Dim strpath                     As String

    strpath = ThisDrawing.Application.VBE.activevbproject.FileName
    Set adocon = New Connection
    adocon.CursorLocation = adUseClient
    '指定数据库路径,注意数据库名为工程名+cehuixiangmu.mdb, 和工程同在一个目录
    adocon.Open "provider=microsoft.jet.oledb.4.0;data source=" & Left(strpath, Len(strpath) - 4) & "cehuixiangmu.mdb;"
    Set adors = New Recordset
    '数据库表名称为ptsten
    adors.Open "ptsten", adocon, adOpenDynamic, adLockOptimistic
    '对数据库操作部分
    '对数据库关闭部分
    adors.Close
    adocon.Close
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 00:29 , Processed in 0.886637 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表