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

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

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

 
ADO 方式下判斷數據表是否存在
ADO 方式下判斷數據表是否存在下面構造兩個可重載的函數,用于在ADO方式下判斷數據庫的數據表是否存在。函數一:// ------------------------------------------------------------------------------// //---------...查看完整版>>ADO 方式下判斷數據表是否存在
 
如何判斷是否以獨占方式打開當前數據庫?
如何判斷是否以獨占方式打開當前數據庫? 如何判斷是否以獨占方式打開當前數據庫? 如何判斷是否以獨占方式打開當前數據庫? 問題:如何判斷是否以獨占方式打開當前數據庫?在鏈接或者用ADO操作其他數據庫時...查看完整版>>如何判斷是否以獨占方式打開當前數據庫?
 
如何判斷是否以獨占方式打開當前數據庫?
如何判斷是否以獨占方式打開當前數據庫? 問題:如何判斷是否以獨占方式打開當前數據庫?在鏈接或者用ADO操作其他數據庫時,如果被操作的數據庫已經被某用戶以獨占方式打開,就會出錯,如何預先判斷該數據庫是否已經...查看完整版>>如何判斷是否以獨占方式打開當前數據庫?
 
判斷一個access數據庫中某個表是否存在的方法
  ASP程序如下:<%rem x=0 表示不存在,x=1 表示存在strConn="DBQ="+server.mappath("zw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set objConn=server.createobject("Adodb.connection"...查看完整版>>判斷一個access數據庫中某個表是否存在的方法
 
[ASP.NET]對Oracle數據庫創建表/判斷數據表是否已存在
對Oracle數據庫創建表: Dim myConnectionString As String Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand Dim myCreateSQL As String myConnectionString...查看完整版>>[ASP.NET]對Oracle數據庫創建表/判斷數據表是否已存在