Bonjour
je viens de saisir le code suivant, et je resoit un message d erreur :
Run time eror 2147467259(80004005): could not find installable ISAM.
Le curseur se positionne au niveau de conn.Open
le code est le suivant :
conn.Open
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Command1_Click() Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Provider = "Microsoft.Jet.OLEDB.4.0" conn.ConnectionString = "DSN=" & mabase & ";UID=" & Admin & ";PWD=" & passer & ";"
End Sub
Merci de votre aide
[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton![]()
Partager