ADOConnection 怎樣從ini 檔案讀入database的IP? |
尚未結案
|
chrislao
初階會員 發表:86 回覆:69 積分:36 註冊:2002-12-28 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi: 抱歉,我習慣使用 BDE 與 Oracle,回答的可能不是很好,敬請見諒
如果要從 ini 中讀出結資料庫的資訊,大概可分為兩個動作,讀檔與組成ConnectionString
如果 ini 檔中已儲存了整個 ConnectionString,運用以下程式碼即可
procedure TForm1.Button12Click(Sender: TObject); var F: TextFile; S: string; begin ADOConnection1.Connected := False; AssignFile(F,'D:\Intraweb\Test\Test4\Setup.ini'); Reset(F); ReadLn(F,S); ADOConnection1.ConnectionString := S; ADOConnection1.Connected := True; ADOQuery1.Close; ADOQuery1.Open; end;如果 ini 檔中,僅儲存 Server Name,ID,Password 等資訊,則須將該資訊加已組合成如下的字串,在塞進 ADOConnection1.ConnectionString Provider=MSDAORA.1;Password=password;User ID=username;Data Source=server;Persist Security Info=True 最好把 LoginPrompt 設為 False -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman |
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi chrislao 您好:
試試這個
Uses IniFiles; procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject); var INIF : TINIFile; DBIP, DBName : String; begin INIF := TINIFile.Create(ExtractFilePath(Application.ExeName) 'UserProfile.INI'); DBIP := INIF.ReadString('MainSet','DBIP','192.168.1.1'); DBName := INIF.ReadString('MainSet','DBName','NorthWind'); INIF.Free; ADOConnection1.Connected := False; ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa'; ADOConnection1.ConnectionString := ADOConnection1.ConnectionString ';Data Source=' DBIP; ADOConnection1.ConnectionString := ADOConnection1.ConnectionString ';Initial Catalog=' DBName; end;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |