Actualizar registro.. ayuda

[Rofocale]

Código Delphi [-]
  icodex := strtoint(txtcodigo.Text);

        with dmDatos.qryventarea do begin
         Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM ventasareas');
        open;
        if(not Eof)then begin
        if icodex <> FieldByName('codigo').value then
        begin
     // dmDatos.cdsventarea.Active := false;
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO ventasareas (areaventa, orden, articulo, codigo, descrip, cantidad, precio, cliente, categoria, fecha)');
        SQL.Add('VALUES(:areaventa, rden, :articulo, :codigo, :descrip, :cantidad, recio, :cliente, :categoria, :fecha)');
            params.ParamByName('areaventa').Value := sAreaVenta;
             if(iCliente < 1) then
               params.ParamByName('orden').Value := NULL
            else
               params.ParamByName('orden').Value := iorden;

            params.ParamByName('articulo').Value := txtclave.Text;
            params.ParamByName('codigo').Value := txtcodigo.Text;
            params.ParamByName('descrip').Value := txtdescripc.Text;
            params.ParamByName('cantidad').Value := txtcantidad.Text;
            params.ParamByName('precio').Value := txtprecio.Text;

            if(iCliente < 1) then
               params.ParamByName('cliente').Value := NULL
            else
               params.ParamByName('cliente').Value := IntToStr(iCliente);

            if(Length(txtcategoria.Text) > 0) then
               params.ParamByName('categoria').Value := txtcategoria.Text
            else
               params.ParamByName('categoria').Value := NULL;


            params.ParamByName('fecha').Value := FormatDateTime('dd/mm/yyyy',Date);
            ExecSQL;
            Close;
        end;
        end
        else begin
          Close;
            SQL.Clear;
            SQL.Add('UPDATE ventasareas SET areaventa = :areaventa,orden = rden,');
            SQL.Add('articulo = :articulo,codigo = :codigo,descripcion = :descripcion,');
            SQL.Add('cantidad = :cantidad,precio = recio,cliente = :cliente,');
            SQL.Add('categoria = :categoria,fecha = :fecha WHERE codigo = :codigo');

            params.ParamByName('areaventa').Value := sAreaventa;
            params.ParamByName('orden').Value := iorden;
            params.ParamByName('articulo').Value := txtclave.Text;
            params.ParamByName('codigo').Value := txtcodigo.Text;
            params.ParamByName('descripcion').Value := txtdescripc.Text;
           params.ParamByName('cantidad').Value := txtcantidad.Text;
            params.ParamByName('precio').Value := txtprecio.Text;
            params.ParamByName('cliente').Value :=IntToStr(iCliente);
            params.ParamByName('categoria').Value := txtcategoria.Text;
            params.ParamByName('fecha').Value := FormatDateTime('dd/mm/yyyy',Date);
        end;
        end;

buenas estaba haciendo este codigo para insertar articulos con un boton agregar desde una lista, lo que quiero es que si escribes en un edit el codigo y este sea igual al ya ingresado anteriormente en un grid lo actualize en ves de ponerlo en la sgte linea y si no es el mismo codigo agregarlo en la siguiente linea..

bueno el codigo no hace nada cuando apreto el boton agregar..
que estoy haciendo mal, alguna sugerencia ?

[[oscarac]]

me parece que estas equivocandote en el

NOT EOF

si no es vacio Inserta y si esta vacion Actualiza???

no deberia ser al reves?

al menos es lo que he podido interpretar del pedazo de codigo que has puesto

[Rofocale]

se supone que not eof es mientras no llega al final ? en que parte dice si es vacio INSERTA 8-)

[[oscarac]]

ah mientras not eof

y el while? donde lo pones?

quiza ahi esta el error, solo esta pasando 1 vez por ese proceso

[Rofocale]

no eso tambien ya probe y no funciona con while tampoco

[elarys]

No se entiende muy bien lo que haces con el codigo pero proba cambiar
if (not Eof) then begin

Código Delphi [-]
if Query.RecordCount = 0 then
  //insterta
else
  //actualiza

como sabes a que campo esta apuntando el query
deberias agregarle un order by codigo
entiendo que codigo es la clave y va en orden ascendete
luego query.last para ir al ultimo y ver cual es el ultimo codigo agregado
va por lo menos eso es lo que entiendo... si no deberias explicarte detalladamente

[[oscarac]]

parece que no me has entendido....
tu dices que el NOT EOF es mientras no termine el archivo.. verdad?

pero no veo el

Código Delphi [-]
 
While NOT query.eof do

si haces una revision del codigo que has puesto (salvo que no este completo)

dices

Código Delphi [-]
  SQL.Add('SELECT * FROM ventasareas');
  open;
  if(not Eof)then begin
     if icodex <> FieldByName('codigo').value then
     begin

YO interpreto que si HAY datos en ventasareas (el not eof significa que no es fin de archivo), pero como no hay un while, se podria interpretar como ventasareas tiene al menos 1 registro

entonces si HAY datos insertar y si no hay datos Actualizas.... (no se puede actualizar un dato que no existe previamente)

me entiendes ahora?