Wenn Sie mit dem MS SQL-Server arbeiten, kennen Sie sicherlich auch den SQL Server-Dienst-Manager, mit dem sich ein SQL-Server starten, anhalten oder auch beenden lässt. Unser heutiger Tipp zeigt, wie man das Ganze aus der eigenen VB-Anwendung heraus steuern kann. Aktivieren Sie hierzu den Verweis "Microsoft SQLDMO Object Library" und fügen nachfolgenden Code in ein Modul ein. Option Explicit ' SQLSever Aktionen Public Enum ServerAction ServerStart = 0 ServerPause = 1 ServerContinue = 2 ServerStop = 3 End Enum ' SQL-Server starten, anhalten, beenden Public Function SQLServer_Action(ByVal nAction As ServerAction, _ ByVal sServer As String, _ ByVal sUser As String, _ ByVal sPassword As String, _ Optional ByVal bSilent As Boolean = False) As Boolean Dim oServer As SQLDMO.SQLServer ' Versuch, eine Verbindung zum SQL-Server herzustellen ' (falls bereits gestartet) On Error Resume Next Set oServer = New SQLDMO.SQLServer oServer.Connect sServer, sUser, sPassword If Err.Number <> 0 And nAction <> ServerStop Then ' Falls keine Verbindung hergestellt werden konnte, ' jetzt starten Err.Clear oServer.Start False, sServer, sUser, sPassword If Err.Number = -2147023840 And nAction = ServerStart Then ' Falls bereits gestartet, jedoch aktuell angehalten... nAction = ServerContinue ElseIf Err.Number <> 0 Then GoTo ErrHandler End If End If On Error GoTo ErrHandler Select Case nAction Case ServerAction.ServerPause ' Anhalten oServer.Pause Case ServerAction.ServerContinue ' Weiter oServer.Continue Case ServerAction.ServerStop ' Beenden oServer.Stop End Select SQLServer_Action = True On Error GoTo 0 Exit Function ErrHandler: ' Fehler! If Not bSilent Then MsgBox "SQLServer_Action - Error!" & vbCrLf & _ CStr(Err.Number) & " " & Err.Description End If SQLServer_Action = False End Function Über den optionalen Parameter bSilent können Sie festlegen, ob bei Auftreten eines Fehlers eine Fehlermeldung ausgegeben werden soll. Durch Setzen des Parameters auf True lässt sich die Fehlermeldung unterdrücken. Aufrufbeispiele: ' SQL-Server starten Dim bResult As Boolean bResult = SQLServer_Action ServerStart, "Servername", "sa", "geheim" ' SQL-Server anhalten Dim bResult As Boolean bResult = SQLServer_Action ServerPause, "Servername", "sa", "geheim" ' SQL-Server beenden Dim bResult As Boolean bResult = SQLServer_Action ServerStop, "Servername", "sa", "geheim" Dieser Tipp wurde bereits 12.633 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |