ADOConnection 怎樣從ini 檔案讀入database的IP和database name等資料?

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

1.有個好方法 建立一個udl檔,然後在程式指定adoconnection的connectionstring為這個檔案 ex: Adoconnection1.connectionstring:='FILE NAME=' 你的udl檔案加路徑. 2.研究一下怎麼讀取ini檔囉... 然後讀取ini檔的各個屬性值組合成為connectionstring 你可以先建立預設的連線字串,然後用程式去替代掉裡面的值. 不難,試試看囉

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;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.