[VBA] Ouvrir une base de données par le code ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Ouvrir une base de données par le code ?

prog1001

Salut a tous !

Je ne sais pas comment faire pour ouvrir une base de données sous VBA(Excel) par le code (pas de control genre Data, DataGrid...) et la traiter pour afficher ce que veut dans excel. :??: :??:

C'est ce qui a en bleu qui m'interresse le plus.

Merci de me répondre si vous savez ça m'aiderai vraiment.

Publicité

jagstang

Pa Capona ಠ_ಠ

Une base de donnée oui, mais laquelle ? (Oracle, Sql Server, ...)

p.s. : les informations en rouge sont le plus importante

gilou

Modérateur
Modzilla

[:rofl]
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

drasche

ajoute ADO dans tes propriétés de projet et tu auras fait un grand pas en avant. (j'espère que tu connais ADO)

---------------
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)

prog1001

JagStang a écrit :

Une base de donnée oui, mais laquelle ? (Oracle, Sql Server, ...)

p.s. : les informations en rouge sont le plus importante

pour la base de donnée, elle sont en oracle...

et je te prierai de ne pas te foutre de ma geule !, svp ! :kaola:

drasche a écrit :

ajoute ADO dans tes propriétés de projet et tu auras fait un grand pas en avant. (j'espère que tu connais ADO)

Non je ne sais pas ce que c'est que ADO (peut-etre qqchose en rapport avec la réference Microsoft Active X Data Object mais je sais pas) j'ai cependant trouvé un exemple tout à l'heure d'excel qui parlé d'ADO(C:\Program Files\Microsoft Office\Office\Samples\SAMPLES.XLS), je le met ça peut aider qqu'un :

Code :

Sub RetrieveAccessData()
'' NOTE: Pour pouvoir utiliser cette sous-routine, la
'' bibliothèque suivante doit être référencée :
'''
''' Microsoft ActiveX Data Objects 2.0 Library
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Nsql As String, Njoin As String, Ncriteria As String
Dim NewBook As Workbook
Dim i As Integer
' Création de l'objet Connexion
Set conn = New ADODB.Connection
With conn
' Définition du fournisseur OleDB pour la connexion
.Provider = "Microsoft.JET.OLEDB.4.0"
' Ouverture d'une connexion vers Comptoir.mdb
.Open Application.Path & "\samples\Comptoir.mdb"
End With
Nsql = "SELECT DISTINCTROW Catégories.[Code catégorie], Produits.[Nom du produit], Produits.[Quantité par unité], Produits.[Prix unitaire] "
Njoin = "FROM Catégories INNER JOIN Produits ON Catégories.[Code catégorie] = Produits.[Code catégorie] "
Ncriteria = "WHERE ((([Produits].Indisponible)=No) AND (([Produits].[Unités en stock])>20));"
' Création d'un nouvel objet Recordset (jeu d'enregistrement)
Set rst = New ADODB.Recordset
With rst
' Connexion du jeu d'engistrement à la connexion ouverte précédemment
.ActiveConnection = conn
' Récupération de tous les enregistrements retournés par la requête
.Open Nsql & Njoin & Ncriteria, conn, adOpenDynamic, adLockBatchOptimistic
End With
' Ajout d'une nouvelle feuille de calcul à ce classeur
Set NewBook = Workbooks.Add
' Récupération des noms de champs, et stockage de ces noms dans la feuille de calcul
For i = 0 To rst.Fields.Count - 1
NewBook.Sheets(1).Range("a1" ).Offset(0, i).Value = rst.Fields(i).Name
Next i
' Copie du jeu d'enregistrement vers la nouvelle feuille de calcul
NewBook.Sheets(1).Range("a2" ).CopyFromRecordset rst
' Fermeture du jeu d'enregistrements
Set rst = Nothing
' Fermeture de la connexion
conn.Close
End Sub

Merci drasche, ton "ADO" confirme mon exemple.
:jap:

Message édité par prog1001 le 01-06-2004 à 19:55:35

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Ouvrir une base de données par le code ?

Sujets relatifs
[ ocaml ] - problème pour charger un fichier de données	un même code sur toutes les pages
Recup. de données avec un formulaire puis traitement avec Perl	Programme pour faire du C++ (code + design)
Je cherche le code de __FUNCTION__	VBA pour les nuls
Recherche info sur les lecteurs de code barre	Sources Access/VBA ?
[JSP] Passer des données UTF-8 par formulaire	[ASP] ouvrir Word et non IE
Plus de sujets relatifs à : [VBA] Ouvrir une base de données par le code ?

Page générée en 0.047 secondes