ListView SQL-Server auflisten

[Tau]

Hallo Leute

kann mir vielleicht jemand helfen ich stehe gerade auf dem schlauch.

mit der unten angeführten Prozedur kann ich mir die SQL-Server auflisten.

würde sie aber gerne in einer ListView auflisten. :gruebel:

Delphi-Quellcode:

procedure TFmDBLogIn.FmButton1Click(Sender: TObject);
 var DMOApp, SrvLst: Variant;
            i: Integer;
begin
  DMOApp := CreateOleObject( 'SQLDMO.Application' );
  SrvLst := DMOApp.ListAvailableSQLServers;

  for i := 1 to SrvLst.Count do
    ComboBox1.Items.Add( SrvLst.Item(i) );
end;

Gruss
Tau

[Gollum]

Hallo,

die Einträge bekommst Du mit Items.Add in eine Listview. In Deinem Fall:

Delphi-Quellcode:

procedure TFmDBLogIn.FmButton1Click(Sender: TObject);
var DMOApp, SrvLst: Variant;
            i: Integer;
    aItem:TListItem; 
begin
  DMOApp := CreateOleObject( 'SQLDMO.Application' );
  SrvLst := DMOApp.ListAvailableSQLServers;

  // Variante 1
  for i:=1 to SrvLst.Count do
  begin
    aItem:=ListView1.Items.Add;
    aItem.Caption:=SrvLst.Item(i);
  end; // for i

  // Variante 2
  for i:=1 to SrvLst.Count do 
    with ListView1.Items.Add do Caption:=SrvLst.Item(i);
end;

Ein Blick in die Delphi-Hilfe hätte in diesem Fall nicht geschadet.

[Tau]

Hallo Gollum

Danke für den Tipp

Ich hatte vergessen begin und end für die schleife zu setzen. :mrgreen:

Sorry das ich mich erst jetzt melde aber es hat ja
jemand am DelphiPraxis Server herumgespielt. :evil:

Gruss
Tau

[renekr]

Hallo,
Kann mir ev. jemand noch sagen was ich dazu einbinden muss um die CreateOleObject aufrufen zu können?

Danke