您的位置:首页 > 数据库

数据库编程:检测TabName 数据表是否存在

2011-08-14 14:42 281 查看
Function AccisTable_exist(AdoCON:TADOConnection; tabname:string):boolean;
//检测 TabName 数据表是否存在
var
index : integer;
SL : TStringList;
begin
result:=false;
SL := TStringList.Create;
try
ADOCon.GetTableNames(SL,False);
except
raise Exception.Create('装载源库列表错误!错误特征码2003');
end;
for index := 0 to (SL.Count - 1) do
if SL[index]=tabname then result:=true;
SL.free;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: