Ist ein MS-SQL-Server im Netz?

[Tau]

Hallo Leute

Wie kann ich Prüfen ob ein MS-SQL-Server (MSDE) im Netz ist!

Will vorher prüfen ob überhaupt ein Server online ist
bevor ich die Verbindung zum Server herstelle.

Gruss
Tau

[Stefan Dieler]

Hallo,

als erste und einfachste Methode fällt mir spontan ein:

Code:

  try
    Verbindung.Active := True;
  except
    ShowMessage('Es ist kein MsSQL-Server aktiv!');
  end;

Vielleicht hilft es dir ja!

[Bernhard Geyer]

NetServerEnum

[Tau]

Hallo Stefan

an diese Lösung hatte ich auch bereits gedacht

ist glaube ich nicht die optimale Lösung.

Trotzdem Danke für den Tipp.

Gruss
Tau

[Tau]

Hallo Bernhard

DANKE für den Tipp

wenn du mir noch sagen könntest wo ich die Datei JclSysInfo ( IsNTVersion, cNoStringList )
herbekomme ohne das man gleich das Ganze
Pakte installieren muss währe ich dir sehr dankbar.

Gruss
Tau

[Bernhard Geyer]

Die JclSysInf findest Du in der Jedi

IsNTVersion ist eine eigene Funktion zur Bestimmung ob es sich um ein NT-Basiertes System handelt und cNoStringList ist einfach ein Fehlertext-String.

[Tau]

DANKE

[clues1]

Hier, ein Auszug aus meinen EDB Komponenten:
PS: funktioniert auch unter Delphi Personal.

Code:

procedure GetMSSQLServerlist(var SL: TStrings);
var DMOApp, SrvLst: Variant;
            i: Integer;
begin
  SL.Clear;
  DMOApp := CreateOleObject( 'SQLDMO.Application' );
  SrvLst := DMOApp.ListAvailableSQLServers;

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

[Bernhard Geyer]

Zitat von clues1:

Hier, ein Auszug aus meinen EDB Komponenten:
PS: funktioniert auch unter Delphi Personal.

Code:

procedure GetMSSQLServerlist(var SL: TStrings);
var DMOApp, SrvLst: Variant;
            i: Integer;
begin
  SL.Clear;
  DMOApp := CreateOleObject( 'SQLDMO.Application' );
  SrvLst := DMOApp.ListAvailableSQLServers;

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

Scheidert aber mit jeder vernünftigen Firewall (Auch mit der XP-Eingebauten), da hier über Ports gegangen wird, die defaultmäßig gesperrt sind

[clues1]

Achso, er wollte nur wissen, ob sein MS SQL Server im netz ist. Meine Funktion listet alle SQL Server im LAN auf.