在EXCEL中操作ACCESS库

明若了

怎么看不到？

cxd1001

zez 发表于 2008-10-15 10:45
到现在为止,我要介绍的内容已全部介绍完毕.所上传的代码只要简单地修改一下,就可以做出自己所想要的数据库. ...

能不能抽空帮我解决一下这个问题？
链接：http://club.excelhome.net/thread-883669-1-1.html
第9楼问题，已上传附件

lotteryman

下载学习了！谢谢分享！！！

momoca2006

多谢老师！刚好很需要这方面的东西，要是以后可以多点就好了

拥抱变化

太好，顶楼主一下！

udbvjtg176526

多谢楼主，实在太感谢了！

udbvjtg176526

我是菜鸟，请问各位大侠如何以一个表1做为基准，以表1中A1段做为基准，在表2中查到与A1相同的数据，并将B1字段并写入表1中，谢谢！

cxd1001

zez 发表于 2008-10-13 10:00
Public Sub 将查询结果进行排序()    Dim mydata As String, mytable As String, SQL As St ...

我修改了下代码
提示自动化错误
Sub 读入()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    '指定数据库和数据表
    mydata = "E:\CTA涉税鉴证软件" & "\mb.mdb"    '指定数据库
    mytable = "kh"      '指定数据表
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
    '查询数据表
    SQL = "select mc as Age1,gsdjzzhm as Age2 " & "from " & mytable & "where sh = " & Range("c5")
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    '也可以使用下面的语句
'    Set rs = cnn.Execute(SQL)
    '复制数据
    Range("c6:c7") = Array(rs!Age1, rs!Age2)
    '设置工作表格式
    ActiveSheet.Cells.Font.Size = 10
    ActiveSheet.Columns.AutoFit
    '关闭记录集及数据库连接,并释放变量
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

331510004

xuyisong 发表于 2012-6-2 06:17
正是我所需要的

谢谢楼主！

331510004

非常感谢楼主，楼主受累了