¿Cómo insertar datos con Mysql?

[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 Noteví]

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 Noteví]

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!

[daragor]

Amigos, una cosa mas.. este libro me sirve para encaminarme en la programacion con lazarus? entiendo que la base es pascal y "hereda" todo los referido a delphi tambien... NO se, uds. guienme, no hay guias asi para lazarus directamente, pero entiendo que es mas q nada un entorno

[daragor]

Hola amigos, como hago para la sintaxis de este caso en insersion SQL. Aclaro que estoy usando un datamodule llamado DM y la instruccion sql del query es:

INSERT INTO articulos (nom,pc,pv,stk) VALUES (:NOM,:PC,:PV,:STK)

El codigo, A y M son variables del caso:

Código Delphi [-]
procedure TForm1.grabaClick(Sender: TObject);
begin
  case oper of
  'A': DM.QAlta_art.ParamByName('NOM').AsString:= Trim(nom.Text);
       DM.QAlta_art.ParamByName('PC').AsFloat:= StrToFloat(pc.Text);
       DM.QAlta_art.ParamByName('PV').AsFloat:= StrToFloat(pv.Text);
       DM.QAlta_art.ParamByName('STK').AsInteger:= StrToInt(stk.Text);
       DM.QAlta_art.ExecSQL;
  'M': ShowMessage('Codigo de Edicion de articulo.');
  end;
end

Me da el siguiente error al compilar:
unit1.pas(34,35) Hint: Parameter "Column" not used
unit1.pas(79,68) Error: Constant and CASE types do not match
unit1.pas(79,68) Error: Constant Expression expected
unit1.pas(79,68) Fatal: Syntax error, ":" expected but ";" found

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.grabaClick(Sender: TObject);
begin
       DM.QAlta_art.text:= 'INSERT INTO articulos (nom,pc,pv,stk) VALUES (:NOM,:PC,:PV,:STK)';
       DM.QAlta_art.ParamByName('NOM').AsString:= Trim(nom.Text);
       DM.QAlta_art.ParamByName('PC').AsFloat:= StrToFloat(pc.Text);
       DM.QAlta_art.ParamByName('PV').AsFloat:= StrToFloat(pv.Text);
       DM.QAlta_art.ParamByName('STK').AsInteger:= StrToInt(stk.Text);
       DM.QAlta_art.ExecSQL;
       ShowMessage('Codigo de Edicion de articulo.');
end;

No me suena mucho que los nombres de los parametros sean iguales al de los campos.
Saludos

[roman]

Empezado por daragor

Hola amigos, como hago para la sintaxis de este caso en insersion SQL. Aclaro que estoy usando un datamodule llamado DM y la instruccion sql del query es:

INSERT INTO articulos (nom,pc,pv,stk) VALUES (:NOM,:PC,:PV,:STK)

El codigo, A y M son variables del caso:

Código Delphi [-]
procedure TForm1.grabaClick(Sender: TObject);
begin
  case oper of
  'A': DM.QAlta_art.ParamByName('NOM').AsString:= Trim(nom.Text);
       DM.QAlta_art.ParamByName('PC').AsFloat:= StrToFloat(pc.Text);
       DM.QAlta_art.ParamByName('PV').AsFloat:= StrToFloat(pv.Text);
       DM.QAlta_art.ParamByName('STK').AsInteger:= StrToInt(stk.Text);
       DM.QAlta_art.ExecSQL;
  'M': ShowMessage('Codigo de Edicion de articulo.');
  end;
end

Me da el siguiente error al compilar:
unit1.pas(34,35) Hint: Parameter "Column" not used
unit1.pas(79,68) Error: Constant and CASE types do not match
unit1.pas(79,68) Error: Constant Expression expected
unit1.pas(79,68) Fatal: Syntax error, ":" expected but ";" found

En realidad, hay algo que no nos muestras, porque no se sabe a qué se refiere eso de Column. Por otra parte, múltiples sentencias en un mismo caso de un case deben ir en un bloque begin-end.

No tengo claro que intentas hacer. ¿Porqué juntar en un mismo botón el código de inserción y el de modificado?

pd: el nombre de los parámetros es indistinto.

// Saludos

[roman]

Empezado por daragor

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

File|New|DataModule

No hay realmente ninguna ciencia en usarlos. Son como un Form pero sólo en diseño, en ejecución no se ven. Podría decirse que son una superficie donde colocar componentes no visuales como los datasets.

// Saludos