| 導購 | 订阅 | 在线投稿
分享
 
 
 

ADO方式下判斷數據表是否存在

來源:互聯網網民  2006-01-31 23:54:26  評論

查看:[大字體 中字體 小字體]

前段時間做一個管理系統的時候,一個朋友問我不用數據庫,用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;

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
查看:[[url=http://dev.csdn.net/javascript:doZoom(12)]大字體[/url] [url=http://dev.csdn.net/javascript:doZoom(10.5)]中字體[/url] [url=http://dev.csdn.net/javascript:doZoom(9)]小字體[/url]] 前段時間做一個管理系統的時候,一個朋友問我不用數據庫,用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;
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 
 熱帖排行
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有