ADO con parámetros

[jonmendi]

Muchas gacias a todos!! y perdonar por no contestar antes,
peo mi punto de locura sigue igual.
He probado el código de Contraveneno y me da el mismo error.
He probado a crear los parametros en tiempo de ejecución

 
 with ADOQuery1 do begin
   If active then close;
   SQL.Clear;
   SQL.Add('Insert into TBL_M_ART (M_Cod, M_des)');
   SQL.Add('Values (:Cod,:Desc)');
   with parameters do begin
     CreateParameter('Cod', ftWideString,pdInput,6,null);
     CreateParameter('Desc', ftWideString,pdInput,40,null);
     ParamByName('Cod').value := '000486'; //edtCodigo.Text;
     ParamByName('Desc').Value := StringOfChar(' ', 40); //edtDescricpion.Text;
   end; //parameters
   ExecSQL;
end; //with

y sigue igual.
Me corto las venas? me tomo un vasito de agua? O pienso un poco más y vuelvo a pedir vuestra ayuda? Me decanto por 2 y 3 ().

Esto en cambio funciona perfecto:

 
 with ADOQuery1 do begin
   If active then close;
   SQL.Clear;
   SQL.Add('Insert into TBL_M_ART Values (''' + cod+ ''', ''' + desc+ ''', )');
   ExecSQL;
end;

Por lo tanto, es parámetros seguro. Pero ¿qué demonios?

Muchas gracias a todos de nuevo!!
Jon

[Nelet]

Ahora mismo no lo puedo probar, pero quiza serviría pasar los string "entrecomillados".

Código Delphi [-]
with ADOQuery1 do begin
   If active then close;
   SQL.Clear;
   SQL.Add('Insert into TBL_M_ART (M_Cod, M_des)');
   SQL.Add('Values (:Cod,esc)');
   with parameters do begin
     CreateParameter('Cod', ftWideString,pdInput,6,null);
     CreateParameter('Desc', ftWideString,pdInput,40,null);
     ParamByName('Cod').value := QuotedStr('000486'); //edtCodigo.Text;
     ParamByName('Desc').Value := QuotedStr(StringOfChar(' ', 40)); //edtDescricpion.Text;
   end; //parameters
   ExecSQL;
end; //with

No estoy seguro de si al pasar el parámetro delphi le pone las comillas a los string para que SQLServer no proteste.

[jonmendi]

gracias Nelet!
lo he probado y sigue igual.
Ami lo único que se me ocurre es que con los ADOs (esta es mi primera incursión en ellos) haya que decirle en algún sitio que se usan parámetros, o que tenga algo mal en el ADOConnection1

ConnectionString :=
  Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\archivos\Prueba.sdf
Mode :=ReadWrite
Provider := Microsoft.SQLSERVER.CE.OLEDB.3.5

y el resto como viene de "fábrica".

Muchas gracias a todos! y sigo investigando
Jon

[Nelet]

Hola Jon.

Estas cosas pican....jeje.

¿Si haces un debug linea a linea y te pones unos watches para inspeccionar los valores de:
-La propiedad SQL de la query.
-Los valores que toman los parámetros.
?

Ahí quizá puedas comprobar, valga la redundancia, los valores que toman los parámetros y la sentencia que estás enviando a SQL Server.

[jonmendi]

gracias a ambos!
efectivamente los entrecomillados no me han cambiado nada (gracias Nelet, no se me había ni ocurrido!).
El tema es que no me da ningún error. Me explico: ejecuto, y al hacer el EXEcSql, va a

 
function TADOQuery.ExecSQL: Integer;
begin
  InitializeMasterFields(Self);
  Command.Execute(FRowsAffected, EmptyParam);
  Result := FRowsAffected;
end;

y en el InitializeMasterFields(Self);

procedure InitializeMasterFields(Dataset: TCustomADODataset);
var
  I: Integer;
  MasterFieldList: string;
begin
  with DataSet do
    { Assign MasterFields from parameters as needed by the MasterDataLink }
    if (Parameters.Count > 0) and Assigned(MasterDataLink.DataSource) and
      Assigned(MasterDataLink.DataSource.DataSet) then
    begin
      for I := 0 to Parameters.Count - 1 do
        if (Parameters[i].Direction in [pdInput, pdInputOutput]) and
          (MasterDataLink.DataSource.DataSet.FindField(Parameters[i].Name) <> nil) then
          MasterFieldList := MasterFieldList + Parameters[i].Name + ';';
      MasterFields := Copy(MasterFieldList, 1, Length(MasterFieldList)-1);
      SetParamsFromCursor;
    end;
end;

n Parameters.Count = 2 pero MasterDataLink.DataSource = nil, con lo que Assigned(MasterDataLink.DataSource) = false y ya se va al end.

En

function TADOCommand.Execute(var RecordsAffected: Integer;
  const Parameters: OleVariant): _Recordset;
var
  VarRecsAffected: OleVariant;
begin
  SetConnectionFlag(cfExecute, True);
  try
    Initialize;
    Result := CommandObject.Execute(VarRecsAffected, Parameters,
      Integer(CommandObject.CommandType) + ExecuteOptionsToOrd(FExecuteOptions));
    RecordsAffected := VarRecsAffected;
  finally
    SetConnectionFlag(cfExecute, False);
  end;
end;

al hacer el Result := .... la aplicación simplemente se cierra, sin dar ninguna excepción, ni nada.
Entiendo que el problema está en Assigned(MasterDataLink.DataSource), pero no sé qué hacer. Estoy perdido.

Pero eso sí, si venís por San sebastián algún día, a una cervecita estáis invitados.

Muchas gracias.
Jon

[Nelet]

Hola Jon.

La última prueba que se me ocurre....

¿La propiedad Datasource del ADOQuery tiene valor?.

Y la recomendación que se me ocurre:

ADOCommand, parece más apropiado para lanzar un INSERT.

Que haya suerte.

[nuk3zito]

Empezado por Nelet

Hola Jon.

La última prueba que se me ocurre....

¿La propiedad Datasource del ADOQuery tiene valor?.

Y la recomendación que se me ocurre:

ADOCommand, parece más apropiado para lanzar un INSERT.

Que haya suerte.

La propiedad "Datasource" no tiene aplicación en esto que estás haciendo.

Respecto a TAdoCommand... el TADOQuery debería funcionarte bien sin ningun problema... de hecho el código que te presenta ContraVeneno no debe causarte problemas.

¿Copiaste el TADOQuery de otro que tenías ya creado? De ser así, intenta poner un nuevo TADOQuery de cualquier manera.

Talvez es hacer énfasis en lo mismo que tiene este hilo pero... ¿seguro que estás limpiando tu tadoquery antes de ponerle las nuevas instrucciones de inserción?

Por otro lado... no vi si indicaste con que versión de Delphi trabajas, pero si es Delphi 5 recuerda que hay actualizaciones de ADO porque tenía algunos errores. Si tienes Delphi de una versión mayor a la 5, este comentario no aplica entonces.

Saludos.

[ContraVeneno]

Empezado por Nelet

Ahora mismo no lo puedo probar, pero quiza serviría pasar los string "entrecomillados".... No estoy seguro de si al pasar el parámetro delphi le pone las comillas a los string para que SQLServer no proteste.

Al utilizar parámetros, las comillas se agregan solas, por tanto, no es necesario utilizar QuotedStr.


jonmendi, ¿cuál es el error que te está marcando?, insisto, el ejemplo que puse funciona correctamente, seguramente tienes asignada otra cosa o algo aparte. ¿cuál es el error que te marca?