Accès à une base de données

Eric 45

XLDnaute Occasionnel
Bonjour à tous

Malgré mes recherches, je n'ai pas réussi à accéder à une bdd avec le code suivant (extrait de Wiki Page 6 de MichelXld) :

Code:
Sub ImportTableAccess_V03_test()
Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim rSQL As String

Dim numfich As String
Dim num_c As Long
dim bdd As string

bdd = "bdd.mdb"

num_c = 2244

numfich = ThisWorkbook.Path & "\" & bdd

Set Conn = New ADODB.Connection
With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Mode = adModeRead
    .Open numfich
End With

rSQL = "SELECT ma_table.numero_c FROM ma_table WHERE ma_table.numero_c =" & num_c

Set rsT = New ADODB.Recordset
With rsT
    .ActiveConnection = Conn
    .Open rSQL & num_c, , adOpenStatic, adLockOptimistic, adCmdText
End With

If rsT.EOF Then
    rsT.Close
    Conn.Close
    Exit Sub
End If
   
Cells(ActiveCell.Row, 2) = rsT.Fields(0).Value
Cells(ActiveCell.Row, 3) = rsT.Fields(1).Value
Cells(ActiveCell.Row, 4) = rsT.Fields(2).Value
Cells(ActiveCell.Row, 6) = rsT.Fields(3).Value

rsT.Close
Conn.Close
End Sub

j'ai le message d'erreur suivant : "Aucune valeur donnée pour un ou plusieurs des paramètres requis" sur la ligne :
Code:
.Open rSQL & num_c, , adOpenStatic, adLockOptimistic, adCmdText

Merci d'avance
Eric
 

Eric 45

XLDnaute Occasionnel
Bonjour à toutes et tous
Bonjour Pierre

Super ton blog.
J'ai trouvé l'erreur. Dans :
Code:
rSQL = "SELECT ma_table.numero_c FROM ma_table WHERE ma_table.numero_c =" & num_c
j'avais un "champs" demandé qui n'existait pas.

Bon WE à toutes et tous
Eric
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T