Çözüldü sql sorgu 1 kere çalışıyor ikincide hata veriyor

[sadikacar60]

arkadaşlar lazarusda aşağıdaki kod ilk çalıştığında hata vermiyor ama ikinci kez data geldiğinde hata veriyor neyi eksik yapıyorum acaba

not. veritabanına create eventinde bir kere bağlanıyorum hep bağlı kalıyıor.

saygılarımla

//*****************************************************************
function FEN_Dogru_Yanlis_Kontrolu(KID:string;soru:string): string;
var
sonuc:string;
begin
try
 DMvt.SQLQuery1.SQL.Clear;
 DMvt.SQLQuery1.SQL.Add('select * from TBL_FEN where KID='+KID );
 DMvt.SQLQuery1.Open;
   sonuc:=DMvt.SQLQuery1.fieldbyname(soru).value;

   Result :=sonuc;
except//**
begin
end;
end; //**
end;
//***************************************************************** 

[Halil Han BADEM]

(23-06-2019, Saat: 16:40)sadikacar60 Adlı Kullanıcıdan Alıntı: arkadaşlar lazarusda aşağıdaki kod ilk çalıştığında hata vermiyor ama ikinci kez data geldiğinde hata veriyor neyi eksik yapıyorum acaba

not. veritabanına create eventinde bir kere bağlanıyorum hep bağlı kalıyıor.

saygılarımla

Kod: (Select All)

//*****************************************************************
function FEN_Dogru_Yanlis_Kontrolu(KID:string;soru:string): string;
var
sonuc:string;
begin
try
 DMvt.SQLQuery1.SQL.Clear;
 DMvt.SQLQuery1.SQL.Add('select * from TBL_FEN where KID='+KID );
 DMvt.SQLQuery1.Open;
   sonuc:=DMvt.SQLQuery1.fieldbyname(soru).value;

   Result :=sonuc;
except//**
begin
end;
end; //**
end;
//*****************************************************************  

Merhaba,

SQLQuery1.Open ile ilk döngüde açıyorsunuz nesneyi. Sonrasında tekrar açmaya çalışınca muhtemelen nesnenin açık olduğunu söylüyor. Kodunuzu şu şekilde güncellerseniz çözüme ulaşırsınız;

function FEN_Dogru_Yanlis_Kontrolu(KID:string;soru:string): string;
var
  sonuc:string;
begin

 DMvt.SQLQuery1.Close; ///--- Kapatıyoruz
 DMvt.SQLQuery1.SQL.Clear;
 DMvt.SQLQuery1.SQL.Add('select * from TBL_FEN where KID='+KID );
 DMvt.SQLQuery1.Open;

   sonuc:=DMvt.SQLQuery1.fieldbyname(soru).value;

   Result :=sonuc;
end;

İyi çalışmalar.

[mcuyan]

Hocam Add yerine Text:= kullansanız belki sorun olmayacak.. Ama ADd ile her seferinde ilk sorguya diğer sorguları ekleyerek devam ediyorsunuz.. yani 2. sorgunuzun içeriği:
select * from TBL_FEN where KID='+KID select * from TBL_FEN where KID='+KID
oluyor.

Her select den önce mutalaka
DMvt.SQLQuery1.SQL.Close;
DMvt.SQLQuery1.SQL.Clear;
....
..
..
DMvt.SQLQuery1.SQL.Open;
yapınız tıpkı Halil Arkadaşımızın bahsettiği gibi.

[Halil Han BADEM]

(23-06-2019, Saat: 18:09)mcuyan Adlı Kullanıcıdan Alıntı: Hocam Add yerine Text:= kullansanız belki sorun olmayacak.. Ama ADd ile her seferinde ilk sorguya diğer sorguları ekleyerek devam ediyorsunuz.. yani 2. sorgunuzun içeriği:
select * from TBL_FEN where KID='+KID select * from TBL_FEN where KID='+KID
oluyor.

Her select den önce mutalaka
DMvt.SQLQuery1.SQL.Close;
DMvt.SQLQuery1.SQL.Clear;
....
..
..
DMvt.SQLQuery1.SQL.Open;
yapınız tıpkı Halil Arkadaşımızın bahsettiği gibi.

Add'den önce Clear mevcut.

[mcuyan]

@Halil Han BADEM Genel kullanım açısından standart'ı belirttim

[yhackup]

Hatanın ne olduğunu yazabilir misin ?

[sadikacar60]

öncelikle zaman ayırıp cevap yazdığınız için teşekkür ederim.

DMvt.SQLQuery1.SQL.Close;  //hata veriyor
DMvt.SQLQuery1.SQL.Text('select * from TBL_FEN where KID='+KID );  //hata veriyor

saygılarımla

Derleme Projesi, Hedef: LGS_MAT_VIDEO.exe: Çıkış kodu 1, Hatalar: 1, İpuçları: 1
udmvt.pas(301,22) Error: identifier idents no member "Close"

[Halil Han BADEM]

(23-06-2019, Saat: 21:21)sadikacar60 Adlı Kullanıcıdan Alıntı: öncelikle zaman ayırıp cevap yazdığınız için teşekkür ederim.


 DMvt.SQLQuery1.SQL.Close;  //hata veriyor
 DMvt.SQLQuery1.SQL.Text('select * from TBL_FEN where KID='+KID );  //hata veriyor

saygılarımla

Derleme Projesi, Hedef: LGS_MAT_VIDEO.exe: Çıkış kodu 1, Hatalar: 1, İpuçları: 1
udmvt.pas(301,22) Error: identifier idents no member "Close"

Düzeltme yapayım hemen SQL.Close değil Close olacak. SQL.Text() şeklinde değilde SQL.Text := ''; şeklinde olmalıdır.

Yani;

 DMvt.SQLQuery1.Close; //hata vermez
 DMvt.SQLQuery1.SQL.Text := 'select * from TBL_FEN where KID='+KID;

[sadikacar60]

DMvt.SQLQuery1.Close;

EKLEYİNCE DÜZELDİ arkadaşlar çok teşekkür ederim. kafa çok şisince bazı basit şeyleri gözden kaçırıyorum

saygılarımla

[r3n4m3]

Bir de bende bir şey yazayım.

DMvt.SQLQuery1.SQL.Text := 'select * from TBL_FEN where KID='+KID;

Bu şekilde olan sorgularda bu kısa tabiki daha uzun ve daha çok parametreli olduğu için tarih mi şu mu bu mu bazen problem yaşayabiliyoruz o yüzden ben genel olarak parametre geçerim yani bu şekilde

DMvt.SQLQuery1.SQL.Text := 'select * from TBL_FEN where KID=:KID';
DMvt.SQLQuery1.Parambyname('KID').asinteger:=Neyse gelen değer;

En azından bir sorun yaşanmiyor.

Kolay gelsin