Salut
J?ai developpé un module qui se connecte à une base access dans un espace Microsoft Jet.
La connection s?etablit de la facon suivante :
Set Wrkjet = CreateWorkspace("", "Admin", "", dbUseJet)
Set GlobalDB = Wrkjet.OpenDatabase(Cheminbase & "/" & Nombase)
Je souhaiterais maintenant travailler avec une base MySQL.
J?ai donc utilisé le code suivant pour travailler dans un espace ODBC :
Set Wrkjet = CreateWorkspace("", "Admin", "", dbUseODBC)
Set GlobalDB = Wrkjet.OpenDatabase(database, _
dbDriverNoPrompt, , _
"ODBC;DATABASE=" & database & ";UID=" & UID & ";PWD=;DSN=" & DSN & "" )
J?arrive bien à me connecter à la base et à executer des requètes mais j?ai quelques problèmes. J?arrive à les contourner mais malheureusement, il faut que je modifie le code. Je voulais savoir si il y avait pas un autre moyen.
Je debute dans le domaine et j?espère que vous pourrez m?aider :
1°/ J?utilisait la propriété Recordcount pour savoir si la requete avait des resultats or depuis que j?utilise la liaison odbc, Recordcount vaut toujours ?1. Est ce que c?est normal ?
2°/ Avec Microsoft Jet, les requetes de MAJ pouvait se faire de cette facon :
Set Rec=GlobalDB.openRecordset(«Table »)
Rec.Edit
Rec!Champs1=val1
Rec !Champs2=Val2
Rec.update
Rec.close
Avec ODBC, j?ai une erreur du type l?objet n?est pas disponible en Ecriture.
Je dois faire de cette facon :
Set Rec=GlobalDB.openRecordset(«Update Table Set ?? »)
en vous remerciant pour votre aide.
