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

首頁 > 編程 > Delphi > 正文

在Delphi里調(diào)用API函數(shù)動態(tài)建立ODBC數(shù)據(jù)源。

2019-11-18 18:36:05
字體:
供稿:網(wǎng)友
  在前段時間項目過程中倒數(shù)據(jù)過程中要求動態(tài)不同數(shù)據(jù)庫倒數(shù)據(jù)時遇到的關(guān)于數(shù)據(jù)源的問題,當然,不能ADOQUERY連接的DBF表(未下補丁版本,后發(fā)現(xiàn)也可連接)一定要建ODBC進行連接處理,那么ODBC一定要動態(tài)建立以排除用戶刪除ODBC的可能,下面我就把API函數(shù)原型及建SQLSERVER和DBF表的語句寫下來共享(當然SQLSERVER在ADO狀態(tài)下不必建立)。

SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;

調(diào)用狀態(tài)下使用:

function SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;stdcall;external 'ODBCCP32.DLL';

建立SQLSERVER的ODBC:

SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,'SQL Server','DSN=Record_ODBC'+ chr(0) +'Server=(local)'+ chr(0) +'Database=master'+ chr(0) +'Description=DragonPC SQLServer ODBC Source'+ chr(0));


{  DSN:你的ODBC數(shù)據(jù)源名稱。

  Server:你的數(shù)據(jù)庫服務(wù)器名稱,使用(local)指的是本地計算機安裝的數(shù)據(jù)庫。注:最新的SQL Server 2000支持一臺計算機運行多個SQL Server服務(wù),這個時候你需要指定SqlSever的InstanceName。

  Address:指定SQL Server服務(wù)器的網(wǎng)絡(luò)IP地址。

  Database:指定默認數(shù)據(jù)庫名稱。

  Language:指定默認語言。

  Description:備注信息。}

建立DBF表ODBC:

SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, 'Microsoft Visual FoxPRo Driver' + CHR(0), 'dsn=SourceTable' + CHR(0) + 'BackgroundFetch=Yes' + CHR(0) + 'Description=descripcion de la conexion' + CHR(0) + 'Exclusive=No' + CHR(0) +sourcedbstr + CHR(0) +'Sourcetype=DBF');

其他均雷同,只是在建立DBF表調(diào)試了好長時間,寫出來希望大家免去浪費時間。

注:以上內(nèi)容只供初學者遇到類似問題參考。


上一篇:如何在Delphi應(yīng)用程序中調(diào)用CHM文檔

下一篇:Delphi5的水晶報表控件在Delphi6下的安裝過程

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

新聞熱點

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 阿合奇县| 汤原县| 福海县| 榕江县| 达州市| 积石山| 丹江口市| 连城县| 星子县| 长治县| 翁源县| 温州市| 印江| 彰化市| 休宁县| 宝兴县| 钟山县| 平乐县| 兴宁市| 桂林市| 呼玛县| 郧西县| 涟源市| 富阳市| 淮安市| 哈尔滨市| 铜山县| 南华县| 永州市| 钟祥市| 和政县| 怀安县| 罗江县| 莎车县| 翼城县| 湖南省| 永仁县| 封丘县| 宁津县| 阜城县| 佛冈县|