HELP ! Pb connection ADO et Access XP :((( [URGENT] - VB/VBA/VBS - Programmation
Marsh Posté le 16-03-2003 à 20:32:52
UP ! :[
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
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"
Marsh Posté le 19-03-2003 à 16:36:45
Autre chose, "Data Provider" est inutile dans ce cas-ci.
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 !