Ver Mensaje Individual
  #6  
Antiguo 16-02-2005
tiagor64 tiagor64 is offline
Miembro
 
Registrado: ene 2005
Posts: 48
Reputación: 0
tiagor64 Va por buen camino
Muchisimas gracias.

Pues si q es lo q me decis, no tenia especificado en q campo insertar. siento molestar por una tonteria asi, pero juro q lo havia repasado y no lo veia.

muchas gracias de nuevo.

y os muestro como qeda el codigo.

Código:
 if edit1.text = '' then
   showmessage ('Introduzca el codigo del modelo')
   else if edit2.Text = '' then
	 showmessage ('Introduzca el nombre del modelo')
	 else
	 begin
	 principalpedidos.modelosquery.sql.text := 'insert into modeloxasis (codmodelo, nombre) values ('+quotedstr(edit1.text)+', '+quotedstr(edit2.text)+')';
	 principalpedidos.modelosquery.ExecSQL;
	 configmodelo.adoquery1.SQL.text := 'insert into modelo_articuloxasis (codarticulo) select codarticulo from modelo_articuloxasis where codmodelo = '+quotedstr(configmodelo.label4.caption);
	 configmodelo.adoquery1.ExecSQL;
	 configmodelo.adoquery1.SQL.Text := 'update modelo_articuloxasis set codmodelo = '+quotedstr(edit1.text)+' WHERE (codmodelo Is Null)';
	 configmodelo.adoquery1.ExecSQL;
	 edit1.text := '';
	 edit2.Text := '';
Responder Con Cita