Bonjour,
je voudrai envoyer une requete en SQL de type SELECT avec VBA.
J'ai créé dans un classeur connecté a la BDD un UserForm, code:
Comment arriver a envoyer la requete et a récupérer les résultats dans la feuille1 du classeur?
Mecri pour votre aide
A+
je voudrai envoyer une requete en SQL de type SELECT avec VBA.
J'ai créé dans un classeur connecté a la BDD un UserForm, code:
Code:
Private Sub CommandButton1_Click()
Dim NumCde As String
Dim Requete As String
NumCde = TextBox1.Value
Requete = "select ((T2.'GEST' || TO_CHAR(TRUNC(T2.'NU_CDE' ) )) || TO_CHAR(TRUNC(T2.'LIG_CDE' ) )) , T2.'MT_ENGAGE' - T3.'MT_LIQ' , T3.'MT_LIQ' , T2.'MT_ENGAGE' , T1.'NU_LIQ' , T2.'QTE_CDEE' , T2.'LIBELLE_LIGNE_CDE' , T1.'LIG_CDE' , T1.'NU_CDE' , T1.'GEST' , T2.'QTE_RECUE' from ('LIG_COMMANDE' T2 LEFT OUTER JOIN ('RECEP_CDE' T3 LEFT OUTER JOIN 'MANDATS_DE_COMMANDES' T1 on T3.'EH'=T1.'EH' and T3.'GEST'=T1.'GEST' and T3.'NU_CDE'=T1.'NU_CDE' and T3.'LIG_CDE'=T1.'LIG_CDE' and T3.'NU_RECEP'=T1.'NU_RECEP' and T3.'NUM_LIQ'=T1.'NU_LIQ') on T2.'EH'=T3.'EH' and T2.'GEST'=T3.'GEST' and T2.'NU_CDE'=T3.'NU_CDE' and T2.'LIG_CDE'=T3.'LIG_CDE') where T1.'NU_CDE'=" & NumCde _
& " order by 'LIG_CDE' asc"
'MsgBox (Requete)
End Sub
Mecri pour votre aide
A+