Office中国论坛/Access中国论坛

标题: 请教ACCESS数据库中三个简单的问题 [打印本页]

作者: gpgpgp 时间: 2006-7-7 18:55
标题: 请教ACCESS数据库中三个简单的问题
1.如何获得当前数据库中所有表的名称.

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

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

作者: wuaza 时间: 2006-7-7 20:28
1、For Each i In Application.CurrentData.AllTables:msgbox i.name

2、delete * from 数据源

3、docmd.runSQL "delete * from tablename"

作者: andymark 时间: 2006-7-7 21:48
在你的例子上修改,选择目录后,在LIST1会加载目录下的所有MDB, 双击LIST1,会把所选择的MDB所有表加载到LIST2

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

[attach]18918[/attach]

作者: gpgpgp 时间: 2006-7-10 19:26
谢谢大家的帮助。出现一个问题该如何解决：

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

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

作者: andymark 时间: 2006-7-10 19:58
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 时间: 2006-7-10 23:10
andymark版主谢谢您的帮助！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)