if exists (select * from sysobjects where name = 'jobs' and type = 'u') select * from jobs
var vStrLst: TStrings; begin vStrLst := TStringList.Create; ADOConnection1.GetTableNames(vStrLst,True); if(vStrLst.IndexOf('表名')>-1) then ShowMessage('存在!') else ShowMessage('不存在!'); FreeAndNil(vStrLst); end;
(select * from sysobjects where name = 'jobs' and type = 'u')
select * from jobs
vStrLst: TStrings;
begin
vStrLst := TStringList.Create;
ADOConnection1.GetTableNames(vStrLst,True);
if(vStrLst.IndexOf('表名')>-1) then
ShowMessage('存在!')
else
ShowMessage('不存在!');
FreeAndNil(vStrLst);
end;