ALmacenar Un Campo En 3 tablas diferentes

[(VIH)Lestat]

AYUDAAAA!!!!!!

Miren ya quite todos mis DBedits de mi formulario y meti los TEDITs entonces en el edit1 es en donde se encuentra la matricula del alumno y todos mis datos los voy a almacenar de la siguiente manera:

IBtable1.fieldbyname('dni').asString:= EDit1.text;
Ibtable2.fieldbyname('dni_alumno').asstring:=Edit1.text;
IBtable3.fieldbyname('dni_alumno').asstring:=edit1.text;
IBtable4.fieldbyname('dni_alumno').asstring:=Edit1.text;

en el boton "guardar" (button1) y lo unico que tengo enlazadoo que supuestamente se guardaria automaticamente son unos DBcombobox que contienen informacion sobre el status del alumno y el estado civil....

Pero me marca error acerca de que el 'FIELD 'DNI_ALUMNO' MUST HAVE A VALUE' ... a que se debe este mensaje?????
sera que no puedo guardar la informacion de un edit en diferentes tablas??? acaso cuando lo guardo en la primera se borra la informacion del EDIT...???

que es lo que pasa??? ayudenme..

[el_barto]

Como yo no sé de triggers quizá haga una pregunta muy tonta

lo que pasa es que personalmente es mejor usar triggers dado que tu puedes condicionar que se disparen cuando se presenten ciertas condiciones especificas se podra hacer con codigo sql y delphi pero para mi es mejor usar el trigger

[el_barto]

[quote=(VIH)Lestat]
Pero me marca error acerca de que el 'FIELD 'DNI_ALUMNO' MUST HAVE A VALUE' ... a que se debe este mensaje?????QUOTE]

evidentemente es que en el campo DNI_ALUMNO no hay dato que guardar posiblemente sea por lo que stu dices no estoy seguro pero si es por eso por que no guardas el dato que tiene en el edit1.text y lo asignas despues de que haces esto

Código Delphi [-]
 
variable := Edit1.Text;
IBtable1.fieldbyname('dni').asString:= EDit1.text;
Edit1.text := variable;

es una solucion muy mediocre pero creo que funciona..

acaso cuando lo guardo en la primera se borra la informacion del EDIT...???

No sabria responder, no me acuerdo

[(VIH)Lestat]

Pues me sigue marcando el mismo error BARTO..

mira ya probe con esto...

