¿Cómo insertar datos con Mysql?

[daragor]

Hola gente! necesito ayuda con lo siguiente..
Tengo un TEdit donde se debe ingresar una fecha, es importante que el formato sea del tipo dd/mm/aaaa (Ej. 25/08/2012)
- Existe alguna funcion para formatear esto por si el usuario ingresa mal este formato?

Tengo errores a la hora de compilar, el codigo es asi

Código Delphi [-]
*Declaro la variable:
Var
  cfec: TDate;
Begin
*En el Click del boton Grabar, hago el insert, antes trato de formatear la fecha ingresada:
  cfec:= StrToDate(fec.Text);
  cfec:= FormatDateTime('yyyy-mm-dd',cfec);
  QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES('+cfec+','+0.00+','+total.Text+',"CARGADA")';

Sobre todo tengo error en esta parte:
cfec:= FormatDateTime('yyyy-mm-dd',cfec);

Ahora el problema sigue debido a mi inexperiencia, viendo la base de datos mysql graba las fecha con el formato yyyy-mm-dd, y al realizar un INSERT tomando el texto del TEdit como debe ir formateado?

>>Entonces como debo tomar un dato de fecha y como debo insertarlo mediante una instruccion correcta en MySQL<<

Muchas gracias espero se entienda!

[[Caral]]

Hola

Código Delphi [-]
Var
  cfec: TDate;
begin
  cfec:= FormatDateTime('yyyy-mm-dd',cfec);
  QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES('+cfec+','+0.00+','+total.Text+',"CARGADA")';

