Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 700 fois - Téléchargée 38 fois
Dim strSQL 'la requète SQL Dim blnWhereAdded 'True (1) si on a déjà ajouté la clause WHERE Dim strField1 'la valeur du 1er champ... De type string Dim intField2 'la valeur du 2ième champ... De type integer Dim strField3 'la valeur du 3ième champ... De type string ' ' Définissez votre connexion et initialisez les trois variables strFieldx ' blnWhereAdded = False strSql = "SELECT * FROM Ma_Table" If strField1 <> "" Then If Not blnWhereAdded Then strSQL = strSQL & " WHERE " blnWhereAdded = True Else strSQL = strSQL & " AND " End If strSQL = strSQL & "Champ1 LIKE '%" & strField1 &"%'" End If If intField2 <> "" Then If Not blnWhereAdded Then strSQL = strSQL & " WHERE " blnWhereAdded = True Else strSQL = strSQL & " AND " End If strSQL = strSQL & "Champ2 = " & intField2 End If If strField3 <> "" Then If Not blnWhereAdded Then strSQL = strSQL & " WHERE " blnWhereAdded = True Else strSQL = strSQL & " AND " End If strSQL = strSQL & "Champ3 LIKE '%" & strField3 &"%'" End If ' 'Exécutez la requête strSQL puis affichez les résultats '
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.