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

页面导航:首页 > 软件编程 > Delphi > ADO方式下判断数据表是否存在

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

来源: 作者: 时间:2016-02-05 11:47 【

前段时间做一个管理系统的时候,一个朋友问我不用数据库,用EXCEL可以做不,当时在做的过程中出了一一些的问题,就想现在说到的这样,我在判断数据是否存在的时候有一些问题,现在在网
前段时间做一个管理系统的时候,一个朋友问我不用,用EXCEL可以做不,当时在做的过程中出了一一些的问题,就想现在说到的这样,我在判断数据是否存在的时候有一些问题,现在在网上找了点资料,整理后贴在这里.
下面构造两个可重载的函数,用于在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;
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <