Sql ifadesindeki değeri formdaki değişkene atamak

[CinAnka]

Merhaba;

Programımda dbgriddeki bir data tıklanınca 2 tane adoquery çalışıyor. ben query imde bulunan bir alanı formdaki değişkene nasıl atarım??

Kod: Tümünü seç

//<code> yanlış kullanmışsın!
 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
row:integer;
col:integer;
x,y,a:integer;
sline,b,c:string;
begin

adoquery1.CLOSE;
adoquery1.SQL.Clear;
adoquery1.SQL.text:='SELECT * from KISILER';


a:=strtoint(ADOQuery1.Fields.Fields[0]);------hata veriyor



//adoquery2.Parameters.ParamByName('PARAMETRE_DEGERI').VALUE:=a;
adoquery1.OPEN;
Adoquery1.First;


adoquery2.CLOSE;
adoquery2.SQL.Clear;
adoquery2.SQL.text:='SELECT GRUPLAR_ID FROM KISIGRUP WHERE KISILER_ID=:PARAMETRE_DEGERI AND GRUPLAR_ID=GRUPLAR_ID';
adoquery2.Parameters.ParamByName('PARAMETRE_DEGERI').VALUE:=a;
label1.Caption:=inttostr(a);
adoquery2.OPEN;
Adoquery2.First;

 for x:=0 to Adoquery2.DataSource.DataSet.RecordCount-1 do
 begin
        FOR y:=0 to checklistbox1.Items.Count-1 do
        begin
                if adoquery2.Fields.Fields[x].AsString=checklistbox1.items.Strings[y] then
                begin
                checklistbox1.Checked[y]:=true;
                end;
        end;

 end;
end;
//</code>

yukarıda da belirttiğim gibi ben adoquery min 0 indexinde bulunan değeri nasıl okur ve formdaki değişkenime atarım??

Kolay gelsin herkese...

Not: <code></code> tag leri arasindaki kodlar neden delphi ekranı içerisindeki gibi çıkmıyor. Sayın admin, siz bana uyarıda bulunmuştunuz ama gene olmadı bu...

Not: Tag ı yanlış kullanmışsın <code> şeklinde değil [ code ] şeklinde olacaktı. rsimsek

[aslangeri]

s.a.
1.

Kod: Tümünü seç

a:=strtoint(ADOQuery1.Fields.Fields[0]);------hata veriyor 

bu satırı

Kod: Tümünü seç

a:=strtoint(ADOQuery1.Fields[0].value);------hata veriyor 

şeklinde değiştirirsen sanırım düzelir.
2. Aldığınız hataları hata veriyor diye değilde verdiği hata şu:xxxxxxxx....
şeklinde belirtirseniz daha iyi olur. Yardım etmeye çalışan kişi hatanın ne olduğunu bilir. Tahmin yürütmez...
3.tagları html yazagibi <> içine değil [] içine alman lazım.
kolay gelsin.

[CinAnka]

Merhaba;

Programımda dbgriddeki bir data tıklanınca 2 tane adoquery çalışıyor. ben query imde bulunan bir alanı formdaki değişkene nasıl atarım??

Kod: Tümünü seç

 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
row:integer;
col:integer;
x,y,a:integer;
sline,b,c:string;
begin

adoquery1.CLOSE;
adoquery1.SQL.Clear;
adoquery1.SQL.text:='SELECT * from KISILER';


a:=strtoint(ADOQuery1.Fields.Fields[0]);------hata veriyor



//adoquery2.Parameters.ParamByName('PARAMETRE_DEGERI').VALUE:=a;
adoquery1.OPEN;
Adoquery1.First;


adoquery2.CLOSE;
adoquery2.SQL.Clear;
adoquery2.SQL.text:='SELECT GRUPLAR_ID FROM KISIGRUP WHERE KISILER_ID=:PARAMETRE_DEGERI AND GRUPLAR_ID=GRUPLAR_ID';
adoquery2.Parameters.ParamByName('PARAMETRE_DEGERI').VALUE:=a;
label1.Caption:=inttostr(a);
adoquery2.OPEN;
Adoquery2.First;

 for x:=0 to Adoquery2.DataSource.DataSet.RecordCount-1 do
 begin
        FOR y:=0 to checklistbox1.Items.Count-1 do
        begin
                if adoquery2.Fields.Fields[x].AsString=checklistbox1.items.Strings[y] then
                begin
                checklistbox1.Checked[y]:=true;
                end;
        end;

 end;
end;

yukarıda da belirttiğim gibi ben adoquery min 0 indexinde bulunan değeri nasıl okur ve formdaki değişkenime atarım??

Kolay gelsin herkese...

Not: <code></code> tag leri arasindaki kodlar neden delphi ekranı içerisindeki gibi çıkmıyor. Sayın admin, siz bana uyarıda bulunmuştunuz ama gene olmadı bu...

[rsimsek]

Hata mesajı nedir