//判断某表是否已经存在 function TForm1.existtable(tablename:string):boolean; var str:string; list:TStringlist; i:integer; ok:boolean; begin ok:=false; list:=TStringlist.Create; dm.ADOConnection1.GetTableNames(list); for i:=0 to list.Count-1 do begin str:=list[i]; if str=tablename then begin ok:=true; break; end; end; list.Free; existtable:=ok; end;
select * from sysobjects where name='' 在系統表里面可以查到的.
function TForm1.existtable(tablename:string):boolean;
var
str:string;
list:TStringlist;
i:integer;
ok:boolean;
begin
ok:=false;
list:=TStringlist.Create;
dm.ADOConnection1.GetTableNames(list);
for i:=0 to list.Count-1 do
begin
str:=list[i];
if str=tablename then
begin
ok:=true;
break;
end;
end;
list.Free;
existtable:=ok;
end;
在系統表里面可以查到的.