Ado <> Bde

[[egostar]]

Empezado por Elite237

Egostar, cheque lo que me decias, y tienes razon, lo que hize fue introducir esto:

procedure TForm30.BitBtn2Click(Sender: TObject);
begin
if Tmaru.Locate('nive_sall;salario_sal',VarArrayOf([Edit1.Text,Edit2.Text]),[loPartialKey]) then
  begin
   Tmaru.Edit;
   Tmaru.FieldValues['nive_sall']:=Edit1.Text;
   Tmaru.FieldValues['salario_sal']:=Edit2.Text;
   Tmaru.Post;
   Edit1.Clear;
   Edit2.Clear;
   mensaje:=Application.MessageBox('Los datos fueron guardados con éxito','Mensaje de confirmación');
end;
end;

pense que con esto se solucionaria mi problema, pero tampoco, presiono el boton para guardar y no hace nada...disculpa si no entendi bien lo que me decias, pero que tengo mal???

Si no te hace nada, y no te muestra el mensaje que pones quiere decir que no está encontrando el registro que buscas.

Salud OS.

[Elite237]

Los registros si estan, de hecho, lo primero que hago es buscar ese registro, y de ahi que lo encuentra los mando a llamar, ya que me aparecen los registros en los edit, lo que hago son modificarlos y es alli donde despues de haberlos modificado le doy guardar y en ese momento es que falla, osea no hace nada, el boton aparece como si no estuviera programado, osea que por mas que le presione, no hace nada, y me tengo que salir de la aplicacion

[[egostar]]

Porque mejor no usas el GotoKey...

Código Delphi [-]
with Tmaru do begin
  EditKey;
  FieldByName('Nive_Sall').AsString := Edit1.text;
  FieldByName('Salario_Sal').AsString := Edit2.Text;
  if GotoKey = true then begin
     Edit;
     FieldValues['nive_sall']:=Edit1.Text;
     FieldValues['salario_sal']:=Edit2.Text;
     Post;
  end;
end;

Salud OS.

[Elite237]

Una pregunta, como declaro lo que sugeriste, es que me dice que no esta declarado....por eso te pregunto, lo que pasa es que todavia no se bien, estoy empezando...

Como declaro esto:

Código Delphi [-]
EditKey;
GotoKey;

[GustavoCruz]

Hola amigo Elite237 prueba esto sin el loPartialKey:

Código Delphi [-]
procedure TForm30.BitBtn2Click(Sender: TObject);
begin
if Tmaru.Locate('nive_sall;salario_sal',VarArrayOf([Edit1.Text,Edit2.Text]),[]) then
  begin
   Tmaru.Edit;
   Tmaru.Fieldbyname('nive_sall').asvalue:=Edit1.Text;
   Tmaru.Fieldbyname('salario_sal').asvalue:=Edit2.Text;
   Tmaru.Post;
   Edit1.Clear;
   Edit2.Clear;
   Application.MessageBox('Los datos fueron guardados con éxito','Mensaje de confirmación',mb_ok+mb_iconiformation);
end;
end;

si uno hace una actualización utilizando el TADOQuery o el TQuery, la sentencia normalmente, es asi

Código SQL [-]
"update Tmaru set campo1=nuevovalor1, campo2=nuevovalor2 where .... grupo de condiciones...."

qué sucede en tu código, que estás buscando por dos campos y luego estos mismos campos los estás reemplazando...