Liaison datagrid -> bd access sans adodc

Commenter

Contenu du snippet

Hello,

C'est mon premier code, mais vu que j'utilise souvent ce site, je me dois de faire partager mon experience. En l'occurence ici, je vais pas trop expliquer le pourquoi car je ne maitrise pas tout. Mais je crois que plusieurs personnes on du galérer comme moi sur ce truc.

Voilà un code ultra simple pour lier une DataGrid à une table de base de donnée *.mdb (Access) en utilisant ADO mais pas le contrôle Adodc

Posez simplement un control DataGrid sur une feuille et copier/coller ce code.

Source / Exemple : 


' ATTENTION DE BIEN INCLURE ADO DANS VOTRE PROJET
' Pour ca ca cochez 'Microsoft ActiveX Data Objetcts 2.0 Library'
' dans Projet/Références

Dim Cxn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Private Sub Form_Load()

Cxn.Provider = "Microsoft.jet.OLEDB.4.0"
Cxn.Open "NomDuFichier.mdb"

Rst.CursorLocation = adUseClient ' Sans cette ligne, ca genère une erreur 7004
Rst.Open "NomDeLaTable_ou_RequêteSQL", Cxn, , adLockOptimistic

Set DataGrid1.DataSource = Rst

End Sub

Conclusion :


Voilà, c tout.

J'espère que cela vous sera utile.

Graphy

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_graphy)