如何用VB编程实现启动SQL server服务器？

Question

我做了一个小小的数据库系统，运行要先启动SQL server服务器，现在可不可以编程实现，判断SQL server服务器是否已经打开，如果还没有启动，就先启动。

Answer 1

Sub main()
   If ConnectToServer = False Then End
End Sub
将启动对象设置为Sub main

Answer 2

Public Function connecttoserver() As Boolean
    On Error GoTo connecterr
    con.ConnectionString = "driver={SQL Server};" & _
    "server=你的数据库服务器的名称;uid=;pwd=;database=book"
    con.ConnectionTimeout = 20
    con.Open
    connecttoserver = True
    Exit Function
connecterr:
    connecttoserver = False
    MsgBox "数据库服务器还没有打开"
End Function

Answer 3

shell "net start MSSQLSERVER" 开启服务
shell "net stop MSSQLSERVER" 停止服务

Answer 4

用 jiagun4(霸王棍)  的来判断SQL server服务器是否已经打开，如果还没有启动就shell "net start MSSQLSERVER" 

Answer 5

学习学习，问楼上2位一个问题，
如果数据库跟客户端程序不在一台机器上，也就是说是远程mssqlserver, "net start mssqlserver"是不是就不能用了啊？

Answer 6

shell "net start MSSQLSERVER"

Answer 7

装SQL SERVER2000，在VB中引用"Microsoft SQLDMO Object Library"
dim svrDB as new SQLDMO.SQLServer
svrDB.Connect "192.168.0.1","sa","pwd"
svrDB.Stop
svrDB.close
set svrDB=nothing

Answer 8

我用 jiagun4(霸王棍)的程序，怎么老是连不上啊？
是什么原因啊