fandy_pskp wrote:
>Terima kasih atas bantuan rekan-rekan.
>saya sudah bisa menampilkan list yang ada di database.
>Namun ada yang bingung lagi nih.
>
>Sebelumnya aku beritahu sebelumnya, itu semua aku udah connect via
>ADODC. aku tidak pakai program tapi pakai component ADODC yang
>namanya ADODC1
>
>Program Database = SQL Server
>Programnya = VB6
>
>Nama database = Kartu
>Nama tabel = daerah
>isi dari tabel tsb :
> ID Daerah
> 01 Jakarta
> 02 Bandung
> 03 Semarang
> 04 Jogjakarta
> 05 Bali
>
>lalu pada VB ada sebuah combo box yang berfungsi untuk menampilkan
>semua yang ada pada field ID. (jadi begitu di click pada combo box
>maka tampil 01, 02, 03, 04, 05).
>
>Sebelumnya, makasih atas tanggapannya
>
>Tolong saya yaaaa.......
>
>
Assalamualaikum,
'* Place on a form a combo box and a command button
coding bisa ditaruh di form loader atau dimana terserah anda :
Asumsi : sudah ada koneksi database dengan adodc, connectiontype
=adcmdtext,recordsource = "Select * from namaTable", adodc1.refresh
With Me
.Combo1.Clear
End With
If adodc1.recordset.bof and adodc1.recordset.eof then
Exit Sub
End If
Do While Not adodc1.recordset.EOF
If Not IsNull(Not adodc1.recordset.fields("nama_field")) Then
Combo1.AddItem adodc1.recordset.fields("nama_field")
End If
adodc1.recordset..MoveNext
Loop
adodc1.recordset.close
If Combo1.ListCount > 0 Then
Combo1.ListIndex = 0
End If
Best regards,
suwanto
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
