[已解决]返回ACCESS所有表

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

本帖最后由 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

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

		自动登录	找回密码
密码			加入

[系统综合] [已解决]返回ACCESS所有表

相关帖子