bueno el problema que tengo es que no guarda la fecha correcta en la base de datos por ejemplo si paso como parametro 10/11/2009 en la base de datos me inserta la fecha 1900-01-01 00:00:00.000, y no encuentro el problema alguien me puede ayudar
Código Delphi
[-]procedure Tfcontribuyente.BguardarClick(Sender: TObject);
var wsap: string;
var wnocontrato: string;
var wnombre: string;
var wpaterno: string;
var wmaterno: string;
var wlocalidad: string;
var wcalle: string;
var wnoext: integer;
var wnoint: integer;
var wcp: integer;
var wfechare: TDate;
var wtel: String;
var wobs: string;
var wanio: string;
var wmes: string;
var wdia: string;
var wsegundo: string;
wsap:='SAP-C';
wanio:=FormatDateTime('yyyy',Date);
wmes:=FormatDateTime('mm',Date);
wdia:=FormatDatetime('dd',date);
wsegundo:=formatdatetime('ss',Time);
wnocontrato:=trim(wsap+wanio+wmes+wdia+wsegundo);
wnombre:=trim(fcontribuyente.txtnombre.Text);
wpaterno:=trim(fcontribuyente.txtpaterno.Text);
wmaterno:=trim(fcontribuyente.txtmaterno.Text);
wlocalidad:='SAN MIGUEL XALTIPAN';
wcalle:= trim(fcontribuyente.txtcalle.Text);
wnoext:=StrToint(fcontribuyente.txtext.Text);
wnoint:=StrToint(fcontribuyente.txtint.Text);
wcp:=StrToint('54090');
wfechare:=Dfecha.Date;
wtel:=trim(fcontribuyente.txttel.Text);
wobs:=trim(fcontribuyente.txtobser.Text);
fmodulo.Qcontry.Close;
Código SQL
[-]
with fmodulo.Qcontry do
begin
sql.Clear;
sql.Add(' insert into sap_contrato (');
Sql.Add(' nocontrato ,'); //1
sql.Add(' nombre ,');//2
sql.Add(' paterno ,');//3
sql.Add(' materno ,');//4
sql.Add(' localidad ,');//5
sql.Add(' calle ,');//6
sql.Add(' noext ,');//7
sql.Add(' noint ,');//8
sql.Add(' cp ,');//9
sql.Add(' fecharegistro ,');//10
sql.Add(' telefono ,');//11
sql.Add(' observacio ');//12
sql.Add(' ) values (');
sql.Add(' '+QuotedStr(wnocontrato)+', ');//1
sql.Add(' '+QuotedStr(wnombre)+', ');//2
sql.Add(' '+QuotedStr(wpaterno)+', ');//3
sql.Add(' '+QuotedStr(wmaterno)+', ');//4
sql.add(' '+QuotedStr(wlocalidad)+', ');//5
sql.Add(' '+QuotedStr(wcalle)+', ');//6
sql.Add(' '+IntToStr(wnoint)+', ');//7
sql.Add(' '+inttostr(wnoext)+', ');//8
sql.Add(' '+Inttostr(wcp)+', '); //9
sql.Add(' '+DateToStr(wfechare)+', ');//10
sql.Add(' '+QuotedStr(wtel)+', ');//11
sql.Add(' '+QuotedStr(wobs)+')');//12
fcontribuyente.lvalida.Caption:=fmodulo.Qcontry.SQL.Text;
try
ExecSQL;
except
showmessage('Problemas con query ['+text+']');
end;
end;
aunque valido el texto del Tquery el muestra lo siguiente.
Código SQL
[-] insert into sap_contrato (
nocontrato ,
nombre ,
paterno ,
materno ,
localidad ,
calle ,
noext ,
noint ,
cp ,
fecharegistro ,
telefono ,
observacio
) values (
'SAP-C2009111032',
'HORACIO',
'XOCHITEMOL',
'BAUTISTA',
'SAN MIGUEL XALTIPAN',
'REFORMA',
6,
6,
54090,
10/11/2009,
'53834328',
'INICIO DE CONTRATO')
en el text del tquery la fecha es: 10/11/2009 en la base de datos me inserta 1900-01-01 00:00:00.000
cual creen que sea el problema. espero me puedana yudar