举起手来!打劫!
Function TableExist(connstr,pcTable: string): boolean; overload; //参数为连接字符串和表名。表存在则函数为真
var tmpFldList: TStrings ;
nLoop: integer ;
pConn: TADOConnection;
begin
Result:= False ;
tmpFldList := TStringList.Create ;
pConn:=TADOConnection.Create(application);
try
pConn.ConnectionString:=connstr; pconn.LoginPrompt:=False; pConn.Connected:=True;
pConn.GetTableNames(tmpFldList, True); // 包含系统表
for nLoop := 0 to tmpFldList.Count-1 do
begin
if uppercase(tmpFldList[nLoop])=uppercase(pcTable) then
begin
Result:= True ; break ;
end;
end;
finally
tmpFldList.Free ;
pConn.Free;
end;
end;