Eliminar Registro

[Casimiro Notevi]

agustin173, tenemos la opción de "buscar", ¿has probado a buscar esas palabras?
Y no repitas mensajes, ya he borrado el nuevo tema que has abierto preguntando lo mismo por triplicado
Lee nuestra guía de estilo. gracias.

[agustin173]

hermano me da un error que dice:

undeclared identifier 'EoleException'
']' Expected but identifier 'message' found
'.' Expected but ';' found

La estructura de la base de dato es la siguiente:

Estoy usando SQL Server 2008
la base de datos de dato se llama = synapse
Una tabla llamada = suplidor

Campos:

Codigo Int (Llave)
Fecha Date
Rnc Char(12) Null
Suplidor Varchar(50) Null
Contacto Varchar(25) Null
Direccion Varchar(50) Null
Area Char(4) Null
Telefono Char(8) Null
Area1 Char(4) Null
Fax Char(8) Null
Termino Varchar(9) Null
Limite Char(13) Null
Email Varchar(60) Null

Veremos cual es el error este no entiendo lo que esta pasando.

[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 Notevi]

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