İlk Kaydı yapıyor sql veri tabanına bakıyorum 3-4 tane atmış en son bu hatayı veriyor. Aynı kayıt girişini engelleme kontrolü yapmak istiyorum.
Verdiği Hata : EmanetEfat: CommandText does not return a result set.
Sorgum Bu ;
Kod: Tümünü seç
procedure TForm18.BitBtn4Click(Sender: TObject);
begin
With EmanetEfat do
Begin
EMANETEFAT.Active:=True;
if EMANETEFAT.Locate('INCKEYNO',Edit8.Text,[]) then
showmessage('Bu isimde bir kayıt var.Başka bir kayıt girin.')
else
Begin
EmanetEfat.Close;
SQL.Text := 'INSERT INTO TBLEMANETEFAT (DEPO_KODU,PLASIYER_KODU,PLA_KODU,ACIKLAMA,INCKEYNO,BELGENO,CARIKODU) VALUES (:DEPO_KODU,:PLASIYER_KODU,:PLA_KODU,:ACIKLAMA,:INCKEYNO,:BELGENO,:CARIKODU)' ;
Parameters.ParamByName('DEPO_KODU').value := Edit4.text;
Parameters.ParamByName('PLASIYER_KODU').value :=Edit5.text;
Parameters.ParamByName('PLA_KODU').value :=Edit6.text;
Parameters.ParamByName('ACIKLAMA').value :=Edit7.text;
Parameters.ParamByName('INCKEYNO').value :=Edit8.text;
Parameters.ParamByName('BELGENO').value :=BelgeNo.text;
Parameters.ParamByName('CARIKODU').value :=CariKodu.text;
Try
EmanetEfat.ExecSQL;
except on E: Exception do
MessageDlg(E.Message,mtError,[mbOK],0);
end;
end;
end;
end;
End.