0

我正在尝试使用 fireDAC 将我的 Delphi 应用程序连接到 Informix 数据库。我在连接编辑器中提供了所有参数。但我必须运行 PA Server 才能使其工作。

那么是否有必要运行 PA 服务器来连接到 Informix db。

4

1 回答 1

0

我可以使用以下代码连接而不是拖放控件来解决它:

procedure TForm1.FormCreate(Sender: TObject);
var
Params: TStringList;
begin
 FDManager := TFDManager.Create(self);
 FDconnection := TFDConnection.Create(self);
 FDQuery := TFDQuery.Create(self);
 FDataSOurce := TDataSource.Create(self);
 Params := TStringList.create;
 Params.Values['User_Name'] := paramstr(3);
 Params.Values['Database'] := paramstr(2);
 Params.Values['Password'] := paramstr(4);
 Params.Values['DriverName'] := 'Informix';
 Params.Values['HostName'] := paramstr(1);
 Params.Values['RDBMS'] := 'OTHER';
 Params.Values['DriverID'] := 'TDBX';
 FDManager.AddConnectionDef('BOSSConnection', 'TDBX', Params);
 FDConnection.DriverName := 'TDBX';
 FDConnection.ConnectionDefName:='BOSSConnection';
 FDConnection.Connected := True;
 FDQuery.SQL.Add('select first 10 cust_code, bus_name, status from strcustr;');
 FDQuery.Connection := FDConnection;
 FDataSource.DataSet := FDQuery;
 FDQuery.Active := True;
 DBGrid1.DataSource := FDataSource;
 FDConnection.LoginPrompt := False;
end;
于 2014-03-27T05:16:01.143 回答