Помогите с программкой на делфи+бд адо

[salima]

пожалуйста помогите!

procedure TForm2.Button1Click(Sender: TObject);
var s,f:string; i,l:integer;
begin
edit1.Text:='kto igroki?';
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT namerz FROM Rz,Fact  WHERE Nfact=Idfact');
adoquery2.sql.add('SELECT idfact FROM Fact');
for i:=1 to adoquery2.SQL.Count    do
    begin
    Adoquery1.Active:=True;

    end;
 end;

мне нужно вывести отобранные данные в combobox в цикле

[ОДИНОЧЕСТВО В СЕТИ]

 While not ADOQuery1.Eof do
        begin
          ComboBox1.Items.Add(ADOQuery1.FieldByName('namerz').AsString);
          ADOQuery1.Next;
        end;
      ADOQuery1.Close;
    end;

выводит в соmbobox1 все данные поля namerz из adoquery1

for i:=1 to adoquery2.SQL.Count do
begin
Adoquery1.Active:=True;

end;

-странный код! что вы этим хотели сказать?

[quit]

ComboBox1.Items.Add(adoquery.FieldByName('ИМЯ_ПОЛЯ').AsString);

PS ОДИНОЧЕСТВО опередила... Не успел

[salima]

спасибо большое,а как записать правильно цикл при каждом i-том в запросе
for i=1 to 4 do
adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='i''), так можно?

[GenniY]

adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='i''), так можно?

adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+i+''), так можно?

[ОДИНОЧЕСТВО В СЕТИ]

ну и получите в adoquery1.sql.text 4 подряд идущие строки

'SELECT namerz FROM Rz WHERE Nfact=1'
'SELECT namerz FROM Rz WHERE Nfact=2'
'SELECT namerz FROM Rz WHERE Nfact=3'
'SELECT namerz FROM Rz WHERE Nfact=4'

сначала

adoquery1.sql.clear;

а потом уже

adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+inttostr(i));

[salima]

var s,f:string; i,l:integer;
begin
for i:=0 to 3 do
adoquery1.SQL.Clear;
adoquery2.SQL.Clear;
adoquery1.sql.add('SELECT Vopros FROM Fact WHERE Idfact='+inttostr(i));
adoquery2.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+inttostr(i));
adoquery1.Active:=true;
adoquery2.Active:=true;
While not ADOQuery1.Eof do
begin
dbComboBox1.Items.Add(ADOQuery1.Fie ldByName('Vopros').AsString);
ADOQuery1.Next;
end;
ADOQuery1.Close;
While not ADOQuery2.Eof do
begin
dbComboBox2.Items.Add(ADOQuery2.Fie ldByName('namerz').AsString);
ADOQuery2.Next;
end;
ADOQuery2.Close;
end;

ничего не выдает

[quit]

выдает ошибку на i

adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+IntToStr(i))

[salima]

Сообщение от quit

adoquery1.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+IntToStr(i))

посмотрите пожалуйста на код выше, вообще ничего нет

[ОДИНОЧЕСТВО В СЕТИ]

есть вопрос:

for i:=0 to 3 do 
adoquery1.SQL.Clear;

а зачем вы 4 раза очищаете adoquery1.SQL?
а

adoquery1.sql.add('SELECT Vopros FROM Fact WHERE Idfact='+inttostr(i));
adoquery2.SQL.Add('SELECT namerz FROM Rz WHERE Nfact='+inttostr(i));

срабатывают по 1 разу с i=3