Erweiterte Suche vb.net

Question

Ich habe erweiterte Suche nach das enthält combobox1, combobox2, combobox3 Ich suchte nach einer Möglichkeit, Suche in der Datenbank zu machen. Wenn ich combobox1 auswähle und nicht combobox2 und combobox3 auswähle und combobox2 und nicht combobox1 und combobox3 auch gleich in combobox3 auswähle und alle comboboxs auswähle habe ich keine Lösung gefunden, muss ich mehr als SqlCommand für jeden Fall machen? oder gibt es eine einfache Möglichkeit, dies zu tun, habe ich versucht, SqlCommand

Public Sub Load_Main(ByVal projectid As Integer, ByVal pdocid As Integer, ByVal depid As Integer) 
    main_Datatable.Clear() 
    Dim cmd As New SqlCommand("select * from main where projectid=@projectid and pdocid=@pdocid and depid=@depid", DBConnection) 

    cmd.Parameters.Add("projectid", SqlDbType.Int).Value = projectid 
    cmd.Parameters.Add("pdocid", SqlDbType.Int).Value = pdocid 
    cmd.Parameters.Add("depid", SqlDbType.Int).Value = depid 
    DBConnection.Open() 
    main_Datatable.Load(cmd.ExecuteReader) 
    DBConnection.Close() 
    cmd = Nothing 

End Sub 

Load_Main(project_combo.SelectedValue, doc_combo.SelectedValue, Depart_combo.SelectedValue) 

zu machen, aber wenn ich nicht die anderen Combobox ausgewählt haben nur eine funktioniert nicht

Answer 1

ist eine Möglichkeit, es zu tun, ohne zu viel Code zu ändern, vorausgesetzt, der Wert 0 bedeutet, wurde nichts in dem Kombinationsfeld ausgewählt:

Public Sub Load_Main(ByVal projectid As Integer, ByVal pdocid As Integer, ByVal depid As Integer) 
    main_Datatable.Clear() 
    Dim query as string 
    query = "select * " & _ 
      "from main " & _ 
      "where projectid = ISNULL(NULLIF(@projectid, 0), projectid) " & _ 
      "and pdocid = ISNULL(NULLIF(@pdocid, 0), pdocid) " & _ 
      "and depid = ISNULL(NULLIF(@depid, 0), depid) " 
    Dim cmd As New SqlCommand(query, DBConnection) 

    cmd.Parameters.Add("projectid", SqlDbType.Int).Value = projectid 
    cmd.Parameters.Add("pdocid", SqlDbType.Int).Value = pdocid 
    cmd.Parameters.Add("depid", SqlDbType.Int).Value = depid 
    DBConnection.Open() 
    main_Datatable.Load(cmd.ExecuteReader) 
    DBConnection.Close() 
    cmd = Nothing 

End Sub 

Answer 2

Public Sub Load_Main(ByVal projectid As Integer, ByVal pdocid As Integer, ByVal depid As Integer) 
    main_Datatable.Clear() 
    Dim cmd As New SqlCommand("select * from main where (@projectid IS NULL OR projectid=@projectid) and (@pdocid IS NULL OR pdocid=@pdocid) and (@depid IS NULL OR depid=@depid)", DBConnection) 

    cmd.Parameters.Add("projectid", SqlDbType.Int).Value = If(projectid = 0, CObj(DBNull.Value), projectid) 
    cmd.Parameters.Add("pdocid", SqlDbType.Int).Value = If(pdocid = 0, CObj(DBNull.Value), pdocid) 
    cmd.Parameters.Add("depid", SqlDbType.Int).Value = If(depid = 0, CObj(DBNull.Value), depid) 
    DBConnection.Open() 
    main_Datatable.Load(cmd.ExecuteReader) 
    DBConnection.Close() 
    cmd = Nothing 

End Sub 

Wenn Sie einen Parametersatz dann auf null Es wird effektiv ignoriert, da es mit jedem Datensatz übereinstimmt. Da Ihre Werte als Ganzzahlen übergeben werden, setzen Sie sie auf 0 (oder einen anderen ganzzahligen Wert, der niemals wie -1 verwendet wird), wenn Sie möchten, dass er in Ihrer SQL-Klausel ignoriert wird.

Und Sie sollten stattdessen eine Using-Anweisung verwenden. Hier