insert tarih (Kısmen Çözüldü)

[deltas]

Merhaba arkadaşlar.
Sorunnum MSSQL'de tarih bilgisini insert etmek. Bi türlü içeriye bilgileri göndermeyi beceremedim. forumada arama yaptım ancak daha önce tartışılmışta orada söylenenler hep select için. İnsertte onlar deneedim, beceremedim hep hata aldım (convert komutu ile yapılanda). Kullandığım kod aşşağıdaki gibi nasıl yapabilirim. Yardımcı olursanız memnun olurum.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Active;
SQL.Clear;
sql.add('insert into  kimlik (tckimlik,adi,soyadi,tarih)');
sql.add('values(  :tcno , :ad, :soyad, :tarih )');
Parameters.ParamByName('ad').Value:=Edit1.Text;
Parameters.ParamByName('soyad').Value:=edit2.text;
Parameters.ParamByName('tcno').Value:=edit3.text;
Parameters.ParamByName('tarih').Value:=strtodate(edit4.Text);
ExecSQL;
end;
end;

[aslangeri]

s.a.
verdiği hata mesajı ney?

[conari]

db deki tarih alanın özellikleri ile ilgili olabilir.
veya edit4 de tarih / kullarak girilmiş olabilir. v.s. Hata mesajını görmek en iyisi.

[deltas]

[ODBC] isteğe bağlı işllem uygulanamadı

şeklinde bi hata alıyorum. tarih alanına bilgi girmediğimde sorun yok. Sorun tarih alanına girmeye çalıştığım bilgide. Oraya insert yapmaya çalıştığımda hata veriyor. o field'in özelliğide datetime olarak ayarlanmış (smalldate şeklinde yaraladığımdada aynı hatayı alıyorum). Edit4.text yerine datetimepicker.date kullandığımda da hatayı alıyorum. MSSQL'de date bilgisini insert ederken başka bi şekilde formatlamamız mı lazım?
İlginize teşekkür ederim.

[conari]

datetime alanda problem olmaması lazım
MMSql de tarih biçimini nasıl ayarladınız.
datanın içini açıp bakın format nasıl ?Sanırım YYYY-AA-GG

şeklinde ,siz de bu formatta kayıt gönderin.

[deltas]

hocam formatı dd.mm.yyyy şeklinde. manuel girişlerde bunu kabul ediyor. ancak ben edit4.text'te bu şekilde yazdığımda veta datetimepicker.date ile bilgiyi ado ile insert ederken bana

[microsoft][ODBC sql server driverr] isteğe bağlı özellik uygulanmadı

şeklinde hata almaya devam ediyorum.

[conari]

Exec etmeden önce
oluşan Sql cümlesini copyalayıp Query analayzer da manuel çalıştırın.
aynı sorunu verecek mi?

[deltas]

query de hata almadım.

[conari]

Aklıma başka bir şey gelmiyor açıkçası
Parametrelerin önceden var olan sabit bir değeri varmı buna bakın veya parametre kullanmadan sqli oluşturup exec edin

[deltas]

Sorunu kısmen çözdüm. Ancak halen neden parametre ile atamda sorun çıkardığını anlamadım.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Active;
SQL.Clear;
sql.add('insert into  kimlik (tckimlik,adi,soyadi,tarih)');
sql.add('values( :ad,:soyad,:tcno,'''+edit4.Text+''' )');
Parameters.ParamByName('ad').Value:=Edit1.Text;
Parameters.ParamByName('soyad').Value:=edit2.text;
Parameters.ParamByName('tcno').Value:=edit3.text;

[rsimsek]

ParamCheck i False ve Prepared i True yapıp dene.

[deltas]

Hocam olmadı. çalışmadı. Bu seferde not found 'ad' parameter diye bi hata verdi.

[sabanakman]

Ben parametrelerden oldum olası uzak dururum. Ne de olsa variant. Pek güven olmaz bunlara. Gerçi çevremde bununla sorunsuz çalışanlar var ama ben uzak duruyorum. Bu kişisel tercihim diyelim geçelim. Tarih alanı ile ilgili işlemlerim için Connection nesnesinin AfterConnection olayında

Kod: Tümünü seç

set quoted_identifier on
set dateformat dmy

şeklinde ayarımı yaparım. Eğer connection nesnesi kullanmıyorsan da o zaman biden fazla komutu tek exec içinde çalıştırabilirsin.

Kod: Tümünü seç

ADOQuery1.Execute('set dateformat dmy insert into tbl (tarih) values (''31.12.2006'')');

gibi. Kolay gelsin.

[rsimsek]

Belki veri tiplerine dikkat ederek özellikle tarih formatına, parametrik değil de sql i oluştururken

Kod: Tümünü seç

...
sql.add('insert into  kimlik (tckimlik,adi,soyadi,tarih)');
sql.add('values( ' + Edit1.Text + ', ' + Edit2.Text + ', ' + Edit3.Text + ', ' + Edit4.Text + ')');
ExecSQL; 

şekli daha sorunsuz olabilir

[conari]

Sorunu kısmen çözdüm. Ancak halen neden parametre ile atamda sorun çıkardığını anlamadım.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Active;
SQL.Clear;
sql.add('insert into  kimlik (tckimlik,adi,soyadi,tarih)');
code][/quote] 
Gözden kaçmış ama,
buradaki [u][b]active;[/b][/u] kodunuda bir kaldır istersen :lol:  :wink: