Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-04-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Poder: 13
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
  #2  
Antiguo 26-04-2012
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Poder: 18
TiammatMX Va camino a la fama
Cita:
Empezado por edgar_prospero Ver Mensaje
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.

Cita:
Empezado por edgar_prospero Ver Mensaje
... 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...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita
  #3  
Antiguo 26-04-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Poder: 13
edgar_prospero Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 26-04-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola edgar.

Revisá si te puede servir este enlace

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 26-04-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Poder: 13
edgar_prospero Va por buen camino
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
Responder Con Cita
  #6  
Antiguo 26-04-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.106
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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?.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Tuve un déjà vu Casimiro Notevi La Taberna 12 20-11-2009 19:59:26
deja de funcionar Patricio Varios 8 18-11-2008 18:13:42
ibdatabase y firebird a veces si a veces no Patricio Conexión con bases de datos 13 18-09-2008 14:01:21
No me deja utilizar el QuickRep nuri Impresión 1 07-07-2005 13:20:07


La franja horaria es GMT +2. Ahora son las 00:50:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi