请教各位高手，如何访问远程数据库！

Question

现在我的程序已经写好，想访问局域网内的一台机器上数据库服务器，但是却弹出：SQL Server不存在或者拒绝访问的对话框。
我的代码如下：
servName = "LUOHONG"
userName = "sa"
userPwd = "sa"
dbName = "GPSData"
Dim Cn As New ADODB.Connection
Cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & userName & ";password=" & userPwd & ";Initial Catalog=" & dbName & ";Data Source=219.221.104.115"
Cn.Open
我在想，是不是因为对方的机器上有防火墙的原因导致无法访问了？但是我叫对方关掉防火墙后仍然不能访问。该怎么解决了？！

Answer 1

将IP地址换成计算机名试试，还不行则手工配制ODBC到SQL试试

Answer 2

我把IP改成计算机名试了不行，还是一样的错误。但是手工配置ODBC到SQL是什么意思啊？

Answer 3

"我把IP改成计算机名试了不行，还是一样的错误。但是手工配置ODBC到SQL是什么意思啊？"倒~~~
楼主不清楚什么叫odbc??????

Answer 4

呵呵。确实不是很清楚。不过我大概晓得它是干什么的。
我再把问题描述一下：
我的目的是在学校的实验室内的机器上访问外面公司的局域网上的一台数据库服务器。如果建好vpn之后，是否通过vpn访问数据库服务器就像在局域网内访问数据库服务器一样啊？！

Answer 5

已经做好VPN的话就不用端口映射。
确定你的SQL服务器是在219.221.104.115，如果接好VPN的话换成内部局域网的IP。用SQL企业管理器创建个连接，如果能连接上的话就说明你连接语法错，不能联的话，检查IP是否正确。

Answer 6

如果SQL服务器是局域网内不直接接入互联网的电脑，即没有外部IP的电脑，就必须在接入互联网的代理服务器或路由上设置端口映射，外网的电脑才能通过路由或代理服务器访问SQL。

Answer 7

楼主在VB窗体上用ADODC控件连一下对方的数据库，看看能不以连接；
如果不能连接，PING 一下对方的主机看看网络是不是通的，还有就是对方电脑的1433端口是不是被屏蔽了