6 respuestas en este tema

[mariarosina1984]

Hola chicos para realizar un update lo hace perfecto como tengo mi codigo el caso es que como valido el folio cuando son datos duplicados kiero ponerlos diferente si es posible diganme la solucion? gracias

[Rolphy Reyes]

Saludos.

Por favor danos más detalle, puede ser por ejemplo: la estructura de tu tabla, el update que realizas y el código delphi de ser necesario.

Recuerda que no estamos sentados al lado tuyo codificando y por esta razón te pido que nos de más detalles.

Hasta luego.

[mariarosina1984]

tengo campos edit  ke muestro los datos a modificar la fila este es mi codigo:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.sql.clear;
   query1.SQL.TEXT:='update BLIBROS set AREA='+quotedstr(edit1.texT)+
                                      ', FOLIO='+quotedstr(edit2.text)+
                                      ', TITULO='+quotedstr(edit3.text)+
                                      ', AUTOR='+QUOTEDSTR(edit4.text)+
                                      ', EDICION='+quotedstr(edit5.text)+
                                      ', EDITORIAL='+quotedstr(edit6.text)+
                                      ', ISBN='+QUOTEDSTR(EDIT7.TEXT)+
                                      ', PAIS='+QUOTEDSTR(EDIT8.TEXT)+
                                      ', TEMA_1='+QUOTEDSTR(EDIT9.TEXT)+
                                      ', TEMA_2='+QUOTEDSTR(EDIT10.TEXT)+ 'Where TITULO=' + quotedstr(edit3.text);
 
   query1.ExecSQL;
   CLOSE;
end;

tengo uno aceptar y otro cancelar quiero como se validar los datos duplicados para ke folio no se duplique lo ke quiera cambiar de folio el usuario

[kafastoforman]

Si tu no deseas que se te repita el numero de folio, la solucion no esta precisamente en delphi, la solucion radica en tu base de datos, ya que a esta le tienes que indicar que el folio es una llave primaria y por lo tanto tiene que ser un valor unico, asi que si con delphi, unas sentencia SQL o lo que sea, intentas duplicar un folio(llave primaria) la base de datos no lo perimitira y te arrojara un error.

Saludos

kafastoforman

[Caral]

Hola

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.sql.clear;
   query1.SQL.TEXT:='select FOLIO from BLIBROS where FOLIO = '+quotedstr(edit2.text);
   Query1.open;
   If Query1.Filebyname('Folio').AsString = edit2.text then
   begin
   Showmessage('El folio ya existe')
   end
   else
   begin
   query1.Close;
   query1.sql.clear;
   query1.SQL.TEXT:='update BLIBROS set AREA='+quotedstr(edit1.texT)+
                                      ', FOLIO='+quotedstr(edit2.text)+
                                      ', TITULO='+quotedstr(edit3.text)+
                                      ', AUTOR='+QUOTEDSTR(edit4.text)+
                                      ', EDICION='+quotedstr(edit5.text)+
                                      ', EDITORIAL='+quotedstr(edit6.text)+
                                      ', ISBN='+QUOTEDSTR(EDIT7.TEXT)+
                                      ', PAIS='+QUOTEDSTR(EDIT8.TEXT)+
                                      ', TEMA_1='+QUOTEDSTR(EDIT9.TEXT)+
                                      ', TEMA_2='+QUOTEDSTR(EDIT10.TEXT)+ 'Where TITULO=' + quotedstr(edit3.text);
 
   query1.ExecSQL;
   end;
   CLOSE;
end;

Saludos

[mariarosina1984]

sabia ke era una comparacion pero no sabia como hacerlo gracies caral tu como siempre todo UN CHINGON

[mariarosina1984]

Si tu no deseas que se te repita el numero de folio, la solucion no esta precisamente en delphi, la solucion radica en tu base de datos, ya que a esta le tienes que indicar que el folio es una llave primaria y por lo tanto tiene que ser un valor unico, asi que si con delphi, unas sentencia SQL o lo que sea, intentas duplicar un folio(llave primaria) la base de datos no lo perimitira y te arrojara un error.

Saludos

kafastoforman

A DE SER POR ESO KE SE DUPLICA EL FORO PERO LO DEJO COMO ESTA GRACIAS A TODOS PROBE EL CODIGO DE CARAL FUNCIONA BIEN