bricoyeye
Messages postés326Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention29 avril 20082 8 déc. 2006 à 14:06
Option Explicit
Dim base As New ADODB.Connection
Dim table As New ADODB.Recordset
base.Provider = "microsoft.jet.oledb.4.0"
base.ConnectionString = App.Path & "\le nom de ta base" (si elle est dans la même application)
base.Open
table.Open "select * from ta table", base, adOpenDynamic, adLockOptimistic
AH60
Messages postés20Date d'inscriptionlundi 27 novembre 2006StatutMembreDernière intervention 7 mai 2009 8 déc. 2006 à 15:21
Bonjour BADREDDINE
VOICI UN EXEMPLE SIMPLE DE Lire des données apartir d'une base des données Access
Sub LireDonnées()
'cocher DAO 3.6 library dans Outils>réferences
Dim RS As Recordset
Dim db As Database
Dim reqSQL As String
Set db = OpenDatabase("C:\a\Qualité") 'Qualité c'est le nom de la base des données
reqSQL = "SELECT * from produits" 'Produits c'est le nom de la table
Set RS = db.OpenRecordset(reqSQL)
Do Until RS.EOF
MsgBox RS!nom
RS.MoveNext
Loop
RS.Close
End Sub