eliminar datos con dbgrid

[UREÑA]

Esta es la forma en la que estoy insertando registros

//INSERTA REGISTROS
try
frm_DataModule.trans_commit.StartTransaction;
frm_DataModule.qry_usuarios.Close;
frm_DataModule.qry_usuarios.SQL.Clear;
frm_DataModule.qry_usuarios.SQL.Add('INSERT INTO USUARIOS (NOMBRE, APELLIDOP_US) ');
frm_DataModule.qry_usuarios.SQL.Add('VALUES('+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+')');
frm_DataModule.qry_usuarios.SQL.Text;
frm_DataModule.qry_usuarios.ExecSQL;
frm_DataModule.trans_commit.Commit;
Except
frm_DataModule.trans_commit.Rollback;
end;
Close ();

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

gracias!!!

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