判断Sql server 2000 是否连通

来源：百度知道 编辑：UC知道 时间：2024/05/16 10:27:00
在IP为192.168.2.1的服务器上装有Sql server 2000,IP为192.168.2.10的电脑上装了数据采集的程序,数据采程序是我用VB 6.0写的，当电脑和服务器正常的时候,数据采集程序运行没问题,当服务器没开机或者网线出问题时,数据采集程序提示"实时错误'91': 对象变量或with变量未设置"，我想，是否有一种方法能判断判断电脑和服务器是否连通，或者判断电脑和SQL SERVER 2000是否连通，如果不连通，提示未开服务器或网络不通？
谢谢大家帮忙

可以借助错误处理代码On Error GoTo 来实现,
当连接数据库失败时可以使程序跳转到自已定义的错误处理或提示语句中去;
简单示例:
Private Sub Form_Load() '以下是在装载程序时连接数据库
On Error GoTo err_log

Set conn = New ADODB.Connection
connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=hsoneone;Data Source=" & apim.sourse_str
conn.Open (connectstring)' '开始连接

Exit Sub
err_log:
MsgBox "数据库连接失败,请检查数据库服务器是否开启或网络连接是否正常!"

End Sub

判断connected的属性就行了

try
connectname.connect:=true;
except
（显示连接失败）

try
connectname.connect:=true;
except