Bonjour,
Forum Excel ou forum Access ?
Je préfère vraiment ne pas utiliser l'instruction On Error Goto ErrorHandler car cela m'empêche de voir sur quelle ligne l'erreur se produit. Sur cette base, ma proposition:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| 'Déclaration des variables communes
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'Instanciation des variables de connexion
Dim host As String
host = "dbacce"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim dsn As String
dsn = "TOTO"
Dim user As String
'user = "Redacteur"
Dim password As String
'password = 'admin'
Dim bdd As String
bdd = "admin"
'Début de la connexion
'Définition de la chaîne de connexion
cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
'ouverture de la base de donnée
cnx.Open
rst.Open "SELECT, INSERT, UPDATE, DELETE ON TABLE COMMENTAIRE TO REDACTEUR", cnx
cnx.Close
End Function |
et une erreur se produit certainement sur la ligne 22. Pourrait éventuellement fonctionner:
rst.Open "SELECT * FROM NomTable", cnx
Bonne continuation.
Partager