no sobre escribe un registro lo agrega

[marcoszorrilla]

Al hilo de lo que dice Juan Antonio, también pude ser que tengas una rejilla y avances por algún motivo una línea con lo cual se agregaría un registro.

Porque no nos pones la unit completa que pienso no tendrá mucho código porque tiene que haber algo que no estamos viendo.

Y nada de Señor hombre, aquí somos foristas que intercambiamos opiniones y conocimientos y por eso nunca perdemos el tiempo.

Un Saludo.

[kryna]

aqui les va el codigo..

te lo voy a enviar como privado

[kryna]

hola

no uso mysql.. mi gestor es paradox 7

[roman]

Empezado por kryna

no uso mysql..

Disculpa, no sé de dónde saqué que estabas hablando de MySql. Siendo Paradox, secundo entonces la frase de Marcos:

Empezado por marcoszorilla

el código que tienes es imposible que añade un registro

así que sería bueno ver el código más en detalle. No entiendo por qué lo borraste.

// Saludos

[marcoszorrilla]

Este es el código que he recibido como privado y que debe de ser público ya que sino los que están siguiendo el hilo .... lo perderían...

Código Delphi [-]
   unit Unit1;
   
  procedure TFormservicios.botonbuscarClick(Sender: TObject);
  begin
  
      if editorcodigo <> nil then
       begin
      qrycodigo.Close;
      qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
      Dsconcepto.dataset := qrycodigo;
      qrycodigo.Open;
    
      qryespecialidad.Close;
      qryespecialidad.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
      Dsespecialidad.dataset := qryespecialidad;
      qryespecialidad.Open;
   
  codigo_esp.Text := codigo_es.Text;
  descripcion_con.Text := descripcion_co.Text;
  codigo_con.Text := codigo_co.Text;
  descripcion_esp.Text := descripcion_es.Text;
  cost.Text := costo.Text;
  fech.Text := fecha.Text;
  orde.Text := norden.Text;
  
       if qrycodigo.EOF then
       ShowMessage('No encontré ningún Registro!');
 
 end
  
  end;
  
  
  procedure TFormservicios.BmodificarClick(Sender: TObject);
  var
  //las borre
  begin
  // borre
  MessageDlg('ESTA SEGURO Q DESEA MODIFICAR ESTE REGISTRO???', mtCONFIRMATION, [mbOk], 0);
  Tbconcepto.Edit;
  Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
  Tbconcepto.FieldByName('cod_concepto').AsString := clave2;
  Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
  Tbconcepto.Post;
  Tbconcepto.FlushBuffers;
  Tbconcepto.Close;
  Tbespecialidad.Edit;
  Tbespecialidad.FieldByName('cod_especialidad').AsString := Clave;
  Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
  Tbespecialidad.FieldByName('orden').AsString := claveo;
  tbespecialidad.FieldByName('nota').AsString := claven;
  Tbespecialidad.post;
  Tbespecialidad.FlushBuffers;
  Tbespecialidad.Close;
   
  ShowMessage('EL REGISTRO FUE MODIFICADO CON EXITO!!');
  end;
   
  end.

Un Saludo.

[marcoszorrilla]

Realmente no veo muy claro el funcionamiento si se busca mediante una consulta el registro por qué luego se modifica apuntando directamente a la tabla, el puntero de la tabla, no estará en el mismo lugar que el de la consulta, los datos se deben de modificar en la consulta, o por el contrario si existen índices utilizar Findkey directamente con la tabla, ya que sino cuando se supone que estamos haciendo la modificación en la tabla el puntero puede estar en Eof y provocar un alta como es el caso.

Un Saludo.

[roman]

Y una observación colateral:

En BmodificarClick, no importa qué conteste el usuario al mensaje, el resto del código siempre se ejecutará.

// Saludos

[jachguate]

¿Y por qué el código como privado???

?