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;

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18