Update duplica registro

[FerCastro]

Hallé esto en el foro:

Código Delphi [-]
cadena := 'Update Documentos set doc_apel1=:apel1 ,doc_apel2=:apel2';
cadena := cadena + ', doc_nombre=:nombre';
cadena := cadena + ', usuario=:usu, fechagrab=:Fecha';
cadena := cadena + ' where doc_id=:id and doc_NH=:NH';
ADOQVarios.Active:=false;
ADOQVarios.SQL.Clear;
ADOQVarios.SQL.Add(cadena);
ADOQVarios.Parameters.ParamByName('id').DataType := ftInteger;
ADOQVarios.Parameters.ParamByName('id').Value :=cod;
ADOQVarios.Parameters.ParamByName('apel2').DataType := ftString;
ADOQVarios.Parameters.ParamByName('apel2').Value := eApe2.text;
ADOQVarios.Parameters.ParamByName('apel1').DataType := ftString;
ADOQVarios.Parameters.ParamByName('apel1').Value := eApe1.text;
ADOQVarios.Parameters.ParamByName('Nombre').DataType := ftString;
ADOQVarios.Parameters.ParamByName('Nombre').Value := eNombre.text;
ADOQVarios.Parameters.ParamByName('NH').DataType := ftInteger;
ADOQVarios.Parameters.ParamByName('NH').Value :=StrToInt(eNH.text);
ADOQVarios.Parameters.ParamByName('Fecha').DataType := ftDateTime;
ADOQVarios.Parameters.ParamByName('Fecha').Value := Now;
ADOQVarios.Parameters.ParamByName('Usu').DataType := ftString;
ADOQVarios.Parameters.ParamByName('Usu').Value :=MFunciones.GetLoginName;
ADOQVarios.ExecSQL;

Solo una pregunta, los parámetros se tiene que declarar todos y cada uno como variables?

Perdon por la pregunta, solo es una duda.

Saludos

[[Delphius]]

Se puede interpretar a los parámetros como unas variables especiales que luego serán sustituídas por los valores que se desean suministrar. Un parámetro se distingue en el SQL anteponiendo los dos puntos. Algo como:

Código SQL [-]
SELECT tus_campos
FROM tu_tabla
WHERE Campo1 = :ElParametro

En este caso el parámetro se llama ElParametro.

Luego, se debe indicar de donde va obtener los datos el parámetro. Esto se hace con:

Código Delphi [-]
TQuery1.Params.ParamByName('NombreParametro').AsTipo := ....

Recomiendo la lectura de la ayuda que proporciona al respecto.
Como podrás comprobar, si haces unas búsquedas encontrarás muchos hilos que hablan al respecto.

Saludos,

[FerCastro]

Román y todos, muchas gracias por la ayuda, ya quedó.

Hoy aprendí algo, ya me puedo dormir tranquilo

Perdón por las preguntas de párvulo, así pasa cuando uno apenas está aprendiendo.

FCG

