多网段访问sql2000服务器,
现在有一系统在133.47.8网段上有一sql2000服务器,在此网段上能访问sql2000服务器,在133.47.6网段不能访问此服务器,2个网段现在能ping通。pb的的代码是:
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "asademo"
SQLCA.ServerName = "133.47.8.6" //sql2000 的服务器地址
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
CONNECT USING SQLCA;
IF SQLCA.SQLCODE = 0 THEN
Open(w_login)
ELSE
MessageBox("系统信息","不能连接数据库! ")
HALT
END IF