delphi tarafında yazdıgımız fonksiyonda ibquery kullanma

[zyildiz]

Sık kullandıgım bir sorgulama işlemini bir fonksiyon haline getirmek istiyorum
örnegin

Kod: Tümünü seç

function deneme(x,y,z:integer):string;
begin
    with dqis do
    begin
    close;
    sql.Clear;
    sql.Add('select count(id) as say from isl_kulturu');
    Open;
    end;
    result:=dqissay.asstring;
end;

ancak dqis yazınca hemen altını kırmızı ile ciziyor. Buna benzer işlemleri fonksiyon içinde nasıl yazabilirim?
yardımlarınız için teşekkür ederim.

[orhancc]

Ado ile query oluşturma kendine göre düzenleyebilirsin.TADOQuery yerine TIBQuery kullanacaksın

Kod: Tümünü seç

function TLibrary.CheckBranch(BankaKod: integer;SubeKod:integer):Boolean;
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := Data.HostCon;
    Query.SQL.Text := 'Select * from Sube where BANKAKOD =:bankakod and SUBEKOD =:subekod';
    Query.Parameters.ParamByName('bankakod').value := BankaKod;
    Query.Parameters.ParamByName('subekod').value := Subekod;
    Query.Open;
  finally
    if Query.RecNo > 0 then
      result := true
    else
      result := false;
    Query.Free;
  end;
end;

[zyildiz]

Teşekkur ederim. Bu ara baya yogunduk ancak fırsat buldum. Fonksiyon çalıştı.