Esto (cfec:= StrToDate(fec.Text) no es correcto, cfec lo declaras tdate, no string.


Saludos

[daragor]

Hola Caral la verdad no entiendo que modificacion hiciste en el codigo, la cuestion es que sigue todo igual.. error al compilar. cfec esta declarado como TDate, eso puse.

El Error:
unit2.pas(205,10) Error: Incompatible types: got "AnsiString" expected "TDate"
unit2.pas(208,73) Error: Operator is not overloaded: "Constant String" + "TDate"

Espero puedas ayudarme, gracias

[[Caral]]

Hola

Código Delphi [-]
Var
  cfec: TDate;
Begin
*En el Click del boton Grabar, hago el insert, antes trato de formatear la fecha ingresada:
   QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES('+FormatDateTime('yyyy-mm-dd',cfec)+','+0.00+','+total.Text+',"CARGADA")';

Saludos

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Procura poner títulos descriptivos: "problema con fecha" no es ningún título descriptivo, ¿se te quedó el reloj sin pilas?, ¿no sabes en qué día vives?...
Gracias nuevamente por tu colaboración.

[daragor]

Hola Casimiro.. pido disculpa por no publicar bien, no sabia de la existencia de la guia de estilo. Quise editar el titulo del post pero no puedo.

[daragor]

NO me funciona, invalid date format... alguna guia de como hacer esto?

[[Caral]]

Hola
No se como queda guardada la fecha en MySql, revisa la tabla y pon el formato como se necesite, lo mas logico es:
'yyyy/mm/dd' o 'yyyy.mm.dd' o al reves 'dd/mm/yyyy'
revisalo.
Saludos

[Casimiro Notevi]

Empezado por daragor

Hola Casimiro.. pido disculpa por no publicar bien, no sabia de la existencia de la guia de estilo. Quise editar el titulo del post pero no puedo.

Bueno, es normal, si eres nuevo aquí
Sólo tenlo en cuenta para la próxima vez

Bienvenido.

[Casimiro Notevi]

También puedes usar parámetros para introducir los datos.
Te ahorras todos estos problemas.

[MartinS]

Hola: y asi como sugiere casimiro?

Código Delphi [-]
QGraba.SQL.Text:= 'INSERT INTO compras (fec,paga,mon,esta) VALUES(:Fecha,'+0.00+','+total.Text+',"CARGADA")';
QGraba.ParamByName('Fecha').AsDate := StrToDate(Fec.TExt);

Saludos

[roman]

Tal como ya te han comentado, es mejor, y yo diría que imperativo, introducir los valores vía parámetros. El dataset siempre sabrá cuál es el formato adecuado de la fech para el gestor de datos en partícular. Nunca hay que confiar en el "conocimiento" que tengamos acerca de ómo se guarda un determinado valor.

Por otro lado, mencionas que es importante que el formato sea del tipo dd/mm/aaaa, pero, recuerda que el formato es independiente del valor. No puedes forzar al motor a guardar la fecha en un formato determinado a menos que la guardes como cadena de caracteres, con lo cual pierdes las ventajas de tener el campo DATE. El formato es algo que debe preocuparte sólo al mostrar los datos en tu aplicación.

// Saludos

[daragor]

Muchachos me han ayudado mucho, y encaminado a una buena programacion, vengo de visual foxpro y debo ir adaptandome a estas sintaxis.
Ya estoy estudiando parametros y segun entiendo funcionan muy bien. Gracias! excelente comunidad...

[roman]

¡Qué bueno que te haya servido!

Realmente, el uso de parámetros en consultas SQL (y no sólo para valores tipo DATE) proporciona código más limpio y legible. Yendo más allá, yo te recomendaría, de hecho, no hacer consultas SQL `al vuelo`, esto es, no asignar el texto de la consulta en código sino hacerlo en el inspector de objetos durante el diseño de la aplicación. En código sólo el reemplazo de los parámetros.

Así tienes un código más fácil de mantener.

// Saludos

[daragor]

Compañero roman, entonces los textos, cadenas, de consultas SQL irian en la propiedad SQL de un TSQLQuery? de ser asi... como hago para indicar distintos tipos de consultas a un solo objeto TSQLQuery? no consigo buenas guias para aprender. Por cierto, estoy usando Lazarus..

[Casimiro Notevi]

La mejor guía para aprender

[roman]

Empezado por daragor

como hago para indicar distintos tipos de consultas a un solo objeto TSQLQuery?

Es que, en mi opinión, eso es una mala práctica. Cada consulta debe verse como un objeto en sí: clientes, recibos, agregaCliente, agregaRecibo, etc. Todos representados por un Query localizado en un DataModule.

Es preferible gastar unos cuantos bytes más en recursos usando múltiples querys que tratar de economizar reusando un sólo query.

Así, por ejemplo, tu consulta de este hilo estaría representada por un query qryAgregaCompra con el siguiente texto en su propedad SQL:

Código SQL [-]
insert into compras (fec,paga,mon,esta) values(:fecha, ago, :monto, :estatus)';

Al momento de agregar una compra simplemente suples los valores:

Código Delphi [-]
qryCompras.ParamByName('fecha').AsDate := Fecha;
qryCompras.ParamByName('pago').AsFloat := 0;
qryCompras.ParamByName('monto').AsString := Total.Text;
qryCompras.ParamByName('estatus').AsString := 'CARGADA';

qryCompras.ExecSQL;

quedándote, según yo, un código mucho más limpio.

// Saludos

[daragor]

Casimiro, impresionante.. puede ser algo muy muy util para mi en cuanto a sintaxis. Muchas gracias.

Roman! estoy entendiendo lo que dices compañero, claramente.. y me parece excelente, soy un obsesivo con la limpieza y orden del codigo, asi q me viene 10 puntos. Si puediera me pagaria un curso de delphi, lazarus.. pero en mi cuidad no hay. Asi que gracias muchas por los consejos!
Ahora, lo importante... tu dices "un datamodule" .. donde está? minimamente me dirias como se usa? Ya que insertar muchos de esos objetos TSQLQuery en los forms me estropea un poco el diseño en tiempo de diseño.. por eso pense en reusar un query varias veces..

Pd: que buen hilo, podrian editar el titulo del post para futuras busquedas.

[Casimiro Notevi]

Lee el libro que te he enlazado antes, es lo mejor de lo mejor, te lo puedo asegurar.

Empezado por daragor

Pd: que buen hilo, podrian editar el titulo del post para futuras busquedas.

¿Y qué título le podemos poner?

[daragor]

No soy nadie para decir un titulo pero te puedo sugerir compañero Casimiro.. algo asi como "Correcta insersion de datos en Mysql"

Si! voy a estar a full con ese libro, mil gracias!