XL 2019 ADODB Concaténation des variables

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

Je voudrais concaténer les variables dans ma clé. J'ai des doutes sur la ligne prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ".
En faite, dans la colonne cd_produit j'ai des valeurs caractères comme T345, la variable strQ est aussi en caractères. En concaténant ces valeurs (T345/L123, avec "/") je voudrais chercher la même ligne avec la même valeur dans la table cd_protocole.

Voici une partie de mon code :

VB:
Public Sub INFO_PROTO1(ByRef strQ As String)

    Dim RECSET As New ADODB.Recordset, numero_de_police
    
    numero_de_police = Worksheets("1 - Feuille de Suivi Commercial").Range("C6").Value
    
    If Len(numero_de_police) > 0 Then
        RECSET.Open " select proto.b_perf_cma as b_perf_cma from db_dossier sousc,db_produit prod, db_protocole proto" & _
            " where sousc.no_police = '" & numero_de_police & "' and sousc.cd_dossier = 'SOUSC' and " & _
            " sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') and sousc.is_produit = prod.is_produit and prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ", cnn_Medt, adOpenDynamic, adLockBatchOptimistic
Merci beaucoup de votre aide
 

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly