[AVOKADO]

у меня имеется код, который может работать с двумя БД. Для этого я использовал две ADOСonnection(1 и2) и ADOQuary(1и2), но надо использовать только один ADOСonnection1 и ADOQuary1. Мне сказали, что для этого нужен Inifile. то, что выделено цветом должно автоматически заполняться из инифайла. Помогите сделать(:
Вот исходный код и Inifile:

procedure TForm1.Button3Click(Sender: TObject);
var
i, j:integer;
st:string;
begin
with StringGrid1 do
Cells[0,1]:='DEMO';
with StringGrid1 do
Cells[0,2]:='DEVELOP';
with StringGrid1 do
Cells[1,0]:='Count1';
with StringGrid1 do
Cells[2,0]:='Count2';
for j:=1 to StringGrid1.RowCount-1 do
begin
st:=StringGrid1.Cells[1,j];
ADOQuery1.SQL.Clear;
ADOQuery1.Close;

ADOQuery1.SQL.Add('select count(template_id) as f1 from os_eqm.devices where template_id <>0');
ADOQuery1.Open;

with StringGrid1 do
Cells[1,1]:=adoquery1.Fields[0].AsString;

ADOQuery2.SQL.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Add('select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0');
ADOQuery2.Open;
with StringGrid1 do
Cells[2,1]:=ADOQuery2.Fields[0].AsString;
end;
end;

инифаил:
[databases]
bina=value
Demo=192.168.70.234
Develop=192.168.70.432

[lmikle]

В ini-файле тебе надо хранить 2 connection string и можно так же сами запросы. Ну и просто читать их оттуда и перенастраивать ADOConnection и ADOQuery. Типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

uses IniFiles;   function TForm1.GetCount(AConnectionString, AQuery : String) : Integer; begin   ADOQuery1.Active := False;   ADOConnection1.Connected := False;     Try      ADOConection.ConnectionString := AConnectionString;     ADOConnection.Connected := True;         ADOQuery.SQL.Clear;     ADOQuery.SQL.Add(AQuery);     ADOQuery.Open;     Result := ADOQuery.Fields[0].AsInteger;   Finally     If ADOQuery.Active Then ADOQuery.Close;     ADOConnection.Connected := False;   End;  end;   procedure TForm1.Button1Click(Sender : TObject); var   Ini : TIniFile;   AConn, ASQL : String; begin   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));       AConn := Ini.ReadString('Connection1','ConnString','');   ASQL := Ini.ReadString('Connection1','Query','');   Cells[1,1] := GetCount(AConn,ASQL);     AConn := Ini.ReadString('Connection2','ConnString','');   ASQL := Ini.ReadString('Connection2','Query','');   Cells[2,1] := GetCount(AConn,ASQL);     Ini.Free; end;

Ну и соотв. ini-файл

Код:

1 2 3 4 5 6 7

[Connection1] ConnString=Здесь первая ConnectionString Query=select count(template_id) as f1 from os_eqm.devices where template_id <>0   [Connection2] ConnString=Здесь вторая ConnectionString Query=select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0

[AVOKADO]

Спасибо, но выскакивает ошибка:
invalid SQL statement

[AVOKADO]

Вот мой SQL

Код:

1 2 3 4

select (select count(template_id) from os_eqm.devices where template_id <>0)+ (select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0) from dual