XL 2019 ADODB Concaténation des variables

[VBA_dev_Anne_Marie]

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 :

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

 

[dysorthographie]

Bonsoir,
A mon avis on est plus comme ça !

prod.cd_produit & ' / '  &  '" & strQ &"' =proto.cd_protocole "

Le caractère de concaténation dépend également du type de base de données

 

[VBA_dev_Anne_Marie]

Bonsoir,
A mon avis on est plus comme ça !

prod.cd_produit & ' / '  &  '" & strQ &"' =proto.cd_protocole "

Le caractère de concaténation dépend également du type de base de données

Merci beaucoup !