OLEObject SQLServer, ServerList
String jk
Integer i,nServers
Long ll_status
SQLServer = Create OLEObject
ServerList = Create OLEObject
ll_status = SQLServer.ConnectToNewObject("SQLDMO.Application")
If ll_status <> 0 Then
Else
ServerList = SQLServer.ListAvailableSQLServers()
nServers = ServerList.Count
For i = 1 To nServers
jk = String(ServerList.Item(i))
ddlb_1.AddItem(jk)
Next
End If
ib_add = True
Destroy SQLServer;
Destroy ServerList;
String jk
Integer i,nServers
Long ll_status
SQLServer = Create OLEObject
ServerList = Create OLEObject
ll_status = SQLServer.ConnectToNewObject("SQLDMO.Application")
If ll_status <> 0 Then
Else
ServerList = SQLServer.ListAvailableSQLServers()
nServers = ServerList.Count
For i = 1 To nServers
jk = String(ServerList.Item(i))
ddlb_1.AddItem(jk)
Next
End If
ib_add = True
Destroy SQLServer;
Destroy ServerList;