Cómo crear una conexión sin DSN a SQL Server para tablas vinculadas en Access

Nota

Office 365 ProPlus pasa a llamarse Microsoft 365 Apps para empresas. Para obtener más información sobre este cambio, lea esta publicación de blog.

Avanzado: requiere capacidades multiusuario, interoperabilidad y Codificación experta.

Este artículo solo se aplica a una base de datos de Microsoft Access (. accdb y. mdb).

Introducción

En este artículo se describe cómo crear una conexión a Microsoft SQL Server para tablas vinculadas en Microsoft Access que no utilizan un nombre de origen de datos (DSN). También se conoce como conexión sin DSN.

Más información

Puede usar un DSN para crear tablas vinculadas de SQL Server en Microsoft Access. Pero cuando mueva la base de datos a otro equipo, deberá volver a crear el DSN en ese equipo. Este procedimiento puede resultar problemático si tiene que realizarlo en más de un equipo. Si este procedimiento no se realiza correctamente, es posible que las tablas vinculadas no puedan encontrar el DSN. Por lo tanto, es posible que las tablas vinculadas no puedan conectarse a SQL Server.

Si desea crear un vínculo a una tabla de SQL Server pero no desea codificar un DSN en el cuadro de diálogo orígenes de datos , use uno de los métodos siguientes para crear una conexión sin DSN a SQL Server.

Método 1: utilizar el método CreateTableDef

El método CreateTableDef permite crear una tabla vinculada. Para usar este método, cree un nuevo módulo y, a continuación, agregue la siguiente función AttachDSNLessTable al nuevo módulo.

'//Name     :   AttachDSNLessTable
'//Purpose  :   Create a linked table to SQL Server without using a DSN
'//Parameters
'//     stLocalTableName: Name of the table that you are creating in the current database
'//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database
'//     stServer: Name of the SQL Server that you are linking to
'//     stDatabase: Name of the SQL Server database that you are linking to
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//     stPassword: SQL Server user password
Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
    On Error GoTo AttachDSNLessTable_Err
    Dim td As TableDef
    Dim stConnect As String

For Each td In CurrentDb.TableDefs
        If td.Name = stLocalTableName Then
            CurrentDb.TableDefs.Delete stLocalTableName
        End If
    Next

If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
    Else
        '//WARNING: This will save the username and the password with the linked table information.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
    End If
    Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
    CurrentDb.TableDefs.Append td
    AttachDSNLessTable = True
    Exit Function

AttachDSNLessTable_Err:

AttachDSNLessTable = False
    MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description

End Function

Para llamar a la función AttachDSNLessTable, agregue código similar a uno de los ejemplos de código siguientes en la macro auto-Exec o en el formulario de inicio Form_Open evento:

  • Cuando use la macro auto-exec, llame a la función AttachDSNLessTable y, a continuación, pase parámetros similares a los siguientes desde la acción EjecutarCódigo.

        AttachDSNLessTable ("authors", "authors", "(local)", "pubs", "", "")
    
  • Cuando use el formulario de inicio, agregue código similar al siguiente al evento Form_Open.

    Private Sub Form_Open(Cancel As Integer)
        If AttachDSNLessTable("authors", "authors", "(local)", "pubs", "", "") Then
            '// All is okay.
        Else
            '// Not okay.
        End If
    End Sub
    

Nota: Debe ajustar la lógica de programación al agregar más de una tabla vinculada a la base de datos de Access.

Método 2: usar el DAO. RegisterDatabase (método)

El DAO. El método RegisterDatabase permite crear una conexión DSN en la macro auto-Exec o en el formulario de inicio. Aunque este método no elimina el requisito de una conexión DSN, le ayuda a resolver el problema mediante la creación de la conexión DSN en el código. Para usar este método, cree un nuevo módulo y, a continuación, agregue la siguiente función CreateDSNConnection al nuevo módulo.

'//Name     :   CreateDSNConnection
'//Purpose  :   Create a DSN to link tables to SQL Server
'//Parameters
'//     stServer: Name of SQL Server that you are linking to
'//     stDatabase: Name of the SQL Server database that you are linking to
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//     stPassword: SQL Server user password
Function CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean
    On Error GoTo CreateDSNConnection_Err

Dim stConnect As String

If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr & "Trusted_Connection=Yes"
    Else
        stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr 
    End If

DBEngine.RegisterDatabase "myDSN", "SQL Server", True, stConnect

'// Add error checking.
    CreateDSNConnection = True
    Exit Function
CreateDSNConnection_Err:

CreateDSNConnection = False
    MsgBox "CreateDSNConnection encountered an unexpected error: " & Err.Description

End Function

Nota: Si se vuelve a llamar al método RegisterDatabase, se actualiza el DSN.

Para llamar a la función CreateDSNConnection, agregue código similar a uno de los ejemplos de código siguientes en la macro auto-Exec o en el formulario de inicio Form_Open evento:

  • Cuando use la macro auto-exec, llame a la función CreateDSNConnection y, a continuación, pase parámetros similares a los siguientes desde la acción EjecutarCódigo.

        CreateDSNConnection ("(local)", "pubs", "", "")
    
  • Cuando use el formulario de inicio, agregue código similar al siguiente al evento Form_Open.

    Private Sub Form_Open(Cancel As Integer)
        If CreateDSNConnection("(local)", "pubs", "", "") Then
            '// All is okay.
        Else
            '// Not okay.
        End If
    End Sub
    

Nota

Este método presupone que ya ha creado las tablas vinculadas de SQL Server en la base de datos de Access mediante "myDSN" como nombre de DSN.