获取服务器数据库列表
我用VB取某个服务器上的数据库,在我的机器上取是可以的， 但是放到客户那就不行,网络上取不到,怎么会事啊,急!!!!!!!!!!!!!!!!!!!!

Dim oSQLServer As SQLDMO.SQLServer
'定义一个SQLDMO.SQLServer对象
Set oSQLServer = CreateObject("SQLDMO.SQLServer")
oSQLServer.Connect GetIniStr("System", "ServerName", App.Path & "\sysconfig.fig"), "sa", ""
Dim oCurrentDB As SQLDMO.Database
'获得SQL Server服务器上的所有数据库名称
If bFill = True Then
Dim oDB As New SQLDMO.Database
For Each oDB In oSQLServer.Databases
If oDB.SystemObject = False Then
'判断其不是系统数据库
TV1.Nodes.Add , , , oDB.Name, 1, 1
'把非系统数据库名称添加到数据库信息列表框中
End If
Next oDB
End If
这个是代码

[解决办法]
vb 不知道啊
[解决办法]
和网络有关?

能打开或连接数据库吗?
[解决办法]
ServerName --这个服务器名你写的是ip 还是 sql 服务器的名字 ？
[解决办法]
与网络环境和一些杀毒软件或防火墙有关
另外你所说的问题是指什么,(有可能缺少系统文件造成无法显示服务器数据库列表),需要安装SQLDMO相关的系统文件(建议用VB的打包工具来完成)