VBA - MySQL

Résolu
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 - 1 avril 2014 à 17:07
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 -
Bonjour,

J'aimerais à l'aide d'un bouton exécuter une macro VBA qui a son tour exécute une requête SQL (en se connectant à la base ) et m'affiche le résultat de la requête sur mon tableau excel.

La requête est un (SELECT * from) basique

Merci de me dire dans quel Module, Feuille ou Workbook je dois placé les code !



Merci

Cordialement,

2 réponses

Réponse 1 / 2
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 1
5 avril 2014 à 19:29
please !!!!
0
Réponse 2 / 2
f894009 Messages postés 17277 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 juillet 2025 1 715
6 avril 2014 à 11:47
Bonjour,

avez-vous un connecteur pour mysql, si non en telecharger un.

chaine de connexion a mysql: adaptez le numero du connecteur si pas 5-1

https://www.connectionstrings.com/mysql-connector-odbc-5-1/

ensuite nous verrons
0
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 1
7 avril 2014 à 11:02
Au fait là j'ai fini par écrire une macro + une fonction toujours en VBA pour réaliser la requête et l'afficher sur excel :)) sans connecteur vu que le fichier excel et sur le meme serveur où se trouve la BDD
Maintenant mon problème et que ça m affiche aussi l'entête des colonne !!
comment faire pour afficher le résultat de la requête sans l'entête des colonnes ?

Merci bcp
cordialement,
0
f894009 Messages postés 17277 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 juillet 2025 1 715
7 avril 2014 à 11:52
Bonjour,

sans connecteur vu que le fichier excel ---->vous arrivez a passer une requete sans etre connecter ????
0
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 1
7 avril 2014 à 12:57
j'utilise une fonction que j 'appel dans ma macro (connecteur odbc) pour me connecter :
Public Function GetConnexion() As ADODB.Connection
Dim connexion As New ADODB.Connection
connexion.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=xxxx;Database=xx;User=xx; Password=xxx;Option=3;"
connexion.Open
Set GetConnexion = connexion
End Function
0
f894009 Messages postés 17277 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 juillet 2025 1 715
7 avril 2014 à 13:50
Re,

le résultat de la requête sans l'entête des colonnes montrez voir votre requete, parce que la vous etes de plus en plus etonnant: pas de connecteur alors que vous en utilisez un donc ....
0
JANGO5 Messages postés 92 Date d'inscription mardi 18 juin 2013 Statut Membre Dernière intervention 13 août 2014 1
7 avril 2014 à 16:01
Oui désolé c'est bon je l'ai fait

Merci en tt cas

Cordialement
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
MySQL error in file: /engine/classes/mysql.php at line 53
mela30100 -
jordane45 -

Bonjour,
impossible pour moi d'acceder à mon site de téléchargement préféré: le message d'erreur est le suivant : MySQL error in file: /engine/classes/mysql.php at line 53. pour le reste de la navigatio tout est ok ! le soucis existe aussi bien sur edge, firefox et opéra.
je précise que je suis super novice sur le sujet ... merci !

3 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

10 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse