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