//根据表名和一个数据库连接判断表是否存在
function TForm1.DBTableExists(aTableName: string;aADOConn:TADOConnection): Boolean;
var
vTableNames: TStringList;
begin
Result:=False;
vTableNames := TStringList.Create;
try
aADOConn.GetTableNames(vTableNames);//取得所有表名
if vTableNames.IndexOf(aTableName)>= 0 then //判断是否存在
Result:=True;
finally
vTableNames.Free;
end;
end;
本文介绍了一个实用的Delphi函数,用于通过表名和数据库连接来判断指定的表是否存在于数据库中。该函数首先获取数据库中的所有表名,然后检查所需的表名是否包含在这些表名中。
305

被折叠的 条评论
为什么被折叠?



