ADO con parámetros

[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.

[jonmendi]

gracias a todos, y perdonar por no haber contestado el fin de semana, pero es casi sagrado!

Al lío. Otra vez perdón por no haber indicado que estoy trabajando con Delphi7, así que entiendo que no debe ser ese el problema.

TAdoCommand también lo tengo probado, prácticamente todo igual, y tampoco me funciona.

y el TADOQuery... lo cogí de la paleta, y antes de hacer nada hago el clear. Bueno, muchas gracias a todos! Más voluntad y ayuda no s epuede pedir!
Gracias, y a disfrutar!

Jon

[Roll462011]

Este hilo es más viejo que Isaac.... pero como está activo, me gustaria dar mi opinión si aun vale...

jonmendi... estas usando ExecSQL, según el propio elphi este Método se utilza para consultas que no devuelven resultados..
pero como estas haciendo un INSERT... prueba el lugar de ExecSQL, Open!!!

Vaya, es lo único que veo no analizado en el añejo hilo

un saludo
Roll