no sobre escribe un registro lo agrega

[kryna]

disculpe sr marcos....

pero en verdad me agrega un registro no me modifica el actual...

yo se que parece ilogico pero es asi... sino no les hari aperder su tiempo.. no se donde pueda estar la falla..

yo tampoco lo entiendo

[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.

[jachguate]

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

?

[roman]

Quizá lo que voy a decir no es del todo cierto pues ya no me acuerdo bien.

Con alguna versión antigua de MySql y de phpMyAdmin me sucedía lo mismo cuando trataba de editar un registro de una consulta en la que no se especificaba la llave primaria de la tabla (o la tabla no tenía llave primaria).

phpMyAdmin, al no disponer de la llave primaria, generaba la cláusula WHERE basándose en todos los campos presentes y por alguna razón, quizá por el juego de caracteres usado, daba la impresión de no encontrar el registro y en su lugar lo insertaba.

Claro que esto o era un "bug" o una "funcionalidad" de MySql al trocar un UPDATE por un INSERT.

Por otra parte sería bueno que nos indicaras qué componentes usas para acceder a MySql.

// Saludos