如何在程序中修改database的属性Params的path值 |
答題得分者是:Mickey
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
cmj
高階會員 發表:15 回覆:242 積分:226 註冊:2002-06-12 發送簡訊給我 |
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
cmj
高階會員 發表:15 回覆:242 積分:226 註冊:2002-06-12 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
cmj
高階會員 發表:15 回覆:242 積分:226 註冊:2002-06-12 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
begin
Database1.AliasName:='CSSTEMP'; //BDE要先建一Alias Type 為STANDARD
Session.SessionName:='Sessino1';
Session.GetAliasParams(Form1.Database1.AliasName,Form1.Database1.Params);
showmessage(form1.database1.Params.Values['PATH']);
form1.database1.Params.Values['PATH'] :=Edit1.Text;
Session.ModifyAlias(Form1.Database1.AliasName,Form1.Database1.params);
Session.SaveConfigFile;
showmessage(form1.database1.Params.Values['PATH'] ',' Form1.Database1.AliasName);
end;
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
我試正常啊 ?
database1.Close; if Database1.Params.IndexOf('PATH')=-1 then Database1.Params.Values['PATH']:='c:\' else Database1.Params.Add('PATH=c:\'); database1.Open; showmessage(Database1.Params.Values['PATH']);你"PATH未變" 是如何試的 ? TDataBase.Params 值, 是會覆蓋掉 BDE Alias 參數的設定的. |
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
|
echos
一般會員 發表:2 回覆:7 積分:1 註冊:2003-06-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |