SoloCodigo

Hola gente

Ire al grano veran tengo un programa que conecta a una BD SQL Server dentro de la misma LAN corre muy bien, pero ahora quiero que desde otro lugar me pueda conectar a esa makina con SQL Server y poder tener acceso y asi hacer un mantenimiento a los registros de la BD desde otro punto de la red.

Me dijeron que use ODBC pero no se como hacerlo alguien me puede ayudar a hacer eso veran dejo un ejemplo que hice pero quiero que pueda conectarme a esa makina desde otro lugar fuera de la LAN ya sea con ODBC o no bueno les agradezco de antemano.

Un Saludo
Zeekel ®

Yo utilizo dos funciones.
La primera establece la conexion con el SQL y la segunda abre los recordsets con la sentencia SQL que le paso como parametro

Public BBDD As ADODB.Connection
Public rsConfig As ADODB.Recordset


Private Sub Form_Load()
    Set BBDD = New ADODB.Connection
    Set rsConfig= New ADODB.Recordset
End Sub

Public Function BBDDOpen()
    If BBDD.State <> 0 Then
        BBDD.Close
    End If
    With BBDD
        On Error Resume Next
        .ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR;Initial Catalog=BASEDEDATOS;User Id=UID;Password=PASSWORD;"
        .Open
        BBDDOpen = Err
        On Error GoTo 0
    End With
End Function

Public Function rsOpen(Tabla As Recordset, textoSQL)
    With Tabla
        If .State <> 0 Then
            .Close
        End If
        On Error GoTo errorApertura
        .ActiveConnection = BBDD
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .MaxRecords = 1000
        .CursorLocation = adUseClient
        If IsMissing(textoSQL) = False Then
            .Source = textoSQL
        End If
       
        On Error Resume Next
        .Open
        If Err.Number <> 0 Then
            MsgBox Err.Description, , NOMBRE
        End If
        rsOpen = Err.Number
        On Error GoTo 0
    End With
End Function