HELP ! Pb connection ADO et Access XP :((( [URGENT]

HELP ! Pb connection ADO et Access XP :((( [URGENT] - VB/VBA/VBS - Programmation

Marsh Posté le 16-03-2003 à 18:19:00    

Hello !  
 
Bon voilà mon pb...impossible de créer la connexion ADO avec une base de donnée Access XP !
SI qqu1 pouvait m'aider se serait vraiment sympa...
 
Voila une partie de mon code en espérant que cela vous éclaire :
 
' Déclaration explicite des variables rendue obligatoire
Option Explicit
 
' Déclaration de variables globales
Dim CON As New Connection                       ' Connexion au moteur ADO
Dim CMD As New Command                          ' Commande pour le moteur ADO
Dim RS As Recordset                             ' Tableau résultat (Recordset)
Dim REQUETE_SQL As String                       ' Requête SQL
Dim test As String
 
 
 
Private Sub frmFilm_load()
    ' Sur chargement du formulaire
    '
   
     
    ' Définition de la chaîne de connexion à la Base De Données (BDD)
    CON.ConnectionString = "Provider=Microsoft.Access.OLEDB.10.0;Persist Security Info=False;Data Source=c:\Projet Divx\Film.mdb;User ID=Admin;Data Provider=Microsoft.Jet.OLEDB.4.0"
    '"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Projet Divx\Film.mdb;Persist Security Info=false"
     
    ' Connexion à la BDD
    CON.Open
     
    ' Affectation des commandes à la connexion active
    CMD.ActiveConnection = CON
     
     
     
     
 
 
End Sub
Private Sub frmFilm_Unload(Cancel As Integer)
    '
    ' Sur déchargement du formulaire
    '
    ' Fermeture de la connexion
    CON.Close
End Sub
 
Private Sub CmdConnec_Click()
    ' Exécution de la commande ADO
    Set RS = CMD.Execute
 
   ' Initialisation de la requête SQL
    REQUETE_SQL = "SELECT * FROM Film"
   
    ' Initialisation de la commande ADO
    CMD.CommandText = REQUETE_SQL
   
    RS.MoveFirst
 
 MsgBox (RS![numFilm])
End Sub


---------------
La geforce c'est comme un bon steak, quand on cherche à l'avoir bien cuite elle finit toujours par griller !
Reply

Marsh Posté le 16-03-2003 à 18:19:00   

Reply

Marsh Posté le 16-03-2003 à 20:32:52    

UP ! :[


---------------
La geforce c'est comme un bon steak, quand on cherche à l'avoir bien cuite elle finit toujours par griller !
Reply

Marsh Posté le 19-03-2003 à 15:43:59    

Le problème vient de la déclaration de tes variables :
Essaye plutôt :
Dim CON As ADODB.Connection
Dim RS As New ADODB.Recordset
 
de même pour les autres variables de la collection ADO
 
aussi non vérifie bien l'orthographe de ton provider dans la chaine de connexion (pour cela il faut aller dans les propriétés  
des sources de données ODBC
 
N.B : N'oublie pas de définir le parmètre "CursorLocation" (Client ou serveur) si tu travailles avec une base déportée
 
 
 
Voila
 

Reply

Marsh Posté le 19-03-2003 à 16:26:35    

je m'étonne un peu qu'il ait trouvé Microsoft.Jet.OLEDB.10.0 alors que cette chaîne est invalide.  Le provider correct est "Microsoft.Jet.OLEDB.4.0"


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-03-2003 à 16:36:45    

Autre chose, "Data Provider" est inutile dans ce cas-ci.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed