DBEdit2.Text := DateTimeToStr(TarihZaman); bu şekilde aktarıyorum ama veri tabanı SQL olduğu için 2018-12-10 14:01:51 bu şekilde kaydetmek istiyorum.
Kod: Tümünü seç
EmanetEfat.Close;
EmanetEfat.SQL.Clear;
EmanetEfat.SQL.Text :='INSERT INTO TBLEMANETEFAT (DEPO_KODU,PLASIYER_KODU,PLA_KODU,ACIKLAMA,INCKEYNO,BELGENO,CARIKODU,KAYITTARIHI,DUZELTMETARIHI) VALUES ('+QuotedStr(Edit4.text)+','+QuotedStr(Edit5.text)+','+QuotedStr(Edit6.text)+','+QuotedStr(Edit7.text)+','+QuotedStr(Edit8.text)+','+QuotedStr(BelgeNo.text)+','+QuotedStr(CariKodu.text)+','convert(datetime,'''+datetostr(DBEdit1.Text)+''',104)','convert(datetime,'''+datetostr(DBEdit2.Text)+''',104)'';
EmanetEfat.ExecSQL;
EmanetEfat.EnableControls;