Erreur au connexion d'une bd acces à un VB 6
Résolu
Utilisateur anonyme
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Erreur au connexion d'une bd acces à un VB 6
- Gmail connexion - Guide
- Acces rapide - Guide
- Belote a 6 - Forum Graphisme
- Erreur 3005 france tv - Forum TV & Vidéo
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
3 réponses
Bonjour,
Es-tu sûr de ça :
'Déclaration de la variable de connexion
Dim cnx As new ADODB.Connection
Je ferai plutôt ça:
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
...
;o)
Es-tu sûr de ça :
'Déclaration de la variable de connexion
Dim cnx As new ADODB.Connection
Je ferai plutôt ça:
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
...
;o)
rebonjour Nicolas,
si je met :
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
au lieu de :
Dim cnx As new ADODB.Connection le message d'erreur (erreur de compilation:
incorrect à l'extérieur d'une procédure) que j'ai déjâ indiqué s'affiche ( le mot set est selectionné en bleu ).
et voilâ la réference de code pour la déclaration de variable de connexion -->https://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/
-----------------------------------------------------
le met de :Dim cnx As new ADODB.Connection evite l'affichage de message d'erreur pour set
mais le probléme reste pour cnx.Provider = "Microsoft.ace.Oledb.12.0"
si je met :
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
au lieu de :
Dim cnx As new ADODB.Connection le message d'erreur (erreur de compilation:
incorrect à l'extérieur d'une procédure) que j'ai déjâ indiqué s'affiche ( le mot set est selectionné en bleu ).
et voilâ la réference de code pour la déclaration de variable de connexion -->https://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/
-----------------------------------------------------
le met de :Dim cnx As new ADODB.Connection evite l'affichage de message d'erreur pour set
mais le probléme reste pour cnx.Provider = "Microsoft.ace.Oledb.12.0"
le met de :Dim cnx As new ADODB.Connection evite l'affichage de message d'erreur pour set
Je ne sais pas d'où tu tiens ça !!!
Voilà ce que je lis:
"Comment réaliser une connexion ? Tout d'abord il faut déclarer la variable associée à la connexion.
ou alors
Voilà ce que j'utilise et qui fonctionne chez moi.
;o)
Je ne sais pas d'où tu tiens ça !!!
Voilà ce que je lis:
"Comment réaliser une connexion ? Tout d'abord il faut déclarer la variable associée à la connexion.
Dim cnx As New ADODB.Connection
ou alors
Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection"
Voilà ce que j'utilise et qui fonctionne chez moi.
Option Explicit
Private AdoCnx As ADODB.Connection
Private rs As Recordset
Private CmdSql As ADODB.Command
Private Const BDD = "\bd\bdd.mdb" 'Chemin et Nom de la base de donnée
'Connexion à la base
Public Function ConnectBdd()
Dim CnxString As String
Dim chemin As String
chemin = App.Path & BDD
Set AdoCnx = New ADODB.Connection
If AdoCnx.State = adStateOpen Then
MsgBox "La connection est déjà ouverte"
Exit Function
End If
'======== Ouverture Access ============'
CnxString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & chemin & ";" & _
"Persist Security Info=False"
AdoCnx.Open CnxString
AdoCnx.CursorLocation = adUseClient
On Error Resume Next
' AdoCnx.Open
If Err <> 0 Or AdoCnx.State = adStateClosed Then
MsgBox "Connection impossible avec la base"
Exit Function
End If
End Function
;o)