除了 net stop，怎么检测SQL Server 是否已运行！急！！！

[yinweihong]

各位高手帮忙！！

[yinweihong]

没人知道了吗？
各位大哥帮帮忙啊
vb代码怎么实现？
即检测sql 服务器是否已运行

[staronline]

on error resume next
conn.open "...."
if conn.state=1 then
isrun=false
else
isrun=true
end if

[lizfhn]

楼上的方法是可以!但是速度太慢!并且较率太低!只是我也在想这个方法!听人说好像可用OLE的方式做~

[pigsanddogs]

2k:
Shell "cmd.exe /c net start >c:\1.txt"
Open "c:\1.txt" For Binary As #1
Dim a() As Byte
ReDim a(LOF(1))

Get #1, , a
If InStr(1, StrConv(a, vbUnicode), "MSSQLSERVER", vbTextCompare) Then
MsgBox "run"
Else
MsgBox "no run"
End If
Close #1
Kill "c:\1.txt"

98:
Shell "command.exe /c net start >c:\1.txt"

[pigsanddogs]

用api可以参考
msdn Platform SDK \ Base Services \ DLLs,Process,and Threads\Services
这节。