前段時間做一個管理系統(tǒng)的時候,一個朋友問我不用數(shù)據(jù)庫,用Excel可以做不,當時在做的過程中出了一一些的問題,就想現(xiàn)在說到的這樣,我在判斷數(shù)據(jù)是否存在的時候有一些問題,現(xiàn)在在網(wǎng)上找了點資料,整理后貼在這里.

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 ); // 包含系統(tǒng)表
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;