Veri Tabanı Tarih Kaydetme [Çözüldü]

[ozcank]

Arkadaşlar; Bu şekilde veri tabanına Tarih ve ComboBox ları kaydedemiyorum sebebi nedir? Yardımcı olabilecek misiniz?

Kod: Tümünü seç

Begin
MADENKAYIT.Append;
MADENKAYIT.FieldByName('MD_KAYITID').Value:=Edit4.Text;
MADENKAYIT.FieldByName('MD_CEMKODU').Value:=Edit1.Text;
MADENKAYIT.FieldByName('MD_ADSOYAD').Value:=DBEdit1.Text;
MADENKAYIT.FieldByName('MD_SINIFI').Value:=DBEdit2.Text;
MADENKAYIT.FieldByName('MD_TCKIMLIK').Value:=Edit2.Text;
MADENKAYIT.FieldByName('MD_OGRNO').Value:=Edit3.Text;
MADENKAYIT.FieldByName('MD_NUFKAYIL').Value:=ComboBox1.Text;
MADENKAYIT.FieldByName('MD_DOGYERI').Value:=ComboBox2.Text;
MADENKAYIT.FieldByName('MD_DOGTARIHI').Value:=DateTimePicker1.Date;
MADENKAYIT.FieldByName('MD_BAYBYN').Value:=ComboBox3.Text;
MADENKAYIT.FieldByName('MD_KANGRUP').Value:=DBEdit3.Text;
MADENKAYIT.FieldByName('MD_UNVGTAR').Value:=DateTimePicker2.Date;
MADENKAYIT.FieldByName('MD_BLMKTERC').Value:=DBEdit4.Text;

---------------------------
Debugger Exception Notification
---------------------------
Project MADENPRJ1.exe raised exception class EOleException with message 'Conversion failed when converting date and/or time from character string'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[ertank]

Merhaba,

Aşağıdaki satırı

Kod: Tümünü seç

MADENKAYIT.FieldByName('MD_DOGTARIHI').Value:=DateTimePicker1.Date;

şu şekilde değiştirerek tarih kısmı ile ilgili sorun çözülüyor mu deneyebilir misiniz?

Kod: Tümünü seç

MADENKAYIT.FieldByName('MD_DOGTARIHI').AsDateTime := DateTimePicker1.Date;

[ozcank]

ertank kardeşim dediğin şekilde kodu değiştirdim ama olmadı. Şu şekilde çözdüm;

Kod: Tümünü seç

procedure TForm2.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=Date;
Edit3.Text:=datetostr(datetimepicker1.Date);

ama neden diğer kod ile kaydedemedim hala çözemedim.

[ozcank]

Bu şekilde de kullandım olmadı yardım edebilir misiniz?

MADENKAYIT.FieldByName('MD_DOGTARIHI').AsDateTime:=RzDBDateTimePicker1.Date;

---------------------------
Debugger Exception Notification
---------------------------
Project MADENPRJ1.exe raised exception class EConvertError with message ''' is not a valid date and time'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[Bulutiib]

Merhaba,
Uzak bağlantı ayarlayın çözelim.

İyi çalışmalar.

[ozcank]

bulutiib kardeşim çok teşekkür ederim sorunu çözdüm ve paylaşıyorum;

Kod: Tümünü seç

MADENKAYIT.FieldByName('MD_DOGTARIHI').AsDateTime:=DateTimePicker1.Date;

ve benim hatam SQL veri tabanın da alanı "Date" olarak seçmiştim burayı "DateTime" seçince kaydetmeye başladı.

sizlere çok teşekkür ediyorum. İyi ki varsınız.

[Bulutiib]

Kolay Gelsin.