SATIS_FIYAT1 alanını 25,2 girdiğim zaman hata veriyor ama 25.2 girdiğim zaman güncelliyor. Eğer tabloda virgüllü sayı varsa Update edince de hata veriyor.
Kod: Tümünü seç
procedure TForm26.BitBtn2Click(Sender: TObject);
Var
SabitCevap : Word;
begin
SabitCevap:=Application.MessageBox('Stok Bilgileri Güncellenecektir. Eminmisiniz ?','Stok Güncelle',MB_YESNO);
if (SabitCevap=mrYes) Then
begin
StokSabit.Close;
StokSabit.SQL.Clear;
StokSabit.SQL.Add('UPDATE TBLSTSABIT SET SATIS_FIAT1='+QuotedStr(MaskEdit1.Text)+',SATIS_FIAT2=' +QuotedStr(MaskEdit2.Text) +',SATIS_FIAT3='+QuotedStr(MaskEdit3.Text)+' WHERE STOK_KODU='+QuotedStr(Edit1.Text)+'');
StokSabit.ExecSQL;
StokSabit.EnableControls;
Form25.BitBtn1.Click;
End;
---------------------------
Debugger Exception Notification
---------------------------
Project MENU.exe raised exception class EOleException with message 'Error converting data type varchar to numeric'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------