Aynı Kayıt Var Mesajı !!

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ozcank
Üye
Mesajlar: 857
Kayıt: 28 Nis 2005 04:29

Aynı Kayıt Var Mesajı !!

Mesaj gönderen ozcank » 18 Nis 2019 02:38

Arkadaşlar Merhaba ; Mükerrer kayıt kontrolü bir kod var ve kayıt var sa buluyor sorun yok fakat kayıt yok ise birincide kaydediyor ikinci button tıklamam da girdiğim kayıt için var demeli iken hata veriyor nerde yanlışım olabilir bakabilir misiniz?

Kod: Tümünü seç

procedure TForm9.Button1Click(Sender: TObject);
begin
SeriNoKayit.Close;
SeriNoKayit.Active:=True;
IF SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else
//IF NOT SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (''0'','+#39+''+Edit3.Text+''+#39+',''1'',''000000000000'')';
SeriNoKayit.ExecSQL;
End;
Hata :"command text does not return a result set"

tayipk
Üye
Mesajlar: 281
Kayıt: 27 Kas 2013 11:32

Re: Aynı Kayıt Var Mesajı !!

Mesaj gönderen tayipk » 18 Nis 2019 02:39

Serinokayit.sql.clear yerine close kullanırsan sorunun çözülür diye düşünüyorum.
Soru Sorarken yazmaya Üşenmeyen Parmaklar Sorunun Çözüldükten Sonra Teşekkür etmeye de Üşenmesin.

ozcank
Üye
Mesajlar: 857
Kayıt: 28 Nis 2005 04:29

Re: Aynı Kayıt Var Mesajı !!

Mesaj gönderen ozcank » 18 Nis 2019 03:10

Emeğinize yüreğinize sağlık. Çok teşekkür ederim. Sorunu şu şekilde çözüme kavuşturdum paylaşmak istedim;

Kod: Tümünü seç

procedure TForm9.Button1Click(Sender: TObject);
begin
SeriNoKontrol.Close;
SeriNoKontrol.Active:=True;
IF SeriNoKontrol.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Girdiğiniz Seri Mevcuttur Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else
begin
SeriNoKayit.Close;
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (:SUBEKOD,:SERINO,:SERITIP,:SERINUMARA)';
SeriNoKayit.Parameters.ParamByName('SUBEKOD').Value:='0';
SeriNoKayit.Parameters.ParamByName('SERINO').Value:=Edit3.Text;
SeriNoKayit.Parameters.ParamByName('SERITIP').Value:='1';
SeriNoKayit.Parameters.ParamByName('SERINUMARA').Value:='000000000000';
SeriNoKayit.ExecSQL;
end;
End;



Cevapla