REQUETES SQL A CHOIX MULTIPLES

Bonjour à tous, je suis bloqué depuis pas mal de temps malgré de nombreuses recherches sur : comment "auto-écrire" des requêtes sql en fonction des choix de l'utilisateur.
En fait, dans un formulaire, je souhaiterais que l'utilisateur puisse faire des extractions en fonction des champs(ou critères) qu'il choisit. Et en fonction des champs choisis, la requête sql s'auto-écrit pour ensuite remplir le datagridview en cliquant sur le bouton recherche.
J'ai définit la requête de base : requete = "SELECT * FROM Affaire " ; ensuite si l'utilisateur choisit le champ "Nom" pour extraire les noms des clients et les afficher ds le datagridview en fonction du critère qu'il rentrera dans le textbox (nom), j'aimerais que la requête s'auto-écrit de la façon suivante : requete = "SELECT * FROM Affaire WHERE AND Nom like" & "'" & nom & "'".

Merci pour votre aide, j'espère que j'ai été clair; sinon j'expliquerais plus en détails.

Nico

Salut,

Moi je ferais comme cela(à essayer) :

Option Explicit

Dim MyTypeSql1 As String
Dim MyTypeSql2 As String
Dim MyTypeSql3 As String
Dim Msg As String
Dim Requete As String

Private Sub Valider_Click()

If StrConv(Text1.Text, vbProperCase) = "Nom" Then
   Requete = MyTypeSql1
ElseIf StrConv(Text1.Text, vbProperCase) = "Prenom" Or StrConv(Text1.Text, vbProperCase) = "Prénom" Then
  Requete = MyTypeSql2
ElseIf StrConv(Text1.Text, vbProperCase) = "Age" Then
  Requete = MyTypeSql3
Else
  Msg = "Choix incorrect ! " & vbCrLf & _
             "Choix possible : " & vbCrLf & _
             " - Nom " & vbCrLf & _
             " - Prenom " & vbCrLf & _
             " - Age " & vbCrLf & vbCrLf

   MsgBox Msg
   Text1.Text = vbNullString
   Text1.SetFocus
   Exit Sub
  
End If

End Sub

Private Sub Form_Load()

MyTypeSql1 = "SELECT * FROM Affaire WHERE AND Nom like" & "'" & Text1.Text & "'"
MyTypeSql2 = "SELECT * FROM Affaire WHERE AND Prenom like" & "'" & Text1.Text & "'"
MyTypeSql3 = "SELECT * FROM Affaire WHERE AND Age like" & "'" & Text1.Text & "'"

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Merci pour ta réponse rapide, mais en fait j'ai du mal m'expliquer.
Les critères de choix pour filtrer la base de données sont écris par l'utilisateur dans un des champs du datagridview1 suivant :

Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Nom, Me.Prenom, Me.Ville})

Me .DataGridView2.Rows.Add() 'j'ajoute une ligne pour pouvoir saisir les critères de choix

Ensuite l'utilisateur rempli, soit le champ nom, prenom et/ou ville. Il clique sur bouton "Recherche" et dessous un datagridview2 se remplit suivant la requête. Pour savoir quels champs ont été rempli je fais :

PrivateSub Recherche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Recherche.Click
Dim requete, table AsString
Dim nom, prenom, ville As String
'attribution des variables string en fonction de champs du datagridview1
nom = Me.DataGridView1.Item("Nom", 0).Value
prenom = Me.DataGridView1.Item("Prenom", 0).Value
ville = Me.DataGridView1.Item("Ville", 0).Value

'si aucun champ n'est rempli, on affiche toutes les données de la base dans datagridview2

If nom IsNothingAnd prenom IsNothingAnd ville IsNothing  Then
requete = "SELECT * FROM Affaire"
table = "Affaire"
se_connecter(requete, table)

Else
If nom IsNotNothingThen
If prenom IsNotNothingThen
requete = "SELECT * FROM Affaire WHERE Nom like" & "'" & nom & "' AND ""WHERE Prenom like" & "'" & prenom & "'"
EndIf
requete = "SELECT * FROM Affaire WHERE Nom like" & "'" & nom & "'"
EndIf

If prenom IsNotNothingThen
If nom IsNotNothingThen
requete = "SELECT * FROM Affaire WHERE Nom like" & "'" & nom & "' AND ""WHERE Prenom like" & "'" & prenom & "'"
EndIf
requete = "SELECT * FROM Affaire WHERE Prenom like" & "'" & prenom & "'"
EndIf
table = "Affaire"
se_connecter(requete.ToString, table)
EndIf
End Sub

