Ver Mensaje Individual
  #1  
Antiguo 08-08-2005
gabynuñez gabynuñez is offline
Registrado
 
Registrado: jun 2005
Posts: 7
Reputación: 0
gabynuñez Va por buen camino
problemas para agregar mas de un registro

Hola a todos::

Estoy trabajando con delphi 7, mysql, zeos...

mi duda es la siguiente no puedo ni agregar ni modificar mas de un registro al agregar un registro estoy usando insert y para modificar update..

Osea si ingreso o modifico un registro y deseo ingresar o modificar otro me aparece un error "can not open resulset". tengo que salir de la aplicacion y luego realizar la operacion...
Código:
begin
	   ZQrynvo.sql.clear;
	   ZQrynvo.Sql.Text := 'INSERT INTO especialidad (cod_especialidad,des_especialidad,nro_orden,nota) VALUES ("'+codigo_esp.Text+'",'+'"'+descripcion_esp.Text+'",'+'"'+orden.Text+'",'+'"'+nota.Text+'")';
		ZQrynvo.execsql;

	   ZQrynvo.sql.clear;
	   ZQrynvo.Sql.Text := 'INSERT INTO concepto (cod_especialidad,des_concepto,monto,fecha) VALUES ("'+codigo_esp.Text+'",'+'"'+descripcion_con.Text+'",'+'"'+costo.Text+'",:fecha)';
	   ZQrynvo.ParamByName('fecha').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy',Now));
	   ZQrynvo.execsql;
	   
	   ShowMessage('LOS DATOS  GRABADOS SATISFACTORIAMENTE!!');
			  if MessageDlg('AGREGARA OTRO REGISTRO ?????', mtConfirmation, [mbYes, mbNo], 0) = mrYes
		then
		codigo_esp.Clear;
]

gracias
Responder Con Cita