ADO 方式下判断数据表是否存在

ADO 方式下判断数据表是否存在

下面构造两个可重载的函数，用于在ADO方式下判断数据库的数据表是否存在。

函数一：

// ------------------------------------------------------------------------------

//

//------------------------------------------------------------------------------

Function TableExist( pAdoCmd: TADOCOMMAND; pcTable : string ) : boolean ; overload ;

var cError : string ;

begin

ADO_COMMAND_EXEC( pAdoCmd, 'Select top 1 from ' + pcTable , cError );

result := ( cError = '' );

end ;

函数二：

// ------------------------------------------------------------------------------

//

//------------------------------------------------------------------------------

Function TableExist( pConn:TADOConnection; pcTable : string ) : boolean ; overload ;

var tmpFldList : TStrings ;

nLoop : integer ;

begin

Result := False ;

tmpFldList := TStringList.Create ;

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;

tmpFldList.Free ;

end;