Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Problème connection SQL

Problème connection SQL

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
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." a écrit dans le message news:

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





Avatar
Alexandre B.D.
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é" a écrit dans le message de news:
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." a écrit dans le message news:

> 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
>
>
>