no deja guardar 2 veces

[edgar_prospero]

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;

[TiammatMX]

Empezado por edgar_prospero

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(folio, nombre, fecha, estado, problema,resuelto)'); 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;

Pues así, a primera vista, parecería que estás duplicando el registro..., o alguno de tus parámetros está entrando con valor nulo.

Empezado por edgar_prospero

... un error raised exeption class EMysqlexeption with message (entre otras cosas no se si sea importante ponerlas)...

¡¡PERO CLARO QUE ES IMPORTANTÍSIMO DOCUMENTAR LOS ERRORES QUE TE MANDA TU DESARROLLO!! ¿O cómo esperas que te orientemos si no conocemos el problema? Al menos yo, no soy adivino...

[edgar_prospero]

jajaja ok ok tienes toda la razon hay va el mensaje completo haber si me pueden orientar en mi problema raised exeption class EMysqlexeption with message
#42000 you have an error in your SQL syntax; check the manual that corresponds to your mysql server version for the right syntax to use near 'insert into datos(folio, nombre, fecha, estado, problema, resuelto) value ('3', 'jo' at line 2

[ecfisa]

Hola edgar.

Revisá si te puede servir este enlace

Saludos.

[edgar_prospero]

ese enlace segun entendi habla sobre el uso de palabras reservadas pero creo que ese no es mi caso porque al correr el programa y guardar no hay problema el asunto viene cuando limpio los edit e intento guardar otro registro es cuando viene el error

[Casimiro Notevi]

Es que tienes que dar mucha más información, así sólo podemos estar intentando adivinar

Por ejemplo:

• 'folio' ¿es un campo numérico o de texto?
• Se supone que algún campo de esos es clave primaria, ¿cual?.

[edgar_prospero]

muchas gracias por su tiempo y ayuda encontre mi error a la hora de limpiar los edit le agregue
tabla.SQL.Clear;
y ya con eso no me marca el error y ya me permite guardar y actualizar informacion

[Casimiro Notevi]

Empezado por edgar_prospero

muchas gracias por su tiempo y ayuda encontre mi error a la hora de limpiar los edit le agregue
tabla.SQL.Clear;
y ya con eso no me marca el error y ya me permite guardar y actualizar informacion

Eso ya lo hacías antes, ahí está el código

Además que eso no puede ser

[ecfisa]

Hola Edgar.

Aunque no uso mysql, eso fué lo primero que se me vino a la cabeza, pero como en tu código incial dice:

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

tabla.SQL.Clear;  // << ==
...

Lo descarté.

Saludos.

[edgar_prospero]

si yo se que en el codigo que muestro ahi esta pero mi problema se soluciono cuando le agregue eso a un boton que llame limpiar
y si con eso se soluciono mi problema

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

folio.Clear;
nombre.Clear;
estado.Clear;
problema.Clear;
folio.SetFocus;
  tabla.SQL.Clear;

[edgar_prospero]

gracias ecfisa y pues si yo tambien no lo habia agregado a la hora de limpiar porque ya lo tenia en ese proceso pero despues de estar intentando pues al fin quedo muchas gracias y hay los seguire molestando cuando me vuelva a surgir mas problemas

[Casimiro Notevi]

Bueno, nunca nos enteraremos, pero está claro que eso no puede ser así, salvo que hayas puesto aquí un código que no es realmente el que estás usando

[edgar_prospero]

que pues amigo te estoy siendo sincero eso que puse es el mismo codigo que estoy usando y con lo que te dije se soluciono mi problema no tengo porque mentir y si tienes tantas dudas de lo que digo pues intenta implementarlo a ver si te marca el mismo error a ti

[Casimiro Notevi]

Nadie ha dicho que mientas
Seguramente has cambiado alguna otra cosa y después has puesto eso en 'limpiarclick' y ha funcionado, pero no por eso, sino por lo que hayas hecho antes.

[edgar_prospero]

Casimiro Notevi me dejaste pensando y quite esa linea de codigo y me marco el error y se la puse y ya sin problema
codigo para guardar la informacion

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

tabla.Close;
tabla.SQL.Add('insert into datos(folio, nombre, fecha, estado, problema,resuelto)values(folio, nombre, fecha, estado, problema,resuelto) on duplicate key update nombre=nombre,fecha=fecha, estado=: pestado, problema=: pproblema,resuelto=resuelto');
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;

  tabla.SQL.Clear;

  showmessage('grabado con exito ');
end;

codigo para limpiar la informacion es a lo unico que le he podido mover desde que puse mi pregunta y asi es como lo tengo actualmente

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

folio.Clear;
nombre.Clear;
estado.Clear;
problema.Clear;
folio.SetFocus;
  tabla.SQL.Clear;