Error paso de fecha por parametro en ADO

[javi.donvito]

Buenas de nuevo

Lo he ejecutado y me genera la siguiente expeción:

"... exception class EDataBaseError with ADOQCambiar. Parameter 'pFecha' not found"
en la siguiente linea



Código Delphi [-] If Parameters.ParamByName('pFecha') = nil





En la Query tengo creado el parametro pFecha y lo tengo configurado de la siguiente forma



Código Delphi [-]
Attributes
(todos a false)
DataType: ftDateTime
Direction : pdInput
NumericScale : 0
Precision: 0
Siza: 0
Value : 0:00:00
Type: Date








En la linea donde pone Prepare me generaba el error en compilación Undeclared identifier por lo que la he cambiado a Prepared :=True (no se si hice bien) he probado ejecutando el código de la siguientes formas



Código Delphi [-]// Primera opción
...
Prepared := True;
If Parameters.ParamByName('pFecha') = nil
...
// Segunda opción
...
Prepared := True;
Parameters.ParamByname('pFecha').Direction := pdinput;
Parameters.ParamByname('pFecha').DataType := ftDateTime; If Parameters.ParamByName('pFecha') = nil
...



En la segunda opción me da el error


"... exception class EDataBaseError with ADOQCambiar. Parameter 'pFecha'
not found"

en la linea
Parameters.ParamByname('pFecha').Direction := pdinput;

La Query lo que pretende simplemente es cambiar las fechas de aquellos registros que previamente fueron seleccionadas. Con el error que me encontraba con la fecha he dejado la Query lo más simple y sencilla posible intentando modificar para las pruebas un único registro.

¿Que puedo hacer ahora?.
Muchas Gracias

[[Lepe]]

El parámetro lo tienes creado en tiempo de diseño, pero al borrar el sql con "SQL.Clear" ese parámetro se elimina también de memoria, según los resultados, hay que crear el parámetro en tiempo de ejecución:

Código Delphi [-]
procedure TForm1.btnActualizaClick(Sender: TObject);
Var
  FechaActual : TDateTime;
begin

  with ADOQCambiar do
  begin
    SQL.Clear;

    SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = Fecha'+
            'WHERE CuotasEmitidas.CodPers = 1801 ' +
            'AND CuotasEmitidas.NumRecibo = 810375');

    with Parameters.AddParameter do begin
           DataType := ftDateTime;
           Name := 'pFecha'; 
           Direction := pdInput;
           Value := now;
    end;
    Prepared := True;
    ExecSQL;
 end;
end;

A ver qué nos dice ahora

OFFTOPIC: ¿donde están los expertos en ADO? ¿de espectadores?

Saludos

[javi.donvito]

Lo he probado tal cual como está escrito el procedure y me genera el siguiente error en la instruccion ExecSql:

"...exception class OleException with message "Multiple - step Ole Db operation generated errors. Check Ole Db Status value, if avalaible. No Work was done"


Gracias

[ContraVeneno]

Código Delphi [-]
procedure TfReenvios.BitBtn2Click(Sender: TObject);
begin
with ADOQCambiar do begin
  // Actualizar
  If active then Close;
  SQL.Clear;
  SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = :Fecha ');
  SQL.Add('WHERE CuotasEmitidas.CodPers = 1801 ');
  SQL.Add('AND CuotasEmitidas.NumRecibo = 810375');
  Parameters.ParamByName('Fecha').Value := Now;
  ExecSQL;
 end; //with
end;

Eso funciona, comprobado. Cualquier error que te marque, no es culpa de este código y deberías buscar el error en otro lado.

[javi.donvito]

Desgraciadamente me sigue dando los mismos errores. Miraré y seguiré investigando de que puede ser si logro descubrirlo os lo haré saber (si alguien tiene alguna sugerencia, será bienvenida)

Muchas gracias

[javi.donvito]

Ha llegado el momento de explicaros de donde me venia el problema. Me he pasado días y días mirando por Internet, “rastreando” las causas del error y cada vez que modificaba el código del programa la pesadilla continuaba, yo creía que el problema venia en que estaba pasando mal los parámetros en la fecha o alguna historia de este tipo (eso me pasa por obcecarme en la misma idea)

La pista me la dió uno de los errores que me generaba
Microsoft SQL Server Driver. Caracteristica opcional no implementada

El tema es que originalmente la aplicación del cliente fue desarrollada en VB6 y utiliza como bases de datos Microsoft SQL Server 2000. Habia que hacer unas modificaciones y he usado Delphi 7. Los errores me los daba tanto en Windows XP como en Vista.

La Solución:

http://support.microsoft.com/kb/294160/es

Personalmente para resolver el problema del paso de las fechas por parámetro, he tenido que modificar la cadena de conexión ADO y también el código de la aplicación para que me fuera aceptada la fecha cuando se realiza la modificación del registro.

La cadena de conexión que usaba en la propiedad ConectionString del componente ADOConection era la siguiente:

Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=nombre_usuario;Data Source=sqllaco;Mode=ReadWrite;Extended Properties="DSN=midsn;UID=sa;PWD=laco;APP=Enterprise;WSID=JAVIER_LOCAL;DATABASE=RECIBOS";Initial Catalog=RECIBOS

Y ahora es:

Provider=SQLOLEDB.1;Password=password;User ID=nombre_usuario;Data Source=sqllaco;Mode=ReadWrite;Extended Properties="DSN=midsn;UID=sa;PWD=laco;APP=Enterprise;WSID=JAVIER_LOCAL;DATABASE=RECIBOS";Initial Catalog=RECIBOS

La parte Persist Security Info=True, que aparece en la antigua configuración, en la nueva, se suprime (no recuerdo exactamente en que pagina encontré este dato, creo que en la misma web del enlace)

Y el código de programa para que esto funcione es el siguiente:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
Var
  FechaActual : TDateTime;
begin
  FechaActual :=now;
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text:='Update CuotasEmitidas SET ImpRecibo = 21.02, FecSituacion= :MiFecha ' +
    ' WHERE (CuotasEmitidas.CodPers = 462 AND CuotasEmitidas.NumRecibo = 1)';
//---------------------------------------------
//  Si añado este bloque me genera error    
(*   with Parameters.AddParameter do
    begin
      DataType:=ftDate;
      Name :='MiFecha';
      Direction:=pdInput;
    end;*) 
// ------------------------------
Parameters.ParamByName('MiFecha').Value:=StrToDate(FormatDateTime('dd/mm/yyyy',fechaActual));
    Prepared:=True;
    if prepared then
       ExecSQL;
  end;

Si añado el bloque de código que lo tengo como comentario, me genera el error:

Multiple Step OLE DB operation generated errors. Check each OLE DB status value, if avalaible. No work was done.

Y en al ADOQuery1 no tengo ningún parámetro creado !

Bueno, pues aqui dejo esto por si alguien le puede servir de ayuda.
Saludos

[[Lepe]]

Me alegro que hayas encontrado la solución... estaba bastante escondida, es lo último en que pensamos.

Sobre los parámetros, bueno, en cuanto se asigna el SQL.TEXT o se añaden textos, se parsea y se crea la lista de parámetros automáticamente (al menos era así con BDE y otros. ADO tenía sus detalles, pero no recuerdo). Lo que intento decir es que si el parámetro está creado y tú intentas crear otro con el mismo nombre, es lógico que dé error.

Si el parámetro no estuviese creado, no podrías asignar su valor .

Saludos