Buen día, tengo una duda y espero me la puedan resolver, de antemano gracias.
Tengo un formulario en donde involucro 2 tablas, cuando elijo la opcion de modificar y sólo modifico los datos que involucran a una de las 2 tablas, o bien a ninguna, y guardo cambios, que consiste en pasar a la table1 y table2 lo que tienen los respectivos edits. Que debe de pasar, aunque no modifique nada y guarde?
* Se deben, por decir, de sobreescribir los datos.
Esk esa es mi idea, pero en mi aplicación me causa error que no encuentra la columna para realizar la actualización, algo así me marca. En caso que nada más, modifique los datos de una tabla, si modifico datos de ambas tablas no me marca error, pero por decir q no modifique nada y le doy guardar cambios, me da error.
Mi código es el siguiente:
Código Delphi
[-]
ADOtblPac.Open;
ADOtblPac.Edit;
ADOtblPac.FieldByName('CveCte').AsString:=EditCvePac.Text;
ADOtblPac.FieldByName('NombreC').AsString:=EditNom.Text;
ADOtblPac.FieldByName('ApellidoC').AsString:=EditApe.Text;
ADOtblPac.FieldByName('CalleC').AsString:=EditCalle.Text;
ADOtblPac.FieldByName('NoC').AsInteger:=StrToInt(EditNo.Text);
ADOtblPac.FieldByName('CPC').AsInteger:=StrToInt(EditCp.Text);
ADOtblPac.FieldByName('TelC').AsString:=EditTel.Text;
ADOtblPac.FieldByName('CdC').AsString:=EditCd.Text;
ADOtblPac.FieldByName('ColC').AsString:=EditCol.Text;
ADOtblPac.FieldByName('RfcC').AsString:=EditRfc.Text;
ADOtblPac.Post;
ADOtblPac.Refresh;
ADOtblPac.Close;
ADOtblFichaId.Open;
ADOtblFichaId.Edit;
ADOtblFichaId.FieldByName('IdFicha').AsString:=EditHClin.Text;
ADOtblFichaId.FieldByName('CveCte').AsString:=EditCvePac.Text;
ADOtblFichaId.FieldByName('FechaNac').AsString:=EditFNac.Text;
ADOtblFichaId.FieldByName('LugarNac').AsString:=EditLNac.Text;
ADOtblFichaId.FieldByName('Ocupacion').AsString:=EditOcup.Text;
ADOtblFichaId.FieldByName('Escolaridad').AsString:=EditEsc.Text;
ADOtblFichaId.FieldByName('Sexo').AsString:=ComboSexo.Text;
ADOtblFichaId.FieldByName('Edocivil').AsString:=ComboEdoCivil.Text;
ADOtblFichaId.FieldByName('FechaElabExp').AsString:=EditPrimCons.Text;
ADOtblFichaId.Post;
ADOtblFichaId.Refresh;
ADOtblFichaId.Close;