zoukankan      html  css  js  c++  java
  • 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;

    (出处:DelphiFans.com)

  • 相关阅读:
    软件工程概论课后作业2
    第三周进度表
    软件工程概论课后作业1
    第二周进度表
    9.异常处理
    《构建之法》阅读笔记二
    《构建之法》阅读笔记一
    第五周进度表
    软件工程个人作业03
    第四周进度表
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631529.html
Copyright © 2011-2022 走看看