no sobre escribe un registro lo agrega

[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

[kryna]

Disculpa Marcos

Pero como hago eso..
Cuando hago la consulta y me muestra los datos en las DBEdit no me permite modificar ya que los DS se vuelven de solo lectura, un opcion que me plantearon fue pasar los datos de los DBEdit a unos Edit y modificarlos desde los Edit apuntandolos a las tablas...

Estoy muy interesada en que me digas como hacerlo desde la consulta como tu planteas .. ya que viendolo desde tu punto de vista tienes la razon ....

[marcoszorrilla]

Como es una consulta simple que no involucra varias tablas a la vez será suficiente con que pongas la propiedad de la Consulta RequestLive = True.


Un Saludo.

[kryna]

tengo esa opcion en true....

y si me involucra varias tabla.. en realidad son 3 tablas ahi tienes solo 2, lo que pasa es que para que el codigo no se hiciera largo elimine parte de ste al momento de enviarte el codigo esa parte del codigo....