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;>>< face="Verdana, Arial, Helvetica"> fISHMAN. THANKS ALOT. 我用了您所提供的方法,已可以使用,非常感謝。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |