ADO con parámetros

[jonmendi]

Hola a todos!
a ver si me podéis ayudar antes de que me vuelva loco.

Tengo una base de datos en SQLSERVER.CE. Me conecto a ella con ADO y actualizo datos sin problemas con la siguiente sentencia:

 
('Insert into TBL_M_ART Values (''' + codigo+ ''', ''' +descripcion+ ''')');

donde codigo y descripción están asignados previamente.

Pero si en lugar de esa sql uso la siguiente con parámetros

 
('Insert into TBL_M_ART (M_Cod, M_des) Values (:Cod,:Desc)');
ADOQuery1.Parameters[0].value := codigo;
ADOQuery1.Parameters[1].Value := descripcion;
ADOQuery1.ExecSQL;

al ejecutar el ExecSQL la aplicación no me da ningún error pero se sale de la ejecución. Debuggeando (no parece una palabra que admita la RAE), en

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

veo que EmptyParam da un error(-2147352572).
¿Alguien sabe a qué se debe esto?
Muchas gracias,
Jon

PD: quiero usar parametros por que debe ser más rápido

[Neftali [Germán.Estévez]]

Seguro que usar parámetros te dará menos dolores de cabeza con los valores.
También puedes usar ParamByName para más seguridad.

Código Delphi [-]
 ...Parameters.ParamByName('cod')...

De todas formas, hay al "intermedio" cuando uno quiere montar la SQL de esta forma, que es usando la función QuotedStr, que al menos simplifica el proceso de añadir comillas simples a los strings.

Código Delphi [-]
SQL := 'Insert into TBL_M_ART Values (' + QuotedStr(codigo) + ',' + QuotedStr(descripcion) + ')';

[jonmendi]

gracias neftali!
ya he probado con

 
ADOQuery1.Parameters.ParamByName('Cod').Value := '000486';
ADOQuery1.Parameters.ParamByName('Desc').Value := StringOfChar(' ', 40);

pero me sigue dando el mismo error. ¿Alguien da más?

Gracias!
jon

[Neftali [Germán.Estévez]]

Dos preguntas:

¿Seguro que en el Query sólo tienes esa sentencia?
¿Creas los parámetros anteriormrnte vía CreateParameter?

[Nelet]

Si no me equivoco estás asignando el texto del ADOQuery en tiempo de ejecución. ¿Has probado a crear los parametros asignándoles las propiedades de cada uno?.

[ContraVeneno]

vamos a ver, coloca un TADOQuery en tu formulario o en tu módulo de datos y no le pongas nada, ni parámetros, ni SQLString, nada, solo ponlo ahí.

Lo primero que le tienes que hacer es asignarle la conexión, eso depende de como lo este manejando, el chiste es que se pueda conectar.

Luego prueba este código:

Código Delphi [-]
with UnADOQuery 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
   ParamByName('Cod').value := Codigo; //edtCodigo.Text;
   ParamByName('Desc').Value := Descripcion; //edtDescricpion.Text;
 end; //parameters
 ExecSQL;
end; //with

el código estoy seguro que funciona... si te sigue marcando error, entonces el problema esta por otro lado.

[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