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.

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.

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

Gruss
Tau

[renekr]

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

Danke