请教ACCESS数据库中三个简单的问题

gpgpgp

1.如何获得当前数据库中所有表的名称.


2.如何清除列表框LIST中的内容.


3.用代码如何实现对数据库中的一张表的全部记录进行删除.

wuaza

1、For Each i In Application.CurrentData.AllTables:msgbox i.name

2、delete * from 数据源

3、docmd.runSQL "delete * from tablename"

andymark

在你的例子上修改,选择目录后,在LIST1会加载目录下的所有MDB, 双击LIST1,会把所选择的MDB所有表加载到LIST2

至于删除表的数据可参考2楼的方法

gpgpgp

谢谢大家的帮助。出现一个问题该如何解决：

应用For Each i In Application.CurrentData.AllTables:msgbox i.name这条语句获得了表的名称，但同时也列出了msysaccessobject、msysaccessXML等表的名称，如果不需要列出这些表的名称，只列出自己建的表名称,该如何解决。

[此贴子已经被作者于2006-7-10 11:30:28编辑过]

andymark

Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllTables
      If Left((obj.Name), 4) <> "MSys" And Left((obj.Name), 1) <> "~" Then
           Debug.Print obj.Name
      End If
    Next obj

gpgpgp

andymark版主谢谢您的帮助！