TDatabase裡Parmas變更資料問題~~ |
|
尚未結案
|
|
andy0412
一般會員   發表：22 回覆：12 積分：11 註冊：2004-03-03 發送簡訊給我 |
我想將不同的資料庫位址寫在同一個Tdatabase元件裡，我要將
DATABASE NAME: aaa
SERVER NAME : 192.168.1.1
USER NAME : aaa
例圖：http://gary.2bstudent.com/files/aaa.jpg
變成 DATABASE NAME: bbb
SERVER NAME : 192.168.1.2
USER NAME : bbb
例圖：http://gary.2bstudent.com/files/bbb.jpg
--------------------------------------------------------------- 但我用了以下語法，還是無法將TDatabase裡的資料做變更，請問有其它寫法的方式可以做變更呢?
ShowMessage(database.Params.GetText);
database.Params.Clear;
database.Params.Add('DATABASE NAME=aaa'); <---變成bbb
database.Params.Add('SERVER NAME=192.168.1.1'); <---變成.1.2
database.Params.Add('USER NAME=aaa'); <---變成bbb
database.Params.Add('PASSWORD=aaa');
database.Params.Add('OPEN MODE=READ/WRITE');
database.Params.Add('SCHEMA CACHE SIZE=8');
database.Params.Add('BLOB EDIT LOGGING=');
database.Params.Add('LANGDRIVER=');
database.Params.Add('SQLQRYMODE=');
database.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
database.Params.Add('DATE MODE=0');
database.Params.Add('SCHEMA CACHE TIME=-1');
database.Params.Add('MAX QUERY TIME=300');
database.Params.Add('MAX ROWS=-1');
database.Params.Add('BATCH COUNT=200');
database.Params.Add('ENABLE SCHEMA CACHE=FALSE');
database.Params.Add('SCHEMA CACHE DIR=');
database.Params.Add('HOST NAME=');
database.Params.Add('APPLICATION NAME=');
database.Params.Add('NATIONAL LANG NAME=');
database.Params.Add('ENABLE BCD=FALSE');
database.Params.Add('TDS PACKET SIZE=4096');
database.Params.Add('BLOBS TO CACHE=64');
database.Params.Add('BLOB SIZE=32');
ShowMessage(database.Params.GetText); 發表人 - andy0412 於 2005/05/25 10:23:39
|
|
scotthsiao
高階會員  發表：13 回覆：324 積分：147 註冊：2005-02-01 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi andy0412,
procedure TForm1.Button1Click(Sender: TObject); begin Database1.Connected := False; Database1.Params.Values['SERVER NAME'] := '192.168.1.2'; Database1.Params.Values['DATABASE NAME'] := 'bbb'; Database1.Params.Values['USER NAME']:= 'bbb'; Database1.Params.Values['PASSWORD']:= 'bbb'; Database1.Connected := True; end;
------
Fishman |
|
andy0412
一般會員 發表：22 回覆：12 積分：11 註冊：2004-03-03 發送簡訊給我 |
引言: Hi andy0412,procedure TForm1.Button1Click(Sender: TObject); begin Database1.Connected := False; Database1.Params.Values['SERVER NAME'] := '192.168.1.2'; Database1.Params.Values['DATABASE NAME'] := 'bbb'; Database1.Params.Values['USER NAME']:= 'bbb'; Database1.Params.Values['PASSWORD']:= 'bbb'; Database1.Connected := True; end; |
發表時間：2005-05-25 10:19:56
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-07-03 15:14:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |