Eliminar Registro

[mcs]

Si Codigo es una llave (entiendo que la clave primaria), porqué no simplificas la query? Simplemente con un "Delete From suplidor Where codigo=:codigo" tendría que ser suficiente.

A menos, claro está, que codigo no sea una clave única y tengas duplicados... En este caso, yo crearía un campo autoincremental y lo usaría de clave primaria.

Saludos,

Marc

[agustin173]

mcs como lo podria hacer es que no se mucho de programacion podrias ayudarme con el codigo

Te pondre el codigo a ver si puedes ayudarme

Código Delphi [-]
 IF Application.MessageBox ('Desea Eliminar Este Registro'+
           Chr(13)+'',
          '',mb_YesNo+MB_IconStop) = idYes Then
    Begin
     Temp.SQL.Clear;
     Temp.Sql.Text:='Delete from Suplidor where Codigo = :Codigo and Fecha = :Fecha and Rnc = :Rnc and Suplidor = :Suplidor and Contacto = :Contacto and Direccion = ireccion and Area = :Area and Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email';
     Temp.Parameters.ParamByName('Codigo').Value:= EDCodigo.text;
     Temp.Parameters.ParamByName('FECHA').Value:= EDfecha.Text;
     Temp.Parameters.ParamByName('Rnc').Value:= MERnc.text;
     Temp.Parameters.ParamByName('Contacto').Value:= EDContacto.text;
     Temp.Parameters.ParamByName('Direccion').Value:= EDDireccion.text;
     Temp.Parameters.ParamByName('Area').Value:= CBTelefono.text;
     Temp.Parameters.ParamByName('Telefono').Value:= METelefono.text;
     Temp.Parameters.ParamByName('Area1').Value:= CBFax.text;
     Temp.Parameters.ParamByName('Fax').Value:= MEFax.text;
     Temp.Parameters.ParamByName('Termino').Value:= CBterminos.text;
     Temp.Parameters.ParamByName('Limite').Value:= EDLimite.text;
     Temp.Parameters.ParamByName('Email').Value:= EDEmail.text;
     Temp.ExecSQL;
     ShowMessage('Registro Eliminado');
     SuplidorModificar.Enabled := False;
     SuplidorEliminar.Enabled := False;
    End;
end;

el error que me da cuando corre el programa es el siguiente:

"String literals may have at most 255 elemens"

mcs ayudame lo mas que puedas por favor tengo 3 dias con este lio y no he podido avanzar.

es un proyecto de la universidad

[agustin173]

mcs tenias todas la razon hermano ya lo resolvi entendi lo que me digiste muchas gracias hermano tenia 3 dias con este lio gracias de verdad

y tambien a todos lo que aportaron ideas a casimiro y a microbiano gracias tambien me sirvio de mucho


gracias a todos.

[Casimiro Noteví]

Empezado por agustin173

mcs tenias todas la razon hermano ya lo resolvi entendi lo que me digiste muchas gracias hermano tenia 3 dias con este lio gracias de verdad
y tambien a todos lo que aportaron ideas a casimiro y a microbiano gracias tambien me sirvio de mucho
gracias a todos.

Vaya, me alegro, suerte.

[microbiano]

ultimo consejo siempre una un campo incremental y en el ultimo de los casos ponlo como llave primaria.

[agustin173]

Gracias por el consejo microbiano.

muchas gracias a todos