Buen dia, quiero comprobar por medio de ustedes mi Edit esta bien, estoy trabajando con Oracle.
He aqu mi cdigo.
Dim EDITA As RecordSet
EDITA=XE.SQLSelect("SELECT * FROM SAIT WHERE CLAVE_ASIG='" + Trim(TXT_ID.Text) + "'AND CLIENTE='" + Trim(TXT_CLIENTE.Text) + "'AND ENTREVISTADOR='" + Trim(TXT_ENTREVISTADOR.Text) + "'")
While Not EDITA.EOF
EDITA.Edit
EDITA.Field("SOLICITADO_POR").StringValue=Trim(P1_SOLICITADO_POR.Text)
EDITA.Field("TIPO_SERVICIO").StringValue=Trim(P1_TIPO_SERVICIO.Text)
EDITA.Field("TIEMPO_EN_PLANTA").StringValue=Trim(P1_TIEMPO_EMERSON.Text)
EDITA.Field("NOMBRE").StringValue=Trim(P1_NOMBRE.Text)
EDITA.Field("EDAD").StringValue=Trim(P1_EDAD.Text)
EDITA.Field("SEXO").StringValue=Trim(P1_SEXO.Text)
EDITA.Field("FECHA_NACIMIENTO").StringValue=Trim(P1_FECHA_NACIMIENTO.Text)
EDITA.Field("ESTADO_CIVIL").StringValue=Trim(P1_ESTADO_CIVIL.Text)
EDITA.Field("TIEMPO").StringValue=Trim(P1_TIEMPO.Text)
EDITA.Field("HIJOS").StringValue=Trim(P1_HIJOS.Text)
EDITA.Field("NUMERO_PERSONAS_DEPENDEN").StringValue=Trim(P1_PERSONAS.Text)
EDITA.Field("LUGAR_NACIMIENTO").StringValue=Trim(P1_LUGAR_NACIMIENTO.Text)
EDITA.Field("NACIONALIDAD").StringValue=Trim(P1_NACIONALIDAD.Text)
EDITA.Field("CELULAR").StringValue=Trim(P1_CELULAR.Text)
EDITA.Field("CORREO_ELECTRONICO").StringValue=Trim(P1_CORREO.Text)
EDITA.Field("FACEBOOK_TWITTER").StringValue=Trim(P1_FACEBOOK.Text)
EDITA.Field("CALLE_NUMERO").StringValue=Trim(P1_CALLE.Text)
EDITA.Field("ENTRE_CALLES").StringValue=Trim(P1_ENTRE_CALLES.Text)
EDITA.Field("COLONIA").StringValue=Trim(P1_COLONIA.Text)
EDITA.Field("LOCALIDAD_MUNICIPIO").StringValue=Trim(P1_LOCALIDAD.Text)
EDITA.Field("CODIGO_POSTAL").StringValue=Trim(P1_CP.Text)
EDITA.Field("ANTIGUEDAD").StringValue=Trim(P1_ANTIGUEDAD.Text)
EDITA.Field("COMENTARIOS_SECCION_I").StringValue=Trim(P1_COMENTARIOS.Text)
EDITA.Update
wend
XE.Commit