kayıtın olup olmadığını tesbit etmek

[delphikursu]

ben fitlereme yaptıkdan sonra fitreye uygun yayıt var mı yok mu diye kontro yapmak istiyorum daha doğrusu sql buldig le yaptım ama quary de kayıt var mı yokmu onu tesbit etmek istiyorum

[ofenX]

Merhbaba,
Bir ara fahrettin abi

Kod: Tümünü seç

if query1.bof and query1.eof then 
 ....

şeklinde bir şeyler kullanıyordu.
Siz de öyle bir deneyin.

Kolay gelsin.

[mussimsek]

Veritabanı nedir, ben genelde SQL kullanmayı tercih ediyorum.

Select Count(*) as SAYI
from tablo
where ....

gibi. Daha sonra

Query1.FieldByName('SAYI').AsInteger > 0

gibi de kontrol ediyorum.

Kolay gelsin.

[vkamadan]

Merhaba ,
Bir sorgu sonucu kayıdın olup olmadığını datasetin IsEmpty metoduyla öğrenebilirsiniz örneğin,

Kod: Tümünü seç

if Query.IsEmpty then ShowMessage('Kriterlere Uyan Kayıt Yok..!');

İyi çalışmalar.

[delphikursu]

teşşekkür arkadaşlar dediğiniz yöntemleri denedim çalıştı ama kayıt varsa hata veriyor kayıt yoksa çalışıyor hata

acess.......... read adres A1.... gibi bir hata firebrid kullanıyorum ondan kaynaklandığın düşünüyorum nasıl yapmalıyım

[mussimsek]

Hocam kodları gönder fikir yürütelim böyle yardımcı olamayız.

Sorun emin ol %95 programcıdan kaynaklanıyordur. Ben hep hatayı kendimde ararım.

Kolay gelsin.

[aslangeri]

s.a.
@delphikursu hatanın tamamını yazsaydın keşke...
Ama Acces violation diye başlayan hatalar genelde henüz create edilmemiş bi bileşene ulaşmaya çalıştığın zaman veriir.
kolay gelsin.

[ofenX]

Merhaba,

Kod: Tümünü seç

select * from OGRENCI where AD LIKE 'ZÜ%' 

Kod: Tümünü seç

select * from OGRENCI where AD LIKE 'Zü%'

için, aşağıdaki kodlardan her ikiside çalışıyor.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
          IF IBQUERY1.Eof AND IBQUERY1.Bof THEN
              SHOWMESSAGE ('1. BOSTUR. ')
           ELSE SHOWMESSAGE('1. BOS DEGIL ');

            IF IBQUERY1.ISEMPTY  THEN
              SHOWMESSAGE ('2. BOSTUR. ')
           ELSE SHOWMESSAGE('2. BOS DEGIL ');

end;

mutlaka bir yerden bir şeyi kaçırmışsınızdır.
Kolay gelsin.

[delphikursu]

if (CheckBox1.Checked=true) and (CheckBox2.Checked=true) then
begin
if data.akbul.RecordCount=0 then
begin
ShowMessage('Kriterlere Uyan Kayıt Yok..!');
form2.Close;
exit;
end;
data.akbul.First;
while not data.AkBul.Eof do
begin
if not data.akbul.FieldByName('FOTO').IsNull then
begin
table1.Insert;
Table1Stok_no.AsInteger:=data.AkBulSTOK_NO.AsInteger;
Table1Stok_adi.AsString:=data.AkBulSTOK_ADI.AsString;
Table1Sira.AsString:=inttostr(s);
Table1.Post;
BlobField :=data.AkBul.FieldByName('FOTO');
BS := data.AkBul.CreateBlobStream(BlobField,bmRead);
jpg := TJPEGImage.Create;
jpg.LoadFromStream(BS);
Image1.Picture.Graphic := jpg;
Image1.Picture.SaveToFile('c:\katalog\resimler\resim'+inttostr(s)+'.jpg');
s:=s+1;
end;
if data.AkBul.FieldByName('FOTO').IsNull then s:=s+1;
data.AkBul.Next;
end;
end;

aynı hatayı vermedi ama Acces violation
başlıyordu karşılaryırma farklı kullandım

kod bu hatada tam olarak şu

projet proje2.exe raised exception class EInvalidoperation whit message 'canvas does not allow drawing ' process stopped use step or run to continue

[delphikursu]

bilgisayarı kapatım açdığımdada prg çalıştırıyorum button click yaptığmda hata veriyor prg çalışıor sorun yok gibi 2 kez çalıştırdığımda hata vermiyor hata

access violation at address 00403c39 in module 'prg.exe' read of address ae0ea028