eliminar datos con dbgrid

[[Caral]]

Hola UREÑA
Asi se ve mejor:

Código Delphi [-]
try
frm_DataModule.trans_commit.StartTransaction;
frm_DataModule.qry_usuarios.Close;
frm_DataModule.qry_usuarios.SQL.Clear;
frm_DataModule.qry_usuarios.SQL.Text 'INSERT INTO USUARIOS (NOMBRE, APELLIDOP_US) ' +
                                    'VALUES ('+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+')';
frm_DataModule.qry_usuarios.ExecSQL;
frm_DataModule.trans_commit.Commit;
Except
frm_DataModule.trans_commit.Rollback;
end;
Close ();

Saludos

[[Lepe]]

Si estas usando Firebird, es mejor que instales los MDOLIB, ya que son y serán totalmente compatible con Firebird.

Después usas un TMDODataset, que es un componente con 4 sqls:
- select
- insert
- update
- delete

En diseño estableces esas cuatro propiedades (especificando la tabla de firebirde que se va a modificar y los campos actualizables) con unas sqls que el propio MDODataset te propone, y así podrás hacer cada una de las operaciones como si de un TTable se tratara (más o menos).

Saludos

[[RONPABLO]]

lo mejor es utilizar un query para cada operacion??? para insertar, eliminar y editar??

como recomendación no uses el query.sql.add()... mejor crea para cada tabla un xxDataSet (como te recomendó Lepe), donde desde el diseño ya tenga los querys de Insert, Delte, Update y select.

Tambien usa parámetros, algo asi como esto:

Código SQL [-]
select * from tabla where id = :vparametroId 
inserte into tabla (id, nombre) values(:vparametroId, :vparametroNombre)
update tabla set nombre = :vparametroNombre where id = :vparametroId

//los dos puntos indican que ese valor va a ser enviado por medio de un
// parametro, la forma de enviar parametros desde Delphi es asi:

Código Delphi [-]

modulo.query.close;
modulo.query.ParamByName('parametroId').asInteger = 1;
modulo.query.ParamByName('parametroNombre').asString = 'juan';
modulo.query.open;

[UREÑA]

hola amigos buen dia

con la novedad!!!

por fin ya pude eliminar

Código SQL [-]
   //ELIMINA REGISTROS
  if frm_DataModule.qry_usuarios.RecordCount > 0 then
begin
    try
     frm_DataModule.trans_commit.StartTransaction;
     frm_DataModule.qry_usuarios_upd.Close;
     frm_DataModule.qry_usuarios_upd.SQL.Clear;
     //ShowMessage(frm_DataModule.qry_usuarios.fieldbyname('NOMBRE').AsString);
     frm_DataModule.qry_usuarios_upd.SQL.Add('DELETE FROM USUARIOS where NOMBRE ='+QuotedStr(frm_DataModule.qry_usuarios.fieldbyname('NOMBRE').AsString));
     frm_DataModule.qry_usuarios_upd.SQL.Text;
     frm_DataModule.qry_usuarios_upd.ExecSQL;
     frm_DataModule.trans_commit.Commit;
   Except
     frm_DataModule.trans_commit.Rollback;
     end;
     frm_DataModule.qry_usuarios.Close;
     frm_DataModule.qry_usuarios.Open;
end
else
ShowMessage('No hay nada para eliminar');

gracias a todos!! solo me falta validar

me esta gustando mucho esto de delphi

[[Lepe]]

Un detalle, cambia la línea:

Código Delphi [-]
 if frm_DataModule.qry_usuarios.RecordCount > 0 then

por esta otra:

Código Delphi [-]
 if not frm_DataModule.qry_usuarios.isEmpty then

el RecordCount solo funciona en tablas de escritorio (paradox), es demasiado costoso para implementarlo en Firebird u otro sistema c/s.

Saludos

[[ArdiIIa]]

Empezado por UREÑA

frm_DataModule.qry_usuarios_upd.Close;
frm_DataModule.qry_usuarios.Close;

Creo que esas dos líneas, son superfluas....

[[Lepe]]

Ardilla no entiendo qué líneas dices:

Código Delphi [-]
frm_DataModule.qry_usuarios_upd.Close;
frm_DataModule.qry_usuarios.Close;

La primera es necesaria porque estamos cambiando el SQL de esa consulta.
La segunda línea... bueno... se trata de otra Consulta distinta... de la que no tenemos constancia sobre su SQL, por ello, no me atrevería a asegurar que sobran.

La que si es cierto que sobra es esta:

Código Delphi [-]
     frm_DataModule.qry_usuarios_upd.SQL.Text;

Saludos

[[ArdiIIa]]

Hola Lepe:

Hasta donde yo sé, cuando se modifica la propiedad SLQ de un Query, éste se cierra automáticamente, luego sería innecesario cerrarlo, dado que ya con el hecho de hacer un SQL.Clear, este se cierra.
En el segundo caso, si el Query depende de la transacción con la que se efectúa un Commit o un Rolback, nada mas hacer cualquiera de los dos pasos, el Query se cerrará de forma automática, por lo tanto, tampoco será preciso cerrarlo, de ahí es por lo que hago esa observación.

Claro está que estoy hablando de TQuery y sus derivados. En un post anterior citabas los componentes MDOLIB, los cuales desconozco, y en el caso de que en en este ejemplo sean los componentes utilizados, y estos tengan un comportamiento distinto al citado, mi observación no tendría cabida.
Así que si esto ultimo es cierto retiro mi observación. Ahora bien, si los componentes utilizados son TQuery o TIbQuery, creo que mi observación optimiza el código.

Saludos