如何用WinApi来判断ODBC数据配置中是否存在一个名字为“My_SQl”的数 |
尚未結案
|
railgunman
初階會員 發表:59 回覆:121 積分:36 註冊:2003-03-31 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
在網路上找了一下, 都是從 registry 下手, 如下:
uses Registry; procedure TForm1.GetDSNs(System: Boolean; AList: TStrings); var reg: TRegistry; begin reg := TRegistry.Create; try if System then reg.RootKey := HKEY_LOCAL_MACHINE else reg.RootKey := HKEY_CURRENT_USER; if reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', False) then begin reg.GetValueNames(AList); end; finally reg.CloseKey; FreeAndNil(reg); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Clear; //System DSNs GetDataSourceNames(True, ListBox1.Items); //User DSNs GetDataSourceNames(False, ListBox1.Items); if ListBox1.Items.IndexOf('My_SQL') = -1 then ShowMessage('My_SQL ODBC DSN 不存在'); end;--- 歡迎光臨 KTop 研究院 |
railgunman
初階會員 發表:59 回覆:121 積分:36 註冊:2003-03-31 發送簡訊給我 |
|
railgunman
初階會員 發表:59 回覆:121 積分:36 註冊:2003-03-31 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
railgunman
初階會員 發表:59 回覆:121 積分:36 註冊:2003-03-31 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
簡化如下
VAR FORM1:TForm1; function SQLConfigDataSource(hwndParent: HWND; fRequest: Word; lpszDriver: PChar; lpszAttributes: PChar): boolean; stdcall; external 'ODBCCP32.DLL'; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); const ODBC_ADD_DSN = 1; ODBC_CONFIG_DSN = 2; ODBC_REMOVE_DSN = 3; ODBC_ADD_SYS_DSN = 4; ODBC_CONFIG_SYS_DSN = 5; ODBC_REMOVE_SYS_DSN = 6; VAR Attributes: string; DRIVER:STRING; begin Driver := 'SQL Server'; Attributes := 'DSN=CYBERDB' #0 'DATABASE=CounterDB' #0 'Network=DBMSSOCN' #0 'SERVER=10.10.1.5' #0 'Description=cyberdb'; SQLConfigDataSource(0, ODBC_REMOVE_SYS_DSN, PChar(Driver), PChar(Attributes)); SQLConfigDataSource(0, ODBC_REMOVE_DSN, PChar(Driver), PChar(Attributes)); if NOT SQLConfigDataSource(0, ODBC_ADD_DSN, PChar(Driver), PChar(Attributes)) then MessageDlg('ODBC DSN FALSE!', mtWarning, [mbOk], 0); end; end;我不懂,不懂,不懂....所以我才來ktop學工夫 |
daybreak
一般會員 發表:14 回覆:15 積分:5 註冊:2003-11-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |