comboboxtaki değerleri kaydetmiyor

[ufb1453]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

begin
adotable1.Append;
adoTable1.FieldByName('Adi').AsString  := edit1.Text;
adoTable1.FieldByName('Soyadi').AsString  := edit2.Text;
adoTable1.FieldByName('Kullanici_Adi').AsString  := edit3.Text;
adoTable1.FieldByName('Sifre').AsString  := edit4.Text;
adoTable1.FieldByName('Mail_Adresi').AsString  := edit5.Text;
adotable1.FieldByName('BirimID').AsInteger:= b;
adotable1.Post;
adotable1.Refresh;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
a := combobox1.Text ;
adoquery1.Close;
b:= adoquery1.SQL.Add('select BirimID from Birim where BirimAdi:=a') ;
adoquery1.Open;
end;

yukarıdaki kodda combo boxta birim tablosunda buluınan değerleri listeleybiliryorum ancak kaydet butonuna bastığımda parametre hatası veriyor ve BirimID yi kaydetmiyor
yardımcı olabilir misiniz??

[barisatalay]

hata mesajı ?

[ufb1453]

Project Project1.exe raised exception class EOLException with message ' Parametre nesnesi hatalı tanımlanmış. uyumsuz veya eksik bilgiler verilmiş'.
Yukarıdaki hatayı veriyor
bu arada sql de birim ıd kullanıcılarda var ve diagramda bağladım, amacım comboboxta istediğim bilginin birim tablosunda karşılığı olan ID nın kullanıcıların ID satırına eklenmesi

[unicorn64]

Kod: Tümünü seç

b:= adoquery1.SQL.Add('select BirimID from Birim where BirimAdi:=a') ;

sorgu sonucunu bu şekilde alamazsınız... kodu debug edip b nin aldığı değeri kontrol ettiniz mi?
combobox change de de hata alıyor olmalısınız.. sql kosunuz hatalı, : ve = yerleri ters olmuş

Kod: Tümünü seç

adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select BirimID from Birim where BirimAdi=:a') ;
adoquery1.ParamByName('a').AsString:=a; 
adoquery1.Open;
b:= adoquery1.FieldByName('BirimID').AsInteger;

şeklinde olabilir, test etmedim kontrol edersiniz

[ufb1453]

Kod: Tümünü seç

adoquery1.parameters.ParamByName('a').value:=a;

şeklinde düzeltmeyle işlem hallolmuştur. unicorn64 hocam çok sağolasın 1 gündür bunu aşmaya çalışıyordum

[unicorn64]

rica ederim, nacizane fikrim, 1 gündür bunu aşmaya çalışıyorsanız, öncelikle delphi hakkında biraz kitap okumalısınız.
neyi nasıl yapacağınızı bilmeden yapmaya çalışırsanız bir sonraki sıkıntıda yine patinaj yapacaksınız demektir...

[ufb1453]

haklısın hocam hiç sql ile delphi kullanmadım daha önce okul yılları dahil veri tabanı eğitimi kursuna gittim yeni daha öyle başladım SQL ile kullanıma çözeceğim inşaallah buişide
tekrar teşekkürler hocam