Ver Mensaje Individual
  #1  
Antiguo 26-04-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Reputación: 15
edgar_prospero Va por buen camino
no deja guardar 2 veces

que hay amigos aqui con una dudilla haber si me pueden ayudar tengo un codigo que ahorita voy a mostrar donde puedo guardar registros y en caso de que ya exista me los actualiza cuando hago el procedimiento de guardar o actualizar por primera vez todo muy bien si hace el trabajo pero si lo quiero hacer de nuevo me marca un error raised exeption class EMysqlexeption with message (entre otras cosas no se si sea importante ponerlas)

Código Delphi [-]
procedure TForm1.guardarClick(Sender: TObject);
begin
tabla.Close;

tabla.SQL.Clear;

tabla.SQL.Add('insert into datos(folio, nombre, fecha, estado,problema,resuelto) values(:pfolio, :pnombre, :pfecha, :pestado, :pproblema,:presuelto)');

tabla.ParamByName('pfolio').AsString:=folio.Text;
tabla.ParamByName('pnombre').AsString:=nombre.Text;
tabla.ParamByName('pfecha').AsDate:=fecha.DateTime;
tabla.ParamByName('pestado').AsString:=estado.Text;
tabla.ParamByName('pproblema').AsString:=problema.Text;
tabla.ParamByName('presuelto').Asstring:=nombre.Text;
tabla.Execute;

  showmessage('grabado con exito');
end;

Última edición por ecfisa fecha: 26-04-2012 a las 19:59:46. Razón: quitar íconos del código
Responder Con Cita