eliminar datos con dbgrid

[[Lepe]]

Tu código está bien, solo que aqui estamos "divagando" ... bueno mejor dicho... intentando optimizar el código que usas.

Lo lógico, cuando vas a modificar el SQL de una consulta, es hacer lo que haces, es decir, primero cierras la consulta y después utilizas Clear para borrar el contenido, por último añades la SQL nueva.

Cuando estudias más a fondo un tema, aprendes cosas nuevas, y ves que el TQuery ya hace algunas cosas internamente, es entonces cuando empiezas a mirar detenidamente tu código y dices: "¿Para qué voy a poner tal o cual línea de código si ya lo hace el TQuery internamente?, pues eso, elimino la línea y me ahorro una línea de código"

En ocasiones, es mejor dejar esa línea de código, para clarificar el código y hacerlo más legible. Si estas empezando, quizás te sea más claro para tí dejar esas líneas "que están demás".

Saludos

[[RONPABLO]]

Empezado por Kenobi

ahora bien cual es el problema (ademas del codigo en la aplicacion) de usar sql.add como dijo RonPablo(mis respetos amigo) digo yo... acaso no funciona siempre bien..? pregunto porque yo lo uso bastante y si estoy cometiendo un error

Como tal así funciona, la cuestión es cuando buscamos escalabilidad, solo por ejemplo que en algún momento tienes que cambiar de componente de conexión a la bd, con el sql.add, tendrás que ir unidad por unidad buscando donde esta el código sql, mientras que si tienes dentro de un modulo (o dos o tres, pero no muchos) todos los xxQuerys (con su correspondiente xxUpdateSQL) o xxDataSets, te quedara mas fácil modificar estos.

un ejemplo:


Tabla Permisos (id, nombre); tabla Perfiles (id, nombre)

para estas dos tablas yo creo en Delphi dos xxQuery asi que normalmente los llamaría xxQPermisos y xxQPerfiles y los asociaria con de a xxUpdateSQL (xxUSPermisos, xxUSPerfiles), ya en el inspector de objetos en la propiedad
unidirectional la igualaría a false y la propiedad sql pondría algo como esto

Código SQL [-]
//en el xxqPermisos
select * from TPERMISOS where id = :id

//en el xxqPerfiles
select * from TPERFILES where id = :id

con esto solo tendría que ir al xxUpdateSQL darle doble clic, pedirle los nombres de la tabla, donde me mostraría dos cuadros con los mismos campos, uno se llama Key FIelds y el otro se llama UpdateFiels, en Key Fields seleccionaría el campo id y en update Fields todos los campos, luego le diria que me genere el sql y el me daría estos resultados:

Código SQL [-]
//Modify
update TPERMISOS
set
  CODIGO = :CODIGO,
  NOMBRE = :NOMBRE
where
  CODIGO = :OLD_CODIGO


//Insert
insert into TPERMISOS
  (CODIGO, NOMBRE)
values
  (:CODIGO, :NOMBRE)

//Delete
delete from TPERMISOS
where
  CODIGO = :OLD_CODIGO


//refresh
Select 
  CODIGO,
  NOMBRE
from TPERMISOS 
where
  CODIGO = :CODIGO

con esto que me ahorro??, simple en cada unidad tener que estar poniendo

Código Delphi [-]
query.sql.clear;
query.sql.add('el select');
query.open;

query.sql.clear;
query.sql.add('el delete y su parametro');
query.paramByname('id').asInteger= varId;

query.sql.clear;
query.sql.add('el update y su parametro');
query.sql.ParamByName('id').asInteger;

y solo usaría comandos como:

Código Delphi [-]
xxQPermisos.opent;
xxQPermisos.Edit;
xxQPermisos.Insert;
xxQPermisos.Delete;
xxQPermisos.Refresh;
xxQPermisos.post;
xxQPermisos.applyUpdates;

[[RONPABLO]]

se me olvidaba, en el msn anterior las xx pueden ser remplazadas por IB o MDO o el componente que se use.

[UREÑA]

amigos les agradesco todos sus comentarios ya que como apenas estoy enpezando este tipo de criticas me sirven mucho para mejorar

y si me pueden dar consejos manuales o alguna url de una buena pagina, lo que sea se los agradeceria mucho

saludos

[[RONPABLO]]

busca un pdf llamdo "la cara oculta de Delphi 4", es muy bueno para empesar (o contiunar) con Delphi

[[Lepe]]

RonPablo, quizás no he entendido bien, pero eso mismo lo encapsula el XXDataset (sustituya XX por IB, MDO, etc).

Es un solo componente que tiene las 4 sqls, al que puedes llamar con los métodos Edit, Delete, Insert, Update, etc. Quizás tu mensaje va orientado a cuando tenemos una consulta con inner join, y por tanto no se pueden actualizar.

Tal y como has puesto el ejemplo, el Query y el UpdateSql se sustituye con el XXDataset.

Saludos

[[RONPABLO]]

si, como tal di el ejemplo con el Query y el UpdateSql porque es con el que mas trabajo (lo aprendi primero que el DataSet) entonces es con el que mas comodo me encuentro...