Select Distinct Item Dari 2 ComboBox VB6

Berikut ini adalah cara select distinct item dari 2 combobox dimana nanti hasilnya akan dimasukan ke combobox ke-3 di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form
2. Tambahkan 3 Combobox dan 2 Commandbutton.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.


          'Klik Command1 untuk melakukan penggabungan Combo1 dan Combo2.
          'Klik Command2 untuk melihat hasilnya urut di Combo3.

          Dim strData As String  'Ini untuk menampung seluruh data

          Private Sub Command1_Click()
            strData = "" 'Mula-mula masih kosong, selalu!

            'Ulangi sebanyak jumlah data di Combo1
            For i = 0 To Combo1.ListCount - 1
              'Tampung ke dalam variabel string, pisahkan dgn koma
              strData = strData & Combo1.List(i) & ","

            Next i
            'Tampilkan data yang sudah digabung dalam satu string
            MsgBox strData, vbInformation, "Data di Combo1"
            'Berikut ini untuk memeriksa/membandingkan antara data
            'yang sudah ditampung di variabel string dengan data

            'yang ada di Combo2 (yang akan digabung)
            For i = 0 To Combo2.ListCount - 1
              'Jika data/item di Combo2 tidak terdapat di dalam
              'variabel string tadi, tambahkan di bagian akhir

              'dari variabel string (= join)
              If InStr(1, strData, Combo2.List(i)) < 1 Then
                'Tampilkan data yang tidak ada di variabel string
                MsgBox Combo2.List(i), vbInformation, _

                       "Data di Combo2 yang tidak ada di Combo1"
                'Tambahkan di bagian akhir dari variabel string
                'dan dalam kasus ini, pisahkan dengan karakter koma
                strData = strData & Combo2.List(i) & ","
              End If

            Next i
            'Berikut ini untuk mengambil data yang sudah digabung
            'seluruhnya (ingat, menggabungkan di sini artinya
            'sama dengan join; yaitu menambahkan data yang belum

            'ada, serta mengabaikan data yang sudah ada (sama))
            'dan membuang tanda koma di ujung paling kanan-->
            'untuk memudahkan dalam pemisahan data di Combo3)
            If Right(strData, 1) = "," Then

              strData = Left(strData, Len(strData) - 1)
            End If
            'Berikut ini untuk menampilkan data seluruhnya yang
            'sudah berhasil digabung ke dalam variabel string
            MsgBox strData, vbInformation, _

                   "Data Hasil Gabung Combo1 dan Combo2"
          End Sub

          'Prosedur berikut untuk memisahkan data yang ada di dalam
          'variabel string hasil penggabungan ke dalam Combo3

          'Agar hasilnya urut di Combo3, jangan lupa set property
          'Sort milik Combo3 menjadi True saat "design-time"
          '(Karena property Sort bersifat Read-Only, maka dia hanya
          'dapat diset True saat "design-time". Jika Anda mengeset
          'saat "run-time", maka akan terjadi error run-time).

          '(lihat pada Form_Load bagian bawah)
          Private Sub Command2_Click()
            Dim i As Integer
            Dim arrData() As String

            arrData = Split(strData, ",")
            'Ulangi mulai batas bawah array sampai ke batas
            'atas array (untuk menampilkan data hasil penggabungan).
            For i = LBound(arrData) To UBound(arrData)

               MsgBox arrData(i), vbInformation, _
                      "Data Hasil Penggabungan di Combo3"
               Combo3.AddItem arrData(i)
            Next
            MsgBox "Klik Combo3 untuk melihat hasilnya secara urut!", _

                   vbInformation, "Hasil Gabung ada di Combo3"
          End Sub

          Private Sub Form_Load()

            'Berikut ini data yang ada di Combo1
            Combo1.Text = ""
            Combo1.AddItem "1"
            Combo1.AddItem "2"

            Combo1.AddItem "3"
            Combo1.AddItem "4"
            Combo1.AddItem "7"
            Combo1.AddItem "8"
            Combo1.Text = Combo1.List(0) 'Sorot data teratas

           
            'Berikut ini data yang ada di Combo2
            Combo2.Text = ""
            Combo2.AddItem "1"

            Combo2.AddItem "3"
            Combo2.AddItem "5"
            Combo2.AddItem "6"
            Combo2.AddItem "7"

            Combo2.AddItem "8"
            Combo2.Text = Combo2.List(0) 'Sorot data teratas
           
            'Sedangkan Combo3 mula-mula masih kosong,
            'dan akan dijadikan tempat untuk menggabung data.

            Combo3.Text = "" 'Tempat hasil penggabungan (Join)
            'Perintah di bawah akan menyebabkan error-run-time
            '(Can't assign to read-only property)
            'Combo3.Sorted = True '<-- ditutup, hanya bisa saat

                                  '    design-time saja!
          End Sub


Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module