FireBird Delphi Integer problemi

[jafari1983]

Bugün ms access'den FireBird'e, ADOdan da İB-a daşındım.
İBQuery'nin Object İnspectordaki SQL bölümüne "SELECT MAX(buyinvoice) as buyinvoice FROM table1" yazdım, ve İBQuery'nin üzerine çift tıklayarak Fieldi elave etdim.

sonra bu kodu yazdım

Kod: Tümünü seç

  with BuyInvoiceQry do
  begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT MAX(buyinvoice) AS buyinvoice FROM table1');
  Open;
  end;

      if BuyInvoiceQryBUYINVOICE.AsInteger < 1 then
      begin
        buyinvoice:=BuyInvoiceQryBUYINVOICE.AsInteger+8000001;
      end
      else
      begin
      buyinvoice:=BuyInvoiceQryBUYINVOICE.AsInteger+1;
      end;
Edit1.Text:=IntToStr(buyinvoice);

ama error çıkıyor, "Dynamic SQL Error, SQL error code=206, Column unknown 8000001 at line 6, column 27"

Bu ne ola bilir ?

[aslangeri]

s.a.
öncelikle hatayı hangi işlemi yaparken (hangi satırda) verdiğini bulmamız lazım.
anladığım kadarı ile sql ile ilgili bir problem ancak görünürde bir sıkıntı yok. göndermediğiniz kod tarafında bir işlem oluyor olabilir.
hatanın meydana geldiği satır bulunup orda çalıştırılan sql koduna bakmak lazım gibime geliyor.
kolay gelsin.

[jafari1983]

Kardeş, Allah razı olsun. Sorunu buldum.
Bu Query-e bağlı başqa bir Query-nin Parametresiz kullandığım üçün bu error-u çıxartırdı.

Ms Access-de parametresiz rahat kullana biliyordum Query-leri.
Bunun gibi.

Kod: Tümünü seç

query1.SQL.Add('SELECT * FROM table1 WHERE soyad=" '+Edit1.Text+' " ');

Ama FireBird'de parametre olmadığı vaxt bezen error verir.