Com associar a l'orígen de dades d'un formulari de Microsoft Access conjunts de registres ADO emmagatzemats a SQL Server

Si tenim les dades d'una base de dades emmagatzemades a SQL Server i volem que un formulari de Microsoft Access ens les mostri, podem fer servir el següent procediment:

1. Establir la connexió amb la base de dades emmagatzemada a SQL Server
2. Recuperar els registres d'una taula o conjunt de taules
3. Mostrar els registres recuperats al formulari

El següent codi, que escriurem en l'event "al cargar" del formulari, fa servir ADO per establir la connexió amb la base de dades, recuperar els registres i mostrar-los al formulari.

 Perquè els registres es mostrin correctament haurem de crear els camps del formulari amb els mateixos noms dels camps dels registres recuperats.

Private Sub Form_Load()

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

cnn.Open "Provider=sqloledb;" & _
"Data Source=Nom_del_Servidor;" & _
"Initial Catalog=Nom_de_la_base_de_dades;" & _
"User Id=USUARI;Password=PASSWORD"

Dim registres As ADODB.Recordset
Set registres = New ADODB.Recordset

With registres
    Set .ActiveConnection = cnn
    .Source = "SELECT * FROM Proveidors"
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Open
End With

Set Me.Recordset = registres

Set registres = Nothing
Set cnn = Nothing

End Sub

Més informació a http://support.microsoft.com/kb/281998/es