[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!!!!