我的应用程序需要定义一个持久连接定义,但有时需要更改所连接的数据库。
所以我用这段代码创建了一个定义:
OraCon: TFDConnection;
oDef: IFDStanConnectionDef;
....
OraCon.Connected := False;
oDef := FDManager.ConnectionDefs.FindConnectionDef('MyConn');
if (oDef <> nil) then
begin
FDManager.DeleteConnectionDef('MyConn');
end;
oDef := FDManager.ConnectionDefs.AddConnectionDef;
oDef.Params.Clear;
oDef.Name := 'MyConn';
oDef.Params.Add('DriverId=Ora');
oDef.Params.Add('Database=' + edDB.Text);
oDef.Params.Add('User_name=' + edUser.Text);
oDef.Params.Add('Password=' + edPasswd.Text);
oDef.MarkPersistent;
oDef.Apply;
OraCon.ConnectionDefName := 'MyConn';
OraCon.Connected := True;
它运行良好,并正确更新了FireDac定义文件。问题是我的FDConnection组件保持连接到旧数据库,而不是新的。
我该怎么做才能“刷新”这个?
2条答案
按热度按时间rhfm7lfc1#
我意识到我只需要一个对TFDConnection对象的引用。我在一个单例类中定义了它,现在可以工作了。
nwlls2ji2#
这是一个老问题,但我刚刚在 Delphi 10.4中遇到了同样的问题。我使用TfrmFDGUIxFormsConnEdit表单让用户编辑连接并将其保存到默认的Ini文件中。然而,当设置.ConnectionDefName时,连接没有拾取用户刚刚输入的设置,即使设置被正确地写入了ini文件。为了解决这个问题,我必须像这样构建和设置连接字符串: