Requete SQL en VBA avec Excel

Question

Bonjour,

Je voudrais récupérer la valeur d'une table MySQL dans une cellule excel

exemple:

Table MySQL : prenom

Id_Prenom       Prenom

1                        Pierre
2                        Jean
3                        Jacques


Dans la cellule "A1" je tape Id_Prenom => 2
et je reçois la valeur "Jean" dans la cellule "A2"

je voudrais pouvoir faire ça en VBA et si possible sans devoir passer par un formulaire
mais plutot exécuter la requette quand je sors de "A1" (fleche ou enter)


grand merci d'avance pour votre aide

Olivier

f894009 · Answer

Bonjour,

Avez-vous un code de connexion ???

code a adapter et a mettre dans VBA de la feuille de A1

'detection changement de valeur A1
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        strSQL = "SELECT * FROM prenom WHERE id ='" & Range("A1") & "'"
        
        'envoi requete SQL
        
        'retour: au moins une info
        If Not (nom_du_recordset.BOF = True And nom_du_recordset.EOF = True) Then
            Range("A2") = nom_du_recordset.Fields(" Prenom ").Value
        Else
            MsgBox "Pas de Prénom trouvé !!!!!!"
        End If
    End If
End Sub


A+

odoobe · Answer

merci pour ton aide 
c'est exactement ce qu'il me fallait

@+ 

Oli

Requete SQL en VBA avec Excel

2 réponses

Votre réponse

Discussions similaires

Newsletters