查看:[大字体 中字体 小字体] 前段时间做一个管理系统的时候,一个朋友问我不用数据库,用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;
|