Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
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:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'EXECUTE master..xp_cmdshell ' +...
Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
Halt,
kommando zurück ;-)
Es geht zwar so wie ich es beschrieben habe aber Du wolltest es ja in einem TMemo. Das ist dann noch einfacher.
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'xp_cmdshell "dir *.exe"';
ADODataSet1.Recordset := ADOCommand1.Execute;
ADODataSet1.First;
while not (ADODataSet1.Eof) do
Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
Hai Keda,
hast Du dein TADODataSet mit einer TDataSource verbunden?
Ich habe das eben mal getestet und es geht wunderbar. Wenn ich z.B. diesen Befehl ausführe:
ADOCommand1.CommandText := 'xp_cmdshell "dir *.exe"';
ADODataSet1.Recordset := ADOCommand1.Execute;
Habe ich anschließen alle Dateien in meinem DBGrid.
Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
Sorry,
das hatte ich überlesen :wall:
Mit dem ADODataSet und ADOCommand habe ich noch nicht gearbeitet. Ich verwende auch immer Querys für meine Abfragen.
Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
So kannst Du die Feldnamen einer Tabelle übrigens auslesen:
Ich verwende zur Anzeige eine TListBox.
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
ADOConnection1.GetFieldNames('test',ListBox1.Items);
end;
test Ist der Name der Tabelle.
Forum: Datenbanken
Delphi
by Sharky,
24. Sep 2004
Hai Keda,
warum kennst Du denn nicht die Feldnamen der Tabelle?