财务软件版1楼: 我有一个ACCESS数据库,我想通过SQL语句把ACCESS数据库中的表名都给读出来,不知道怎么实现语句

2楼: 用ADOConnection1.GetTableNames(SL, False);

范例：
procedure TForm1.Button1Click(Sender: TObject);

var
SL: TStrings;
index: Integer;
begin
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do begin
Table1.Insert;
Table1.FieldByName(＇＇Name＇＇).AsString := SL[index];
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := SL[index];
ADOTable1.Open;
Table1.FieldByName(＇＇Records＇＇).AsInteger := ADOTable1.RecordCount;

Table1.Post;
end;
finally
SL.Free;
ADOTable1.Close;
end;
end; 如进销存需求描述

3楼: procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);

4楼: access 2000下

工具 -> 选项 -> 视图 -> 隐藏对象、系统对象
前面的勾选上。

工具 -> 安全 -> 用户与组的权限
在对象名称中选定 MSysObjects ，然后权限中设置其权限。

然后你用SELECT Name From MSysObjects WHERE Type=1查询了

5楼: sql server数据库怎么查呢？

6楼: 方法同1楼！

财务软件版7楼: 接受答案了.