M
Marcus
Hi there I'd wish to test my adp application (Access 2003, working allready
on LAN) to access the MS SQL Server 2000 throught the internet.
Questions:
1) If, for security reasons, I'd like to expose a different port on the
internet side I would let the firewall do the port mapping somothing like
route all traffic from port 5555 to internal IP a.b.c.d:1433.
2) What syntax should I use in my app? (Should I set the "globalServer"
variable to "w.x.y.z:5555" where w.x.y.z is the internet ip address of the
router?
3) Is the traffic encrypted?
Thanks
This is the current code:
**********************************************************
Public Sub enableDBConnection(dbName As String)
globalDatabase = dbName
strConnect = "PROVIDER=SQLOLEDB.1;" & _
"INITIAL CATALOG=" & globalDatabase & ";" & _
"DATA SOURCE=" & globalServer & ";Persist Security Info=True"
Select Case globalServer
Case "MyMSWindowsServerName"
strConnect = strConnect & ";USER ID=myUser;PASSWORD=myPassword;"
Case Else
strConnect = strConnect & ";INTEGRATED SECURITY=SSPI"
End Select
CurrentProject.OpenConnection (strConnect)
If globalCn.State = adStateOpen Then
globalCn.Close
End If
globalCn.CursorLocation = adUseClient
globalCn.Open strConnect
globalStrConnect = strConnect
End Sub
**********************************************************
on LAN) to access the MS SQL Server 2000 throught the internet.
Questions:
1) If, for security reasons, I'd like to expose a different port on the
internet side I would let the firewall do the port mapping somothing like
route all traffic from port 5555 to internal IP a.b.c.d:1433.
2) What syntax should I use in my app? (Should I set the "globalServer"
variable to "w.x.y.z:5555" where w.x.y.z is the internet ip address of the
router?
3) Is the traffic encrypted?
Thanks
This is the current code:
**********************************************************
Public Sub enableDBConnection(dbName As String)
globalDatabase = dbName
strConnect = "PROVIDER=SQLOLEDB.1;" & _
"INITIAL CATALOG=" & globalDatabase & ";" & _
"DATA SOURCE=" & globalServer & ";Persist Security Info=True"
Select Case globalServer
Case "MyMSWindowsServerName"
strConnect = strConnect & ";USER ID=myUser;PASSWORD=myPassword;"
Case Else
strConnect = strConnect & ";INTEGRATED SECURITY=SSPI"
End Select
CurrentProject.OpenConnection (strConnect)
If globalCn.State = adStateOpen Then
globalCn.Close
End If
globalCn.CursorLocation = adUseClient
globalCn.Open strConnect
globalStrConnect = strConnect
End Sub
**********************************************************