怎么在VB中让SQL服务自动启动

Question

在线等~~~~~~

Answer 1

做一个服务器程序（监控程序）放在SQL SERVER上，
然后客户端需要连接时，发指令告诉它，让监控程序启动SQL Server

Answer 2

一.代码段一
myConnectString = "Provider=SQLOLEDB.1;" & _
                          "Persist Security Info=true;" & _
                          "User ID=" & strSqlServerUser & ";" & _
                          "Password=" & strSqlServerPwd & ";" & _
                          "Initial Catalog=" & strDataBase & ";" & _
                          "Data Source='" & strSqlServerName & "'"
call sfActCn(cn,myConnectString)
二.代码段二
Public Function sfActCn(ByVal CnName As ADODB.Connection, ByRef strSql As String) As String
On Error GoTo ErrTrap
    sfActCn = ""
    Call CnName.Open(strSql)
    
    Exit Function
 
ErrTrap:
    Select Case Err.Number
        Case -2147217843
            msgbox "因为网络故障或数据库文件损坏," & Chr(13) & _
                  "无法找到或打开数据库工作组信息文件,请与技术人员联系"
        Case -2147467259
            msgbox "因为网络故障或数据库文件损坏," & Chr(13) & _
                  "无法找到或打开数据库文件,请与技术人员联系"
        Case Else
            msgbox"其它"
End Select
On Error GoTo 0
End Function

Answer 3

请参考我放在这里的例子
http://www.cndevx.com/club/dispbbs.asp?boardid=50&id=57031