Re: [Programmer-VB] Mau Tanya nih pada senior VB

[JemyX99]

Coba jwb nich.....   Asumsi Connection Pake ADODB and dah OK.....     saat di Form Load panggil perintah sbb :     Private Sub Form_Load()         FillCBO "SELECT * FROM  [Propinsi]", ComboBox1     ComboBox2.Clear End Sub     Private Sub ComboBox1_Click()         lblPropinsi.Caption=Getrec("SELECT [Propinsi] FROM [Propinsi] WHERE [Kode]='" & trim(ComboBox1.Text) & "'"          FillCBO "SELECT * FROM  [Daerah] WHERE[Kode]='" & trim(ComboBox1.Text) & "'" & , ComboBox2   End Sub   Private Sub ComboBox2_Click()         lblDaerah.Caption=Getrec("SELECT [Daerah] FROM [Daerah] WHERE [ID]='" & trim(ComboBox2.Text) & "'"       End Sub             'Di Letakan Di Module..... Public Function FillCBO(ByVal str As String, ByVal cbo As ComboBox) Dim RS As ADODB.Recordset       Set RS = New ADODB.Recordset             RS.Open str, cnDB, adOpenStatic, adLockOptimistic         If Not RS.EOF Then         RS.MoveFirst     End If         cbo.Clear     Do While Not RS.EOF         On Error Resume Next         cbo.AddItem RS(0)         RS.MoveNext         Loop             Set RS = Nothing     cnDB.Close     End Function     Public Function GetRec(ByVal SQL As String) As Variant Dim RS As ADODB.Recordset       Set RS = New ADODB.Recordset         RS.Open SQL, cnDB, adOpenStatic, adLockPessimistic         If Not (RS.EOF) Then         GetRec = RS(0)     Else         GetRec = 0     End If         Set RS = Nothing    End Function     sory kalo jwbannya ribet, soal nya aku ga suka pake komponen adodc, dan ini pake ComboBox Biasa bkn DataCombo.   Para Senior tolong CMIIW (maklum NewBie)   Cheers, Jemy ----- Original Message ----- From: Fandy_PSKP To: Programmer-VB@yahoogroups.com Sent: Tuesday, July 26, 2005 1:48 PM Subject: [Programmer-VB] Mau Tanya nih pada senior VB Sebelumnya terima kasih atas tanggapan pada pertanyaan sebelum. semuanya sudah berjalan, tapi ada beberapa yang kurang.....   Tabel Propinsi Kode          Propinsi 01              Jakarta 02              Jawa Barat 03              Jawa Tengah       Tabel Daerah Kode      Id        Daerah 01         01       Jakarta Pusat 01         02       Jakarta Barat 01         03       Jakarta Selatan 01         04       Jakarta Utara 01         05       Jakarta Timur   02         01       Bandung 02         02       Cirebon 02         03       Garut   03         01       Jogyakarta 03         02       Semarang 03         03       Solo     Untuk koneksi :   Tabel Propinsi saya pakai ADODC1                           Tabel Daerah saya pakai  ADODC2   Pada form saya punya DataCombo1 untuk menampilkan isi Propinsi pada Tabel Propinsi,                                  DataCombo2 untuk menampilkan isi Daerah pada Tabel Daerah.   yang jadi pertanyaan saya : Bila saya belum memilih DataCombo1 maka isi pada DataCombo2 tidak ditampilkan   Bila saya memilih Jakarta pada DataCombo1 maka   isi pada DataCombo2       hanya       Jakarta Pusat, Jakarta Barat,  Jakarta Selatan, Jakarta Utara, Jakarta Timur   Bila saya memilih Jawa Barat pada DataCombo1 maka    isi pada DataCombo2      hanya       Bandung, Cirebon, Garut   Bila saya memilih Jawa Tengah pada DataCombo1 maka   isi pada DataCombo2     hanya      Jogyakarta,  Semarang, Solo   Itu dulu deh pertanyaannya, Sori kalo nulisnya kebanyakan sehingga capek ngebacanya.  Sebelumnya saya ucapkan terimakasih atas jawabannya dan para senior......     Nb. Tolong list Programnya yaaa......       Sori, banyak permintaan.       Start your day with Yahoo! - make it your home page Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.