前段时间做一个管理系统的时候,一个朋友问我不用数据库,用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;