var dni_a:string;
 		   begin
 				 cni_a:=edit1.text;
 				 IBtable1.fieldbyname.('dni'):=dni_a;
 				 IBtable2.fieldbyname('dni_alumno):=dni_a;

y tampoco funciona me sigue marcando es mismo error...

Probe tambien con lo que me digiste y sigue marcando error...

[el_barto]

como creaste la tabla dni_alumno es que hay una cosa que debes saber si tienes dos tablas

alumno materia

y en alumno tienes los atributos (*)nombre, (*)apellido, (*)dni, telefono por decir algo

y en materia tienes los atributos (*)nom_materia, (*)cod_materia, (*)dni_alumno

en donde los que tienen (*) son campos obligatorios y si tu le pides a el edit que inserte el dato desde la tabla alumno sacara error siempre por que llenas el campo dni_alumno y los demas campos no los estas llenando siendo ellos obligatorios

Verifica tu teoria de llenar datos en distintas tablas depronto lo que necesitas no es eso

[roman]

Empezado por el_barto

sacara error siempre por que llenas el campo dni_alumno y los demas campos no los estas llenando siendo ellos obligatorios

Pero el error claramente muestra que el campo que da problemas es DNI_ALUMNO. Aun cuando existiera un problema con otros campos requeridos por el momento el caso es que por alguna razón no está tomando el dato del Edit correctamente.

// Saludos

[el_barto]

Empezado por (VIH)Lestat

Pues me sigue marcando el mismo error BARTO..

mira ya probe con esto...

var dni_a:string;
		 begin
				 cni_a:=edit1.text;
				 IBtable1.fieldbyname.('dni'):=dni_a;
				 IBtable2.fieldbyname('dni_alumno):=dni_a;

fijate es esto:

lodeclaras asi

Código Delphi [-]
var dni_a:string;

pero lo usas asi

Código Delphi [-]
cni_a:=edit1.text;

El error en este caso se puede producir por esto no??? lo usas como cni_a y lo declaraste dni_a

Pero el error claramente muestra que el campo que da problemas es DNI_ALUMNO. Aun cuando existiera un problema con otros campos requeridos por el momento el caso es que por alguna razón no está tomando el dato del Edit correctamente.

Lo digo por que el error muy seguramente se le va a presentar entonces en el trigger que armo desde un principio debio decir que los demas campos o no son obligatorios o se generaran automaticamente, tu que crees Roman??? puedo estar equivocado

[roman]

Empezado por el_barto

tu que crees Roman???

En cuanto a lo de dni_a y cni_a que fue un simple error al transcribir aquí el código, de lo contrario estaría obteniendo un error de "Undeclared identifier".

En cuanto a lo segundo, quizá justamente el trigger le esté metiendo ruido. Tal como lo plantea ahora pareciera no requerir el trigger pero quizá lo sigue teniendo activo y puede ser que no esté bien definido y sea el que esté metiendo valores en blanco.

// Saludos

[el_barto]

Sip por que como muestra nuestro amigo vih lo hace mediante codigo normalito es decir sin hacer uso del trigger, seria bueno mirar como armaste el trigger,
puede que el trigger si tiene un before insert no este guardando el valor de DNI_ALUMNO y por eso se dispara la excepcion

[(VIH)Lestat]

MIren... Por el momento no estoy utilizando triggers, pero ya se como funcionan... no los utilizo por que el valor que quiero insertar automaticamente o por medio del trigger es el DNI del alumno pero los demas campos los debe jalar de los DBEDits que tenia... pero todos mis DBEDITS ya los elimine y decidi almacenar los datos directamente en la tabla o sea por medio de la propiedad FIELDBYNAME.. si me entienden???? entonces declare la variable como me sugirio el BARTO y almaceno la DNI del alumno que esta en el edit en la variable..... luego esa misma variable la utilizo para almacenar los datos en las diferentes tablas y estoy checando la variable y si almacena el valor del EDIT.. pero me marca error al guardar los datos ....por que despues de utilizar el FIELDBYNAME.asstring:=dni_a; tengo puesto IBtalbe1.post para guardar los datos....

pero tengo una duda.... si estoy utilizando la propiedad de la tabla FIELDBYNAME para introducir los datos ... ya no tengo que utilizar el POST para guardar los cambios???? porque he visto otros ejemplos cuando almacenan los datos con dicha propiedad y no los utilizan pero hay otros que si...entonces no se que hacer????

[(VIH)Lestat]

Para ser mas especifico aqui les pongo el codigo que utilizo para almacenar informacion en las tablas antes mencionadas... espero puedan encontrar el error que me aqueja....todo este codigo lo tengo puesto para un boton..

procedure TIngresar_alum.BitBtn3Click(Sender: TObject);
 
 
 var dni_a:string;
 	apellidopa:string;
 	apellidoma:string;
 	nombre:string;
 	sex:string;
 	dir:string;
 	local:string;
 	ciud:string;
 	tele:string;
 	fecha_ing:variant;
 	statu:string;
 	imagen:variant;
 	edoc:string;
 	carrera:string;
 	sem:integer;
 	cert:integer;
 	fot:integer;
 	act:integer;
 	cur:integer;
 
 
 
 begin
 
  dni_a:=matricula.Text;
  apellidopa:=apaterno.Text;
  apellidoma:=amaterno.Text;
  nombre:=nombres.Text;
  sex:=sexo.Text;
  dir:=direccion.Text;
  local:=localidad.Text;
  ciud:=municipio.Text;
  tele:=telefono.Text;
  edoc:=edocivil.Text;
  carrera:=DBLcarrera.KeyValue;
  fecha_ing:=fecha.Text;
  statu:=status.Text;
 
  sem:=strtoint(semestre.Text);
  cert:=strtoint(certificado.ValueChecked);
  act:=strtoint(acta.ValueChecked);
  fot:=strtoint(fotos.ValueChecked);
  cur:=strtoint(curp.ValueChecked);
 
 
 
 //Se ponen en modo Editar las Tablas para empezar a recibir datos
 
 		ModuloSID.IBTalumnos.Edit;
 		ModuloSID.IBTalumno_carrera.Edit;
 		ModuloSID.IBTsemestre.Edit;
 		ModuloSID.IBTalum_doc.Edit;
 
 
 
 
 
 //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;

como pueden ver estoy utilizando un Modulo de datos llamado "ModuloSID" en donde almaceno todos los componentes no visuales de mi BD... espero que me puedan ayudar...
ahh y otra cosa tengo declarado variables para almacenar la informacion de los EDITS y luego pasarselas a mis tablas ... estas variables "SI" almacenan la informacion porque ya le hice pruebas y si me la retiene.. el problema esta en las clausulas POST SUPONGO!!!!