Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1409 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°334539
Killerman
Posté le 16-03-2003 à 18:19:00  profilanswer
 

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 !
mood
Publicité
Posté le 16-03-2003 à 18:19:00  profilanswer
 

n°334648
Killerman
Posté le 16-03-2003 à 20:32:52  profilanswer
 

UP ! :[


---------------
La geforce c'est comme un bon steak, quand on cherche à l'avoir bien cuite elle finit toujours par griller !
n°337319
Hyragael
Posté le 19-03-2003 à 15:43:59  profilanswer
 

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
 

n°337348
drasche
Posté le 19-03-2003 à 16:26:35  profilanswer
 

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)
n°337354
drasche
Posté le 19-03-2003 à 16:36:45  profilanswer
 

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)

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[Java Servlet] Urgent ! Comment installer package javax.servlet ?[help] bases relationnelles\les operateurs ensemblistes
besoin d'aide pour ACCESSBoucle + Zone de texte = Help me !!
HELP : DEV C++ [ Linker error ] : undefined reference to 'WinMain@16'[Access] Concatener trois champs
Aidez une débutante à se connecter sur une BD MySql !!!!!! HELP[Access] Insertion d'une valeur par défaut
urgent cherche cour sur small c[ACCESS] prob. requete date !
Plus de sujets relatifs à : HELP ! Pb connection ADO et Access XP :((( [URGENT]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR