tvro 发表于 2012-4-30 19:10:28

[已解决]返回ACCESS所有表

本帖最后由 tvro 于 2012-4-30 22:36 编辑

折腾了几天都无果，还请高手指点！！！！


_DBInfo(@ScriptDir & "\test.accdb")

Func _DBInfo($DBName = "")
        $DBConn = ObjCreate("ADODB.Connection")
        $DBConn.open("Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='';Data Source=" & $DBName)
        $DBRs = $DBConn.OpenSchema("adSchemaTables")
        While Not $DBRs.eof And Not $DBRs.bof
                If @error =1 Then ExitLoop
                $AA &= $DBRs("Name").Value
                $DBRs.movenext
        WEnd
        $DBRs.Close
        $DBConn.Close
        Return $AA
EndFunc

user3000 发表于 2012-4-30 19:33:22

回复 1# tvro

参考过 access.au3 文件吗?
里面不是有个获取数据库所有表名的吗?
_accessListTables

tvro 发表于 2012-4-30 22:35:31

谢谢！！！钻了好多天的牛角尖，万分感谢！！！

tvro 发表于 2012-4-30 22:35:42

谢谢！！！钻了好多天的牛角尖，万分感谢！！！
页: [1]
查看完整版本: [已解决]返回ACCESS所有表