D�as anteriores estaba en la parte del ingreso, y muestra de datos que estaban en mi BD, tuve unos peque�os inconvenientes, pero gracias a todos los que me ayudaron.

Ahora lo que quiero hacer es editar los datos,
como puedo editar y eliminar registros de una DB en lazarus;

En modo consola para modificar seria algo as�:
UPDATE nombres SET
nombre=?mercedes?, apellido = "morales",
WHERE id=4; DONDE id = 4;

pero como puedo implementar esto a
una conexion en lazarus:

El 22/11/2010 12:47 p.m., Lissy Amador escribi�:

Hola Lissy..
usa un componente tzquery (si es que usas los zeos, que creo que si).. chauuuuuuuu

si uso los componentes zeus,
lo que dices es que deberia de ser algo asi
zquer.sql.update;
pero no es posible, como puedo implementar las sentencias sql con los componentes en lazarus

El 22/11/2010 01:19 p.m., Lissy Amador escribi�:

por ejemplo as�:
(qry es un componente tzquery)

qry.SQL.Text:= 'UPDATE NUMEROS SET BOLETAS='+ IntToStr(nComp+1);
qry.ExecSQL;

IntToStr(nComp+1) Me podrias explicar esta parte.

y es muy nesesario actualizar con Exec, podria
usarse applyupdate o applychange

El 22/11/2010 05:48 p.m., Lissy Amador escribi�:

IntToStr(nComp+1) Me podrias explicar esta parte.

lo que te pase es solo un ejemplo concreto.. no se que tipo de datos tenes ni quer�s actualizar..
InttoStr convierte de entero a string.
Para ejecutar sentencias sql yo uso el componente tzquery y lo hago de esa forma; hay otras, pero yo uso esa.
chauuuu

Entonces para este ejemplo lo que hace es ir a la tabla boletas y cambia el valor de un dato/campo de la tabla y para poder convertir el valar usas intToSrt. me parece que tambien puedo incluir operadores matematios, para los nuevos valores

qry.SQL.Text:= 'UPDATE NUMEROS SET BOLETAS='+ IntToStr(nComp+1);
qry.ExecSQL;

Yo tambien uso los componestes de zeos creo que para convertir un string se usa el .asString.

Te endiendo tu ejemplo, pero no se como resolver mi problema, devo de hacer una busqueda y luego poder modificar el parametro buscado. tienes alguna idea?

Te endiendo tu ejemplo, pero no se como resolver mi problema, devo de hacer una busqueda y luego poder modificar el parametro buscado. tienes alguna idea?

a ver si este ejemplo te sirve:
el qryMesas tiene esta instrucci�n en la propiedad sql: select * from mesas where codigo = :codmesa, que yo la tengo especificada en el componente

lo que hago es busco un determinado registro de la tabla mesas y si lo encuentro, actualizo los campos: impresa, codcliente, serie, comp, tipocomprobante
Uso 2 querys, uno para buscar y otro para hacer el update.

       qryMesas.ParamByName('codmesa').AsInteger:=
frmMesas.dsMesas.DataSet.FieldByName('codigo').AsInteger;
       qryMesas.Open;
       if not qryMesas.IsEmpty then
         begin
           try
              cSql:= 'update mesas set impresa = ''S'', codcliente
='+sCodCliente+', serie='''+cSerie+''', comp='+IntToStr(nComp)+',
tipocomprobante='+IntToStr(nTipoComprobante)+ ' where
codigo='+frmMesas.dsMesas.DataSet.FieldByName('codigo').AsString;
              DBMain.qryTool.SQL.Text:= cSql;
              DBMain.qryTool.ExecSQL;
           except
             MessageDlg('Error', 'Hay error en los datos', mtWarning,
[mbOk], 0);
             DBMain.fdb.Rollback;
           end;
         end;

Supongo que algo de eso es lo que est�s buscando chauuuuuuuuuuu

Lissy el .asString no convierte sino lo que especificas que tipo valor vas a pasar.

Para actualizar puedes hacer lo mismo que te dije para insertar solo cambias la cadena sql.

qry.SQL.Text:= 'UPDATE NUMEROS SET BOLETAS=:Nombre_Par�metro WHERE
ID=:Par�metro_ID' ;
qry.Params.ParamByName('Nombre_Par�metro').AsString:=Valor_a_pasar;
qry.Params.ParamByName('Par�metro_ID').AsInteger:=Valor_a_pasar;
qry.ExecSQL;

Saludos reiterados
=========
|| ISMAEL ||
=========

para la busqueda que haces, solo es de un parametro o de varios?

eje.
un boton buscar y dos campos nombre y apellido, puede ser que que el usuario se recuerde del nombre o del apellido, yo decia algo as�:
si nombre esta vacio entonces no haga nada y pase al siguiente, de lo contrario haga la busqueda si apellido esta vacio no haga nada y pase al siguiente, de lo contrario haga la busqueda

Puede ser que sea
 if nombre=: ' ' then
  next else
 zquery.SQL.Text := 'SELECT * FROM nombres WHERE nombre =:s';
  zquery1.ParamByName('sandra').asString := edit1.text;
  zquery1.Open;
  if zquery1.EOF then begin
   showMessage('Nombre NO Encontrado');
   end else begin
    edit1.text := zquery1.FieldByName('apellido').AsString ;
    edit3.text := zquery1.FieldByName('id').AsString ;

***Aqui seguir�a el siguiente b�squeda, pero a�n no se como implentar la siguiente busqueda como escribir en codigo que pueda entender lazarus pase a la siguiente busqueda?

El 22/11/2010 08:05 p.m., Lissy Amador escribi�:

para la busqueda que haces, solo es de un parametro o de varios?

en ese caso solo busco usando un par�metro..