Código Delphi [-]
        cCadena := ' UPDATE segmento SET '+
                    ' IDEmpresa = '+ QuotedStr(IntToStr(FMain.oVariables.nEmpresa))+
                   ' , IDSucursal = '+ QuotedStr(IntToStr(FMain.oVariables.nSucursal))+
                   ' , Nombre = '+ QuotedStr(csNombre.Text)+
                   ' , Comentario = '+ QuotedStr(csComentario.Text)+
                   ' , Lapsos = '+ QuotedStr(IntToStr(nLapsos))+
                   ' , Usuario = '+ QuotedStr(FMain.oVariables.cUsuario)+
                   ' , U_Fecha = '+ QuotedStr(DateToStr(Now))+
                   ' , Juntar1 = '+ QuotedStr(FloatToStr (nsJuntar1.Value))+
                   ' , Juntar2 = '+ QuotedStr(FloatToStr (nsJuntar2.Value))+
                   ' , Juntar3 = '+ QuotedStr(FloatToStr (nsJuntar3.Value))+
                   ' , Juntar4 = '+ QuotedStr(FloatToStr (nsJuntar4.Value))+
                   ' , Juntar5 = '+ QuotedStr(FloatToStr (nsJuntar5.Value))+
                   ' , Juntar6 = '+ QuotedStr(FloatToStr (nsJuntar6.Value))+
                   ' , Juntar7 = '+ QuotedStr(FloatToStr (nsJuntar7.Value))+
                   ' , Juntar8 = '+ QuotedStr(FloatToStr (nsJuntar8.Value))+
                   ' , Juntar9 = '+ QuotedStr(FloatToStr (nsJuntar9.Value))+
                   ' , Juntar10 = '+ QuotedStr(FloatToStr (nsJuntar10.Value))+

                   ' , HoraInicio1 = :h1'+
                   ' , HoraInicio2 = :h2'+
                   ' , HoraInicio3 = :h3'+
                   ' , HoraInicio4 = :h4'+
                   ' , HoraInicio5 = :h5'+
                   ' , HoraInicio6 = :h6'+
                   ' , HoraInicio7 = :h7'+
                   ' , HoraInicio8 = :h8'+
                   ' , HoraInicio9 = :h9'+
                   ' , HoraInicio10 = :h10'+

                   ' , HoraFin1 = :f1'+
                   ' , HoraFin2 = :f2'+
                   ' , HoraFin3 = :f3'+
                   ' , HoraFin4 = :f4'+
                   ' , HoraFin5 = :f5'+
                   ' , HoraFin6 = :f6'+
                   ' , HoraFin7 = :f7'+
                   ' , HoraFin8 = :f8'+
                   ' , HoraFin9 = :f9'+
                   ' , HoraFin10 = :f10'+
                  ' Where IDSegmento = '+ QuotedStr(IntToStr(nIDSegmento)) ;

          SQL.Clear;
          SQL.Add(cCadena);
          Parameters.ParamByName('h1').Value := dsInicio1.Time;
          Parameters.ParamByName('h2').Value := dsInicio2.Time;
          Parameters.ParamByName('h3').Value := dsInicio3.Time;
          Parameters.ParamByName('h4').Value := dsInicio4.Time;
          Parameters.ParamByName('h5').Value := dsInicio5.Time;
          Parameters.ParamByName('h6').Value := dsInicio6.Time;
          Parameters.ParamByName('h7').Value := dsInicio7.Time;
          Parameters.ParamByName('h8').Value := dsInicio8.Time;
          Parameters.ParamByName('h9').Value := dsInicio9.Time;
          Parameters.ParamByName('h10').Value := dsInicio10.Time;

          Parameters.ParamByName('f1').Value := dFin1.Time;
          Parameters.ParamByName('f2').Value := dFin2.Time;
          Parameters.ParamByName('f3').Value := dFin3.Time;
          Parameters.ParamByName('f4').Value := dFin4.Time;
          Parameters.ParamByName('f5').Value := dFin5.Time;
          Parameters.ParamByName('f6').Value := dFin6.Time;
          Parameters.ParamByName('f7').Value := dFin7.Time;
          Parameters.ParamByName('f8').Value := dFin8.Time;
          Parameters.ParamByName('f9').Value := dFin9.Time;
          Parameters.ParamByName('f10').Value := dFin10.Time;


          SQL.Text := cCadena;
          ExecSQL;

[[egostar]]

Empezado por FerCastro

Román y todos, muchas gracias por la ayuda, ya quedó.

Hoy aprendí algo, ya me puedo dormir tranquilo

Perdón por las preguntas de párvulo, así pasa cuando uno apenas está aprendiendo.

FCG

Ya ves wey, y no querias usar parámetros

Salud OS

[roman]

De todas formas, yo no me quedaría tranquilo. La técnica original debe funcionar, además de que es más sencilla. El componente se encarga de generar la sentencia update. ¿De qué base de datos hablamos?

// Saludos

[FerCastro]

Empezado por roman

De todas formas, yo no me quedaría tranquilo. La técnica original debe funcionar, además de que es más sencilla. El componente se encarga de generar la sentencia update. ¿De qué base de datos hablamos?

// Saludos

Román, mira la verdad es que sigo pensando en lo mismo, hace dos días funcionaba perfectamente u un buen día decidió que ya no.

Uso MS SQL Server, Delphi 2007 y ADO, sencillo.

Saludos!!

FCG

[FerCastro]

Empezado por egostar

Ya ves wey, y no querias usar parámetros

Salud OS

No quería porque no sabía como, crees que a partir de ahora los voy a dejar de usar?

Gracias Eliseo!!