Mungkin cara yang akan saya share ada persamaan dengan yang disharing
oleh Martin, tapi dari jalur yang sedikit berbeda:
Setelah mengatur koneksi data dengan database (bisa via runtime
ataupun langsung mengaturnya di data control), coba input syntax ini
di bagian Form_Activate, (contoh kasus: 1 Tabel dengan 6 Field):
Private Sub Form_Activate()
Dim i As Integer
For i = 0 To 5
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next i
End Sub
--- In [email protected], martin daniel <[EMAIL PROTECTED]> wrote:
>
> kl yang mau ditampilin nama2 tabel...
> kl saya pk list tapi combo kan tinggal ganti doang...
>
> Sub tampilkantabel()
> Dim rstTabel As New ADODB.Recordset
>
> Set rstTabel = strCon.OpenSchema(adSchemaTables)
>
> lstTabel.Clear
> lstField.Clear
>
> Do Until rstTabel.EOF
> If rstTabel.Fields(3) = "TABLE" Then
> lstTabel.AddItem rstTabel.Fields(2)
> End If
> rstTabel.MoveNext
>
> Loop
>
> On Error Resume Next
>
> lstTabel.ListIndex = 0
> Set rstTabel = Nothing
>
> End Sub
>
> thanx!!!
> ----- Original Message ----
> From: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Thursday, March 1, 2007 4:34:51 PM
> Subject: [indoprog-vb] Tampilkan Tabel dlm combo box
>
>
> aloo para pakar vb,
> saya mau tanya gimana caranya menampilkan tabel-tabel yg ada di database
> access dengan combo box?
> alur program yg saya buat sbb:
> 1. User browse database access (mdb) disimpan dlm text box
> 2. semua tabel yg ada di database access (mdb) terpilih akan ditampilkan
> dalam combo box.
>
> Thx
> Ibnu Muakhori
>
> Customer Relationship Management
>
> PT Asuransi Jiwa Manulife Indonesia
>
> Phone : +62-21-23559966 - EXT. 1821
>
> Fax : +62-21-3911393
>
> Mobile : 021-70889063
> ----- Forwarded by Ibnu Muakhori/Asia Division/Manulife on
03/01/2007 04:31
> PM -----
>
> Ibnu Muakhori
> To: indoprog-vb@ yahoogroups. com
> 02/28/2007 10:58 cc:
> AM Subject: Re: [indoprog-vb] program Mesin penjawab(Document
> link: Ibnu Muakhori)
>
>
> Dear Vb'rs,
> Saya lagi belajar membuat program interaksi dengan perangkat telepon dan
> rencananya akan saya gunakan ke telepon dirumah. Apakah ada yg
pernah bikin
> program mesin penjawab telepon dg VB ? seperti kalau kita telepon ke
suatu
> perusahaan2x Kalau ada, boleh ga saya dikirimkan sourcenya... (japri)
>
> Terima kasih
> Ibnu Muakhori
>
> Customer Relationship Management
>
> PT Asuransi Jiwa Manulife Indonesia
>
> Phone : +62-21-23559966 - EXT. 1821
>
> Fax : +62-21-3911393
>
> Mobile : 021-70889063
>
>
>
>
>
>
>
____________________________________________________________________________________
> Do you Yahoo!?
> Everyone is raving about the all-new Yahoo! Mail beta.
> http://new.mail.yahoo.com
>
> [Non-text portions of this message have been removed]
>
