1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim MaRequeteSQL As String = Nothing
Dim MonInputBox as InputBox ' ou As New je sais pas
For i As Integer = 1 To 5
If MaRequeteSQL = Nothing Then
'Si la chaine est vide on lui met une instruction particuliére
MonInputBox.Show
' et le reste j'ais pas le temps de chercher je débauche
' mais récupére de String que tu a rentré dans on InputBox et c'est bon
MaRequeteSQL = "where (champ1 like % var)"
Else
'Sinon on ajoute les autres colonnes
'Pareil Ici tu appel ton InputBox
MaRequeteSQL = MaRequeteSQL & "or (champ" & i & " like %var) "
End If
Next |