plantage à l'ouverture de la table access !!! - ça urge !

Question

voila, ci dessous le debut du code pour ajouter des ENR dans une base que j'aurai precedemment créée et ça plante ....
(J'ai chargé les bibliothèques et tout et tout...)
je veux ouvrir la table pour faire un rs.addnew...

Private Sub Command1_Click()

'Dim pos1, pos2, tempom
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Ind, donnée(100)
     
'Ouverture BdD

base = InputBox("Nom de la base ")
table = InputBox("Nom de la table ")

    
     CN.Provider = "Microsoft.JET.OLEDB.4.0"
     CN.ConnectionString = App.Path + "" + base + ".mdb"
     CN.Open
     
     ' Table
     RS.CursorLocation = adUseClient      ' Utilisation d'un mode client
     RS.CursorType = adOpenDynamic        ' Ouvre en mode dynamique
     RS.LockType = adLockOptimistic       ' Verrouille la base de donnée en mode exclusive
     RS.Open table, CN <==== ici ca plante !!
                                 <==== pourquoi ????
                                 <==== merci

etc etc etc rs!addnew etc etc

cs_ynizon · Answer

perso, voila comment jouvre mes recordset
rs1.open SQL1, cnx,adLockOptimistic, adOpenDynamic

SQL1 etant la requete
et cnx la connexion

Plantage à l'ouverture de la table access !!! - ça urge !

1 réponse

Discussions similaires