Problème connection SQL

Le
Alexandre B.D.
Bonjour, j'essais de créer une connection SQL avec une base de donnée
access.

Set cnEntrer = New ADODB.Connection
With cnEntrer
.Provider = "Microsoftjet.4.0; persist security info = false;"
.ConnectionString = "Datasource = " & App.Path &
"ProgrammeGlobale.mdb"
.Open
End With

Le problème est au niveau du "provider" j'ai un message d'erreur : Run-time
error 3706 Impossible de trouvé le fournisseur, il est peut-être mal
installé.

Comment faire pour régler mon problème?
Merci beaucoup
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Hervé
Le #15294271
Salut Alexandre,
Regarde cet exemple et teste pour voir si ça fonctionne. Pour plus de
clartée, la partie connexion est séparée du reste :

Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
Optional Rs)

Set ConnectBD = New ADODB.Connection
If Not IsMissing(Rs) Then
Set Rs = New ADODB.Recordset
End If

With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
'ici changer le chemin de la base
.ConnectionString = "D:MaBase.mdb"
.Open
End With

End Sub

Private Sub LireTable()
Dim ConnectBD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Champ As ADODB.Field
Dim I As Integer, J As Integer

ConnecterBase ConnectBD, Rs

With Rs
.CursorType = 1
.LockType = 3
'adapter le nom de la table
.Open "SELECT * FROM MaTable", ConnectBD
'juste pour l'exemple :
Do While Not .EOF
For Each Champ In .Fields
Debug.Print Champ.Name
Debug.Print Champ.Value
Next
.MoveNext
Loop
End With

ConnectBD.Close

Set ConnectBD = Nothing
Set Rs = Nothing
Set Champ = Nothing
End Sub

Hervé.

"Alexandre B.D."
Bonjour, j'essais de créer une connection SQL avec une base de donnée
access.

Set cnEntrer = New ADODB.Connection
With cnEntrer
.Provider = "Microsoftjet.4.0; persist security info = false;"
.ConnectionString = "Datasource = " & App.Path &
"ProgrammeGlobale.mdb"
.Open
End With

Le problème est au niveau du "provider" j'ai un message d'erreur :


Run-time
error 3706 Impossible de trouvé le fournisseur, il est peut-être mal
installé.

Comment faire pour régler mon problème?
Merci beaucoup





Alexandre B.D.
Le #15689911
Merci beaucoup de ton aide mais maintenant avec le provider écrit
correctement j'ai l'erreur suivante : Pilote ISAM introuvable.. de quoi
sagit-il??


"Hervé" OM#
Salut Alexandre,
Regarde cet exemple et teste pour voir si ça fonctionne. Pour plus de
clartée, la partie connexion est séparée du reste :

Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
Optional Rs)

Set ConnectBD = New ADODB.Connection
If Not IsMissing(Rs) Then
Set Rs = New ADODB.Recordset
End If

With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
'ici changer le chemin de la base
.ConnectionString = "D:MaBase.mdb"
.Open
End With

End Sub

Private Sub LireTable()
Dim ConnectBD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Champ As ADODB.Field
Dim I As Integer, J As Integer

ConnecterBase ConnectBD, Rs

With Rs
.CursorType = 1
.LockType = 3
'adapter le nom de la table
.Open "SELECT * FROM MaTable", ConnectBD
'juste pour l'exemple :
Do While Not .EOF
For Each Champ In .Fields
Debug.Print Champ.Name
Debug.Print Champ.Value
Next
.MoveNext
Loop
End With

ConnectBD.Close

Set ConnectBD = Nothing
Set Rs = Nothing
Set Champ = Nothing
End Sub

Hervé.

"Alexandre B.D."
> Bonjour, j'essais de créer une connection SQL avec une base de donnée
> access.
>
> Set cnEntrer = New ADODB.Connection
> With cnEntrer
> .Provider = "Microsoftjet.4.0; persist security info false;"
> .ConnectionString = "Datasource = " & App.Path &
> "ProgrammeGlobale.mdb"
> .Open
> End With
>
> Le problème est au niveau du "provider" j'ai un message d'erreur :
Run-time
> error 3706 Impossible de trouvé le fournisseur, il est peut-être mal
> installé.
>
> Comment faire pour régler mon problème?
> Merci beaucoup
>
>
>




Poster une réponse
Anonyme