¿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.

[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