如何判断access库中的一个表是否存在？

[zjj_horse]

如何判断access库中的一个表是否存在？

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
var
vTableNames: TStringList;
begin
vTableNames := TStringList.Create;
try
ADOConnection1.GetTableNames(vTableNames);
ShowMessage(vTableNames.Text);
if vTableNames.IndexOf('<TableName>') >= 0 then
{ TODO : 处理表存在的情况 };
finally
vTableNames.Free;
end;
end;

[东部一绝]

TOleContainer

[王集鹄]

//如果你使用的是BDE方式则
// ADOConnection1.GetTableNames(vTableNames); -->>>>>>
Database1.GetTableNames(vTableNames);
//即可

[王集鹄]

//如果你使用的是BDE方式则
// ADOConnection1.GetTableNames(vTableNames); -->>>>>>
Database1.GetTableNames(vTableNames);
//即可

[东部一绝]

贴错了，
简单的方法
try
with query do
beign
close;sql.clear;
sql.add('select * from 表');
open
end;
except
showmessage('表不存在');
end;
//另方法可以用session（数据database）得到表写到Tstringlist后
//判断Tstringlist是否存在，同楼上说的一样

[newnewworm]

SQL Server种：
if exists(select * from tablename) then
else
----
用TSession.GetTableNames得到所有表名TableLists,
if TableLists.Indexof(TableName)<> 0 then Exsits
else not Exsits