使用ADO连接到防火墙后的SQL Server

1 ． 防火墙必须配置为允许 1433 端口为引入端口，以及 1024-65535 为外出端口

2 ． 连接字符串必须指定 SQL Server 地址： IP 地址，服务器 DNS 名字或 host 文件里的名字

3 ． 连接字符串应当指定 Network Library 类型，在这种情况下 "dbmssocn" ( 没有引号 ) 为 TCP/IP Sockets Net-Library

在下面的例子代码中 , servername 应当为服务器 DNS 名字 , IP 地址 , 或 hosts 文件中的名字 :

Set Conn = CreateObject("ADODB.Connection")

Set Rs = CreateObject("ADODB.Recordset")

Set Cmd = Createobject("ADODB.Command")

Conn.Open "Provider=SQLOLEDB;Password=password;Persist Security Info=True;User ID=username;Initial Catalog=DBNAME;Data Source=servername;Network Library=dbmssocn"

Cmd.ActiveConnection= Conn

SQL = "Select * from TABLE"

Cmd.CommandText = SQL

Set Rs = Cmd.Execute