路边 发表于 2005-9-7 07:26:00

请教：vba怎样与Access数据库联接？？

怎样用vba读取Access数据库中的数据？？

一万年 发表于 2005-9-7 09:24:00

随便一本vba的书上都应该有阿，找本书看看吧

zwd0077 发表于 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
页: [1]
查看完整版本: 请教：vba怎样与Access数据库联接？？