TADOCommand & TADODataSet (Recordset-Objekt -> TMemo)?

[Sharky]

Hai,

noch ein kleiner Nachtrag
Wenn Du xp_cmdshell auf dem Server ausführst ist der Feldname absolut egal
Du kannst auf Rückgabe werte auch über den Feldindex zugreifen. Da bei xp_cmdshell maximal eine Spalte zurück gegeben wird geht es also auch ganz locker so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'EXECUTE master..xp_cmdshell ' + QuotedStr ('dir *.exe');
  ADODataSet1.Recordset := ADOCommand1.Execute;
  ADODataSet1.First;
  while not (ADODataSet1.Eof) do
  begin
    Memo1.Lines.Add(ADODataSet1.Fields.Fields[0].AsString);  //Feld 0 (das erste) der Ergebnissmenge
    ADODataSet1.Next;
  end;
end;