Passage Microsoft Jet -> ODBC

Passage Microsoft Jet -> ODBC - XML/XSL - Programmation

Marsh Posté le 07-11-2003 à 16:17:37    

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.

Reply

Marsh Posté le 07-11-2003 à 16:17:37   

Reply

Marsh Posté le 07-11-2003 à 16:20:15    

Rapport avec XML/XSL?

Reply

Sujets relatifs:

Leave a Replay

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