FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Comment écrire dans une base de données ODBC via Excel (VBA)
 

Comment écrire dans une base de données ODBC via Excel (VBA)

Il y a 282 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Comment écrire dans une base de données ODBC via Excel (VBA)
 
Plus d'informations


Bonjour à tous,
 
Je travail avec une base de données ODBC du nom de CACHÉ (de la compagnie Intersystems). Jusqu'à maintenant j'avais seulement à faire des requêtes via Excel (menu DATA ... ) pour extraire des data de la BDD. Cependant, pour un nouveau projet, j'aurais besoin de pouvoir écrire de nouvelles informations dans la base de données en utilisants EXCEL / VBA.  
 
En résumé,  
Requête initiale ... modifications et /ou ajout de données ... upload des infos à partir EXCEL vers la BDD
 
Y'a-t-il des fonctions d'EXCEL / VBA qui me permettraient d'écrire dans la BDD directement ?
Dois-je intégrer du SQL dans des macros VBA ???
 
Par ou dois-je commencer pour apprendre à écrire dans ma base de données ???
 
Merci de votre aide
 
Shark

Plus d'informations

Pour attaquer une base de données via Excel :  
 

Code :
  1. Private wrk         As workspace
  2. Private connect     As Connection
  3. Public Function Connection() As Boolean
  4.     On Error GoTo sortie_erreur
  5.    
  6.     Connection = False
  7.     ' Create ODBCDirect Workspace object.
  8.     Set wrk = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
  9.     Set connect = wrk.OpenConnection("BASE", dbDriverComplete, , "ODBC;DSN=BASE;UID=toto;PWD=toto;DBQ=BASE" )
  10.     If Not connect Is Nothing Then Connection = True
  11.    
  12. sortie:
  13.     Exit Function
  14. sortie_erreur:
  15.     MsgBox "Connection : " & Err.Description
  16.     Resume sortie
  17. End Function
  18. Private Sub FinConnection()
  19.     On Error GoTo sortie_erreur
  20.     connect.Close
  21.     Set connect = Nothing
  22. sortie:
  23.     Exit Sub
  24. sortie_erreur:
  25.     MsgBox "FinConnection: " & Err.Description
  26.     Resume sortie
  27. End Sub


 
Il suffit de changer BASE et par la base de données et les toto par les infos de connection ODBC.
 
Ensuite à partir de connect tu peux utiliser toutes les fonctions qui permettre de travailler avec la base de données, voir dans currentdb.CreateQueryDef, OpenRecordset, currentdb.Exceute.


---------------
S'il n'y a pas de solution c'est qu'il n'y pas de problème

Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Comment écrire dans une base de données ODBC via Excel (VBA)
 

Annonces Google
Publicité