Hej!

Jag använder mig av ActiveDs (se exempel nedan) för att starta SQL Server och Agenten via kod för kunder som har MSDE (Gratis versionen där det ej medföljer administrationsverktyg).
Kan jag via samma object sätta valet att de ska autostarta när datorn startar? Ska göra detta via kod så att kunderna ej behöver bekymra sig om detta. Eller finns det något annat bra sätt istället för att hålla på och skriva direkt mot värdena i Registry?

//Jenny

Public Function SQLServiceStart(service As SQLServerType) As Long
On Error GoTo ErrHandler
Dim strCompName As String, objComp As ActiveDs.IADsComputer
Dim objService As ActiveDs.IADsServiceOperations, bContinue As Boolean
Dim intCount As Integer
strCompName = "WinNT://" & GetMachineName & ",computer"
Set objComp = GetObject(strCompName)
Set objService = objComp.GetObject("Service", SQLGetService(service))
Select Case objService.Status
Case SERVICE_RUNNING, SERVICE_START_PENDING
Case Else
objService.Start
Sleep 2000
End Select
bContinue = True
While bContinue And objService.Status <> SERVICE_RUNNING
Sleep 2000
intCount = intCount + 1
If intCount = 3 Then
bContinue = False
End If
Wend
If objService.Status = SERVICE_RUNNING Then
SQLServiceStart = 1
End If
Set objService = Nothing
Set objComp = Nothing
Exit Function
ErrHandler:
SQLServiceStart = 2
Err.Clear
End Function

Du kan ju alltid programmera mot SQL-DMO istället, vet inte exakt hur koden skulle se ut men jag är ganska säker på att det skulle fungera.

Hej!

Det är just det att jag inte ska använda sql-dmo.
Vi har haft problem ute hos kund när vi installerat sqldmo.
Kommer inte riktigt ihåg vad det var men jag tror att det
var problem med att sedan uppgradera från sql 7 till
2000 eller nåt sånt. Något problem var det i alla fall
och vi kom fram till att inte använda av oss sqldmo.

//Jenny