Ayuda Con Firebird

[claudianiev]

Bunas noches.

Mi nombre es Claudia, estoy trabajando una aplicacion en Dephi cuyo motor de Base de Datos es Firebird y deseo realizar una consulta editable.... el codigo para realizar la modificacion es el siguiente:

Código Delphi [-]
procedure TModificarPartida.BitBtn2Click(Sender: TObject);
var co: char;
begin
co:=char(39);
if (Tablas.basedatos.connected) then
       begin
       NRB:=(edit2.Text+edit3.Text+edit4.Text);
       Tablas.Query.Database:=tablas.BaseDatos;
       Tablas.Query.Transaction:=Tablas.Transaccion;
       Tablas.Query.SQL.Text:='update TBautismo set  NREGISTRO = '+co+NRB+co+', NLIBRO = '+co+edit2.text+co+' , NFOLIO= '+co+Edit3.text+co+', NFELI= '+co+Edit4.text+co+',FECHABAUTISMO= '+Quotedstr(Formatdatetime('mm/dd/yyyy',datetimepicker1.date))+''+
      ',APELLIDOS= '+co+Edit5.text+co+',NOMBRES= '+co+Edit6.text+co+', FECHANACIMIENTO = '+QuotedStr(FormatDateTime('mm/dd/yyyy',DateTimePicker2.Date))+', LUGARNACIMIENTO = '+co+Edit7.text+co+' , PADRE = '+co+Edit8.text+co+' , MADRE = '+co+Edit9.text+co+''+
      ',ABUELOSPATERNOS='+co+Edit10.text+co+' , ABUELOSMATERNOS= '+co+Edit11.text+co+' , PADRINO= '+co+Edit12.text+co+' , MADRINA= '+co+Edit13.text+co+' , MINISTRO= '+co+Edit14.text+co+', DAFE= '+co+Edit15.Text+co+'';
       Tablas.Query.ExecSQL;
       Tablas.Transaccion.Commit;
       ShowMessage('Informacion modificada satisfactoriamente');
       ModificarPartida.Close;
       end;
end;

y el codigo para activar los datos de la tabla en sus esdits correspondientes es el siguiente:

Código Delphi [-]
procedure TModificarPartida.ModificarBautismo;
begin
        Edit2.Text:=QMPartida.FieldbyName ('NLIBRO').asstring;
        Edit3.Text:=QMPartida.FieldbyName ('NFOLIO').asstring;
        Edit4.Text:=QMPartida.FieldbyName ('NFELI').asstring;
        DateTimePicker1.Date:=QMpartida.fieldByName('FECHABAUTISMO').asdatetime;
        Edit5.Text:=QMPartida.FieldbyName ('APELLIDOS').Asstring;
        Edit6.Text:=QMPartida.FieldbyName ('NOMBRES').asstring;
        DateTimePicker2.Date:=QMpartida.fieldByName('FECHANACIMIENTO').asdatetime;
        Edit7.Text:=QMPartida.FieldbyName ('LUGARNACIMIENTO').asstring;
        Edit8.Text:=QMPartida.FieldbyName ('PADRE').asstring;
        Edit9.Text:=QMPartida.FieldbyName ('MADRE').asstring;
        Edit10.Text:=QMPartida.FieldbyName ('ABUELOSPATERNOS').asstring;
        Edit11.Text:=QMPartida.FieldbyName ('ABUELOSMATERNOS').asstring;
        Edit12.Text:=QMPartida.FieldbyName ('PADRINO').asstring;
        Edit13.Text:=QMPartida.FieldbyName ('MADRINA').asstring;
        Edit14.Text:=QMPartida.FieldbyName ('MINISTRO').asstring;
        Edit15.Text:=QMPartida.FieldbyName ('DAFE').asstring;
end;

El inconbeniente es que me genera un error en el momento de ejecucion con los DateTimePicker....

Les agradezco mucho la atencion prestada.....es urgente!!!!

[dec]

Hola,

Empezado por Claudia

El inconbeniente es que me genera un error en el momento de ejecucion con los DateTimePicker....

Hay otro inconveniente: no podemos adivinar (lo siento, no me he parado a leer tu código fuente, pero, lo he editado para una mejor legilibilidad), digo, que no podemos adivinar qué error se produce si no nos lo dices... ¿no te parece?

[estebanx]

Saludos Claudia,
Mira creo que no seran compactibles los tipos date con datetime, prueba poniendole a tu datetimepicker datetime y nos cuenta que te sale.

saludos

[Lokisan]

Es probable q el error se deba al idioma, que el formato de fecha que usas sea diferente en la maquina donde esta tu servidor, que usaria un formato de fecha default al idioma del servidor, lo que puedes hacer es en el dateformat cambiar las diagonales por . (puntos), con eso el servidor interpreta la fecha de forma correcta sin importar q formato le diste, o al menos eso me ha funcionado a mi, espero que esto solucione tu problema

[Casimiro Notevi]

Le dice la mamá a Jaimito: "te he dicho que no, que no y que no, que no te lo compro". Luego llegó el papá y se lo compró.