国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

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

2019-11-18 17:57:37
字體:
來源:轉載
供稿:網友
前段時間做一個管理系統的時候,一個朋友問我不用數據庫,用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;


上一篇:datatree和數據庫綁定的最少代碼

下一篇:如何根據類的名字來生成對象

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 丰镇市| 皮山县| 湘潭县| 攀枝花市| 天气| 泗水县| 福鼎市| 无极县| 荣成市| 广州市| 黔江区| 嘉禾县| 曲靖市| 政和县| 漾濞| 山阳县| 周宁县| 久治县| 郑州市| 哈巴河县| 拉萨市| 漯河市| 临澧县| 内丘县| 苏尼特左旗| 海宁市| 玉林市| 卓尼县| 龙山县| 雷州市| 漳州市| 伊金霍洛旗| 彰武县| 桃江县| 南昌市| 米脂县| 华池县| 六安市| 张家港市| 白河县| 霍城县|