如果SQL Server服务器未启动，如何编程实现启动？

Question

希望有高手能指点。

Answer 1

执行命令行语句net start mssqlserver

Answer 2

//或者可以注册以下控件，用控制服务的形式来获得并控制sql server的状态：unit ServiceManager;interface
uses
  Windows, WinSvc, SvcMgr, Classes;type
  TSMMessageEvent = procedure(Sender : TObject; Message : string) of object;  TServiceManager = class(TComponent)
  private
    fSCMHandle     : THandle;        { Handle to the Service Control Manager       }
    fServiceHandle : THandle;        { Handle to the service                       }
    fMachineName   : string;         { Name of the machine that owns the SCM       }
    fServiceName   : string;         { Name of the service that we're manipulating }
    fServiceStatus : TServiceStatus; { Status of the service                       }
    fOnMessage     : TSMMessageEvent;{ Message event                               }
    fOpened        : boolean;        { currently open?                             }
    function GetMachineName  : string;
    function GetServiceState : integer;
    function GetStateAsString : string;
    function GetIsOpen : boolean;    procedure SendStatus(Msg : string);  public
    property State         : integer read GetServiceState;
    property StateAsString : string  read GetStateAsString;    constructor Create(AOwner : TComponent); override;    function Open : boolean;
    function Close : boolean;
    function Start : boolean;
    function Stop : boolean;
    function Pause : boolean;
    function Continue : boolean;
  published
    property MachineName : string read GetMachineName write fMachineName;
    property ServiceName : string read fServiceName write fServiceName;    property OnMessage   : TSMMessageEvent read fOnMessage write fOnMessage;
    property IsOpen      : boolean read GetIsOpen;
  end; { TServiceMananger }  procedure Register;implementation
uses
  Forms, Dialogs;constructor TServiceManager.Create(AOwner : TComponent);
{
  TServiceManager.Create - 01.05.00 - DL  NOTES
    Override constructor  OVERVIEW
    Misc. initialization.
}
begin { TServiceManager.Create }
  inherited Create(AOwner);
  MachineName := '';
end;  { TServiceManager.Create }
function TServiceManager.GetMachineName : string;
{
  TServiceManager.GetMachineName - 01.05.00 - DL  NOTES  OVERVIEW
    Retrieve the machine name, if set. If it's NOT set, then
    ask the user.
}
begin { TServiceManager.GetMachineName }
  if fMachineName = '' then
    fMachineName := InputBox('Server','Machine name','');  Result := fMachineName;
end;  { TServiceManager.GetMachineName }function TServiceManager.GetIsOpen : boolean;
{
  TServiceManager.GetIsOpen - 01.05.00 - DL  NOTES  OVERVIEW
    If the FOpened flag is set and we can get a valid
    state reading from the service, then return TRUE.}
begin { TServiceManager.GetIsOpen }
  Result := fOpened and (State in [SERVICE_STOPPED,
                      SERVICE_START_PENDING,
                      SERVICE_STOP_PENDING,
                      SERVICE_RUNNING,
                      SERVICE_CONTINUE_PENDING,
                      SERVICE_PAUSE_PENDING,
                      SERVICE_PAUSED]);
end;  { TServiceManager.GetIsOpen }procedure TServiceManager.SendStatus(Msg : string);
{
  TServiceManager.SendStatus - 01.05.00 - DL  NOTES  OVERVIEW
    Sends a status message via the OnMessage event.
}
begin { TServiceManager.SendStatus }
  if assigned(fOnMessage) then
    fOnMessage(Self,Msg);
end;  { TServiceManager.SendStatus }
function TServiceManager.GetStateAsString : string;
{
  TServiceManager.GetStateAsString - 01.04.00 - DL  NOTES  OVERVIEW
    Returns a string describing the state of the service.}
begin { TServiceManager.GetStateAsString }
  case GetServiceState of
             SERVICE_STOPPED : Result := 'The service is not running.';
       SERVICE_START_PENDING : Result := 'The service is starting.';
        SERVICE_STOP_PENDING : Result := 'The service is stopping.';
             SERVICE_RUNNING : Result := 'The service is running.';
    SERVICE_CONTINUE_PENDING : Result := 'The service continue is pending.';
       SERVICE_PAUSE_PENDING : Result := 'The service pause is pending.';
              SERVICE_PAUSED : Result := 'The service is paused.';
  else
    Result := 'Unknown state condition';
  end; { case GetServiceState of }  SendStatus(Result);
end;  { TServiceManager.GetStateAsString }
function TServiceManager.Start : boolean;
{
  TServiceMananger.Start - 01.04.00 - DL  Start the service.}
var
  P : pchar;
begin { TServiceManager.Start }
  P := '';
  Result := StartService(fServiceHandle,0,p);
  if Result then begin
    while State <> SERVICE_RUNNING do
      Application.ProcessMessages;
    SendStatus('Service started')
  end else
    SendStatus('Service start failed');
end;  { TServiceManager.Start }function TServiceManager.Stop  : boolean;
{
  TServiceMananger.Stop - 01.04.00 - DL  Stop the service.}
begin { TServiceManager.Stop }
  Result := ControlService(fServiceHandle,SERVICE_CONTROL_STOP,fServiceStatus);
  if Result then
    SendStatus('Service stopped')
  else
    SendStatus('Service stop failed');
end;  { TServiceManager.Stop }function TServiceManager.Pause  : boolean;
{
  TServiceManager.Pause - 01.04.00 - DL  Pause the service.}
begin { TServiceManager.Pause }
  Result := ControlService(fServiceHandle,SERVICE_CONTROL_PAUSE,fServiceStatus);
  if Result then
    SendStatus('Service paused')
  else
    SendStatus('Service pause failed');
end;  { TServiceManager.Pause }function TServiceManager.Continue  : boolean;
{
  TServiceManager.Continue - 01.04.00 - DL  Continue the service.
}
begin { TServiceManager.Continue }
  Result := ControlService(fServiceHandle,SERVICE_CONTROL_CONTINUE,fServiceStatus);
  if Result then
    SendStatus('Service continued')
  else
    SendStatus('Service continue failed');
end;  { TServiceManager.Continue }
function TServiceManager.Open : boolean;
{
  TServiceManager.Open - 01.04.00 - DL  NOTES  OVERVIEW
    Calls OpenSCManager.
}
begin { TServiceManager.Open }
  fSCMHandle := OpenSCManager(pchar(MachineName),'ServicesActive',SC_MANAGER_ALL_ACCESS);
  fServiceHandle := OpenService(fscmHandle,pChar(fServiceName),SERVICE_ALL_ACCESS);
  Result := fServiceHandle <> 0;
  if Result then begin
    SendStatus(StateAsString);
    fOpened := TRUE;
  end else begin
    MachineName := '';
    SendStatus('SCM Open failed');
  end;
end;  { TServiceManager.Open }function TServiceManager.GetServiceState : integer;
{
  TServiceManager.GetServiceStatus - 01.04.00 - DL  NOTES  OVERVIEW
    Retrieve the status of the service.
}
begin { TServiceManager.GetServiceStatus }
  QueryServiceStatus(fServiceHandle,fServiceStatus);
  Result := fServiceStatus.dwCurrentState;
end;  { TServiceManager.GetServiceStatus }function TServiceManager.Close : boolean;
{
  TServiceManager.Close - 01.04.00 - DL  Closes the service and SCM.
}
begin { TServiceManager.Close }
  Result := CloseServiceHandle(fServiceHandle) and CloseServiceHandle(fSCMHandle);
  if Result then begin
    fOpened := FALSE;
    SendStatus('SCM Closed')
  end else begin
    SendStatus('SCM Close failed');
  end;
end;  { TServiceManager.Close }procedure Register;
begin
  RegisterComponents('DLively', [TServiceManager]);
end;end.

Answer 3

to hthunter:
   你的代码是正确的。但是代码只能启动本地的sql，而不能启动远程的。请问能指点一二吗？

Answer 4

远程的我也不是很清楚，可以去sql server版问问是否有相关命令