Parameter bei AdoQuery

[Mario]

Die beiden Routinen habe ich mir im DataModul hinterlegt:

Delphi-Quellcode:

function TDataModuleServer.GetCommandValue(Commando: String): Variant;
var rs: _Recordset;
begin
 WITH TADOCommand.Create(Self) DO
  TRY
   Connection := ADOConnection????;
   CommandText := Commando;
   rs := Execute;
   IF (rs <> NIL) AND
      (NOT (rs.BOF AND rs.EOF))
    THEN Result := rs.Fields[0].Value;
  FINALLY
   rs := NIL;
   Free;
  END;
end; // GetCommandValue

procedure TDataModuleServer.ExcecuteCommand(Commando: String);
begin
 WITH TADOCommand.Create(Self) DO
  TRY
   Connection := ADOConnection????;
   CommandText := Commando;
   Execute;
  FINALLY
   Free;
  END;
end; // ExcecuteCommand

Einfach, aber effektiv