PrivateSub se_connecter(ByVal requete AsString, ByVal table AsString)
Dimbase, cheminAsString
'Chemin d'accès à la b.d. située dans le dossier bin
'chemin = Application.StartupPath & "\proprietaires.mdb"
chemin ="K:\CltAccess.mdb"
base ="provider=microsoft.jet.oledb.4.0;data source=" + chemin
DimconnexionAsOleDbConnection = NewOleDbConnection(base)
connexion.Open()
'Lien entre la base et la requête
DimLiaisonAsNew OleDbDataAdapter(requete, base)
DimMemoireAsNew DataSet()
'Charge la table en mémoire
Liaison.Fill(Memoire, table)
DimVue AsNewDataView(Memoire.Tables(table))
DataGridView2.DataSource = Vue
connexion.Close()
EndSub

Il s'agit juste d'un exemple pour 2 champs, mais le pb c'est que j'en ai au moins 25. Donc les possibilités sont énormes. Y-a-t-il un moyen pour faire + simple et prendre en compte les champs null ?
Merci
Nico

Bon ben je m'en sors pas, voilà un aperçu pour essayer d'avoir toutes les possibilités (j'aimerais trouver comment faire pour automatiser les requêtes) : (j'ai remplacé le nom des champs par les numéro 1,2,3,4..... pour mettre dans le forum)

' tous les champs vides
If 1 = NothingAnd 2 = NothingAnd 3 = NothingAnd 4 = NothingAnd 5 = NothingAnd _
6 = NothingAnd 7 = NothingAnd 8 = NothingAnd 9 = NothingAnd 10 IsNothingAnd _
11 IsNothingAnd 12 IsNothingAnd 13 IsNothingAnd 14 IsNothingAnd 15 IsNothingAnd _
16 IsNothingAnd 17 IsNothingAnd 18 IsNothingAnd 19 IsNothingAnd 20 IsNothingAnd _
21 IsNothingAnd 22 IsNothingAnd 23 IsNothingAnd 24 IsNothingAnd 25 IsNothingThen
requete = "SELECT * FROM Client"
table = "Client"
se_connecter(requete, table)
EndIf
' champ 1 rempli et les autres vides
IfNot 1.ToString = NothingThen
If 2 = NothingAnd 3 = NothingAnd 4 = NothingAnd 5 = NothingAnd _
6 = NothingAnd 7 = NothingAnd 8 = NothingAnd 9 = NothingAnd 10 IsNothingAnd _
11 IsNothingAnd 12 IsNothingAnd 13 IsNothingAnd 14 IsNothingAnd 15 IsNothingAnd _
16 IsNothingAnd 17 IsNothingAnd 18 IsNothingAnd 19 IsNothingAnd 20 IsNothingAnd _
21 IsNothingAnd 22 IsNothingAnd 23 IsNothingAnd 24 IsNothingAnd 25 IsNothingThen
requete = "SELECT * FROM Client WHERE 1 IN (" & 1 & ") "
EndIf
EndIf
' champ 2 rempli et les autres vides
IfNot 2.ToString = NothingThen
If 1 = NothingAnd 3 = NothingAnd 4 = NothingAnd 5 = NothingAnd _
6 = NothingAnd 7 = NothingAnd 8 = NothingAnd 9 = NothingAnd 10 IsNothingAnd _
11 IsNothingAnd 12 IsNothingAnd 13 IsNothingAnd 14 IsNothingAnd 15 IsNothingAnd _
16 IsNothingAnd 17 IsNothingAnd 18 IsNothingAnd 19 IsNothingAnd 20 IsNothingAnd _
21 IsNothingAnd 22 IsNothingAnd 23 IsNothingAnd 24 IsNothingAnd 25 IsNothingThen
requete = "SELECT * FROM Client WHERE 2 IN (" & 2 & ") "
EndIf
EndIf

table ="Client"
se_connecter(requete, table)

Vous voyez, c'est indigeste et vraiment pas pro !!
Au secours !!!!

Toujours pas d'infos complémentaires ?

Je pense qu'il me faudrait en fait une "requête dynamique" dont le sql texte s'auto rempli en fonction des "champs critères" qui sont différents de Nothing.

J'ai vraiment besoin d'aide....

Merci