外网连MSSQL服务器

[usher_gml]

公司有MSSQL2005服务器,目前已经对外开启数据库端口1433,并知服务器IP...

现在我想通过网络在家连接公司MSSQL服务器,用VB开发工具怎么连接?

有没有别的连接方式?

或许是还需要别的动作?

[--小F--]

连接SQL的模块
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public addFlag As Boolean      '声明部分
Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip     '服务器的名字
conn.Properties("initial catalog").Value = "pubs"          '库名
'conn.Properties("integrated security").Value = "SSPI"      '登陆类型
conn.Properties("user id").Value = users 'SQL库名
conn.Properties("password").Value = pw '密码
'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1"    '如果不用这个模块也行可以，这一句便是常用的引擎。
'conn.ConnectionString = sql              
conn.Open
OpenCn = True
If conn.State = 1 Then addFlag = True
Exit Function
strerrmag:
     mag = "Data can't connect"
     Call MsgBox(mag, vbOKOnly, "Error:Data connect")
     addFlag = False
     Exit Function      '连接错误消息
End Function

'关闭数据库，释放连接
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openRs(ByVal strsql As String) As Boolean      '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
     Set rs = New ADODB.Recordset
     If addFlag = False Then rpy = True
     With rs
     .ActiveConnection = conn
     .CursorLocation = adUseClient
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open strsql
     End With
     addFlag = True
     openRs = True
     'End        '将记录集给rs
     Exit Function
strerrmag:
     mag = "data not connect"
     Call MsgBox(mag, vbOKOnly, "error:connect")
     openRs = False
     End
     'Exit Function '连接错误消息
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub

[lidanzi]

帮顶！
想知道直接用SSMT从外网连接要怎么设置，需要注意什么？

[soft_wsx]

首先要在公司路由器上做个数据转发设置（也就是端口映射），将1433端口指向数据库所在电脑！关于端口映射，在GOOGLE上搜索一下