Private Sub GetSqlServer() Dim oSQLServerDMOApp As Object Dim i As Integer Dim namX As Object On Error Resume Next Set oSQLServerDMOApp = CreateObject("SQLDMO.Application") Set namX = oSQLServerDMOApp.ListAvailableSQLServers For i = 1 To namX.Count cmbServer.AddItem namX.Item(i) Next cmbServer.ListIndex = 0
Private Sub Command1_Click() Winsock1.RemotePort = 1433 Winsock1.RemoteHost = "SM001" Winsock1.Connect End SubPrivate Sub Winsock1_Connect() MsgBox "SQLSERVER正常" End Sub
STRSQL="SELECT HOST_NAME()"
看有没有返值.
参考一下,列举网络中的可用服务器.
Private Sub GetSqlServer()
Dim oSQLServerDMOApp As Object
Dim i As Integer
Dim namX As Object
On Error Resume Next
Set oSQLServerDMOApp = CreateObject("SQLDMO.Application")
Set namX = oSQLServerDMOApp.ListAvailableSQLServers
For i = 1 To namX.Count
cmbServer.AddItem namX.Item(i)
Next
cmbServer.ListIndex = 0
End Sub
---------------------------------------------------------------
安装 MS SQL Server server/client
引用 Microsoft SQLDMO Object Library
'CODE
Option Explicit
Private Sub Command1_Click()
On Error GoTo Err1
Dim dmoObj As New SQLDMO.Application
Dim I As Long
For I = 1 To dmoObj.ListAvailableSQLServers.Count
List1.AddItem dmoObj.ListAvailableSQLServers.Item(I)
Next
Err1:
End Sub
我这样想:
在一个timer事件里面连接数据库
...
Winsock1.RemotePort = 1433
Winsock1.RemoteHost = "SM001"
Winsock1.Connect
End SubPrivate Sub Winsock1_Connect()
MsgBox "SQLSERVER正常"
End Sub