DOA an Parameters

[Quailin]

Noctem ad Saltuatem!

I got a Question about Parameters with DOA:

In BDE it is used to set Parameters like:

TQuery.Param.xy

in ADO its different like:

TADOQuery.Parameter.xy

Now HOW do I set Parameters in the TDOAQuery?

Why I ask, i wanna do something like that:

if TempProMESDataSet.Active then TempProMESDataSet.Close;
    SQLCommandProMES := 'SELECT DISTINCT LEISTUNGSTRAEGER_ID.LEISTUNGSTRAEGER_ID,'+
            ' LEISTUNGSTRAEGER_ID.GPNR,'+
			' LEISTUNGSTRAEGER_ID.PARENT_GPNR,'+
			' LEISTUNGSTRAEGER_ID.NAME,'+
			' PRMEQPLA.PROMES_TN.AKTIVIERT,'+
			' PRMEQPLA.PROMES_TN.MAIL_IT,'+
			' PRMEQPLA.PROMES_TN.INDIKATOREN_SET,'+
			' PRMEQPLA.PROMES_TN.PRINTCOPIES,'+
			' PRMEQPLA.PROMES_TN.ID_SPRACHE,'+
			' PRMEQPLA.PROMES_TN.MUTATIONSDATUM,'+
            ' PRMEQPLA.PROMES_TN.PRINT_IT'+
            ' FROM LEISTUNGSTRAEGER_ID,'+
			' PRMEQPLA.PROMES_TN'+
            ' WHERE LEISTUNGSTRAEGER_ID.LEISTUNGSTRAEGER_ID = :LEISTUNGSTRAEGER_ID'+
            ' AND LEISTUNGSTRAEGER_ID.GPNR = PRMEQPLA.PROMES_TN.GPNR'+
            ' AND LEISTUNGSTRAEGER_ID.PARENT_GPNR = PRMEQPLA.PROMES_TN.PARENT_GPNR';

{$IFDEF ADODB}
	 TempProMESDataSet.CommandText := SQLCommandProMES;
     TempProMESDataSet.Parameters.ParamByName('LEISTUNGSTRAEGER_ID').DataType := ftInteger;
	 TempProMESDataSet.Parameters.ParamByName('LEISTUNGSTRAEGER_ID').Value := iLeistungsTraegerID;
{$ELSE}
//BDE
	 TempProMESDataSet.SQL.Text := SQLCommandProMES;
     TempProMESDataSet.ParamByName('LEISTUNGSTRAEGER_ID').AsInteger := iLeistungsTraegerID;
{$ENDIF}
//[B]NOW IN DOA[/B]

     TempProMESDataSet.Open;

Thanks Fro Helping forward

Quailin

 

[Marco Kalter]

In Direct Oracle Access you need to use DeclareVariable, SetVariable, and GetVariable to declare, set and get a variable.