Mencari data dengan beberapa kondisi dalam Visulal Basic

Pencarian data dalam pemoraman visual basic sering kali kita mengalami kesulitan karena bersifat statik atau hanya satu atau dua file saja yang bisa dilakukan pencarian, tapi pada kenyataannya kita pingin mencari data berdasarkan beberapa file dan kondisi. misalkan kita pingin mencari mahasiswa tahun angkatan = 2010 dengan IPK > 3.00 dan program studi=Informatika.

Dari permasalahan diatas kita akan analisa menjadi sebagai berikut

fields             kondisi    nilai          operator

angkatan           =          2010           and

IPK                >          3.00           and

Prodi              =          Informatika

dengan permasalahan tersebut kita akan merancang form sebagai berikut

          

Ket : CmbF : lokasi nama fields (Angkatan,IPK,Prodi dll)

      Cmbk : lokasi Kondisi(Like,=,>=,<=,>,dll)

      TxtC : lokasi Nilai yang dicari

      Cmb  : lokasi Operator (or, And)

tinggal copy dan paste saja source code dibawah ini

If TxtC(0).text = "" Or TxtC(1) = "" Or TxtC(2) = "" Or TxtC(3) = "" Then

    sql = sql

End If

If TxtC(0).text <> "" Then

    If CmbF(0) = "" Or CmbK(0).text = "" Or TxtC(0) = "" Then MsgBox "Inputan Belum Lengkap", vbOKOnly, "Warrning": Exit Sub

       If CmbK(0).text <> "Like" Then

            sql = sql & " and (" & CmbF(0) & " " & CmbK(0) & " '" & TxtC(0).text & "'"

       Else

            sql = sql & " and (" & CmbF(0) & " " & CmbK(0) & " '%" & TxtC(0).text & "%'"

       End If

End If

'If TxtC(1).text = "" And TxtC(2).text = "" And TxtC(3).text = "" Then sql = sql & ")"

If TxtC(1).text <> "" Then

    If CmbF(0) = "" Or CmbK(0).text = "" Or TxtC(0) = "" Or CmbO(0) = "" Or CmbF(1) = "" Or CmbK(1).text = "" Or TxtC(1) = "" Then

            MsgBox "Inputan Belum Lengkap", vbOKOnly, "Warrning": Exit Sub

        Else

        If CmbK(1).text <> "Like" Then

            sql = sql & CmbO(0) & "  " & CmbF(1) & " " & CmbK(1) & " '" & TxtC(1) & "' "

        ElseIf CmbK(1).text = "Like" Then

            sql = sql & CmbO(0) & " " & CmbF(1) & " " & CmbK(1) & " '%" & TxtC(1) & "%' "

        End If

    End If

End If

'If TxtC(2).text = "" And TxtC(3).text = "" Then sql = sql & ")"

If TxtC(2).text <> "" Then

    If CmbF(0) = "" Or CmbK(0).text = "" Or TxtC(0) = "" Or CmbO(0) = "" Or CmbF(1) = "" Or CmbK(1).text = "" Or TxtC(1) = "" Or CmbO(1) = "" Or CmbF(2) = "" Or CmbK(2).text = "" Or TxtC(2) = "" Then

            MsgBox "Inputan Belum Lengkap", vbOKOnly, "Warrning": Exit Sub

        Else

        If CmbK(2).text <> "Like" Then

            sql = sql & CmbO(1) & " " & CmbF(2) & " " & CmbK(2) & " '" & TxtC(2) & "' "

        Else

            sql = sql & CmbO(1) & " " & CmbF(2) & " " & CmbK(2) & " '%" & TxtC(2) & "%' "

        End If

    End If

End If

semoga dengan adanya source code ini dapat membantu pencarian yang lebih banyak lagi dan bisa dikembangkan sesuai dengan selera anda 

selamat mencoba..................