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

Marsh Posté le 01-06-2004 à 13:16:03

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.

Reply

Marsh Posté le 01-06-2004 à 13:16:03

Reply

Marsh Posté le 01-06-2004 à 13:40:05

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

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

Reply

Marsh Posté le 01-06-2004 à 14:09:20

[:rofl]
A+,

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

Reply

Marsh Posté le 01-06-2004 à 14:39:44

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)

Reply

Marsh Posté le 01-06-2004 à 19:54:30

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

Reply

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

Sujets relatifs:

Leave a Replay