Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   DUDA con Delphi7 (https://www.clubdelphi.com/foros/showthread.php?t=22729)

(VIH)Lestat 24-06-2005 23:46:52

DUDA con Delphi7
 
Disculpen.... alguien me puede decir por que despues de correr el siguiente codigo para almacenar datos en la IBTABLE

Código:

ModuloSID.IBTalumnos.Open;
                ModuloSID.IBTalumno_carrera.Open;
                ModuloSID.IBTsemestre.Open;
                ModuloSID.IBTalum_doc.Open;
 
                ModuloSID.IBTalumnos.Insert;
                ModuloSID.IBTalumno_carrera.Insert;
                ModuloSID.IBTsemestre.Insert;
                MOduloSID.IBTalum_doc.Insert;
 
 //Se captura la informacion directamente de las cajas de Texto
 
 
                ModuloSID.IBTalumnos.FieldByName('dni').AsString:=dni_a;
                ModuloSID.IBTalumnos.FieldByName('apellido_pa').AsString:=apellidopa;
                ModuloSID.IBTalumnos.FieldByName('apellido_ma').AsString:=apellidoma;
                ModuloSID.IBTalumnos.FieldByName('nombre').AsString:=Nombre;
                ModuloSID.IBTalumnos.FieldByName('sexo').AsString:=Sex;
                ModuloSID.IBTalumnos.FieldByName('direccion').AsString:=Dir;
                ModuloSID.IBTalumnos.FieldByName('localidad').AsString:=Local;
                ModuloSID.IBTalumnos.FieldByName('ciudad').AsString:=ciud;
                ModuloSID.IBTalumnos.FieldByName('telefono').AsString:=Tele;
                ModuloSID.IBTalumnos.FieldByName('fecha_ingreso').Value:=fecha_ing;
                ModuloSID.IBTalumnos.FieldByName('edo_civil').AsString:=edoc;
                MOduloSID.IBTalumnos.FieldByName('status').AsString:=statu;
                ModuloSID.IBTalumnos.Post;
 
                ModuloSID.IBTalumno_carrera.FieldByName('dni_alumno').AsString:=dni_a;
                ModuloSID.IBTalumno_carrera.FieldByName('dni_carrera').AsString:=carrera;
                ModuloSID.IBTalumno_carrera.Post;
 
                ModuloSID.IBTsemestre.FieldByName('dni_alumno').AsString:=dni_a;
                ModuloSID.IBTsemestre.FieldByName('semestre').AsInteger:=sem;
                ModuloSID.IBTsemestre.Post;
 
                ModuloSID.IBTalum_doc.FieldByName('dni_alumno').AsString:=dni_a;
                ModuloSID.IBTalum_doc.FieldByName('certificado').AsInteger:=cert;
                ModuloSID.IBTalum_doc.FieldByName('acta').AsInteger:=act;
                ModuloSID.IBTalum_doc.FieldByName('fotos').AsInteger:=fot;
                ModuloSID.IBTalum_doc.FieldByName('curp').AsInteger:=cur;
                ModuloSID.IBTalum_doc.Post;

luego situo el cursor del mouse en la parte que dice IBTalumnos.OPen o .INSERT y me sale un mensaje que dice UNACCSESIBLE VALUE a que se debe por que esta mal mi codigo

ercrizeporta 26-06-2005 02:25:59

si tomas los valores directamente de las cajas, que supongo serán "tedit" tndrás que poner edit.text para que haga referencia la texto que hay en la caja


La franja horaria es GMT +2. Ahora son las 02:23:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi