Terima kasih rekan-rekan semua, atas saran dan bantuannya.. sekarang sudah
bisa
IBNU MUAKHORI
Customer Relationship Management
PT Asuransi Jiwa Manulife Indonesia
Phone : +62-21-23559966 - EXT. 1821
Fax : +62-21-3911393
Mobile : 021-70889063
[EMAIL PROTECTED]
ur.com To:
[email protected]
Sent by: cc: (bcc: Ibnu
Muakhori/Asia Division/Manulife)
[EMAIL PROTECTED] Subject: Re: [indoprog-vb]
Tampilkan Tabel dlm combo box
groups.com
03/02/2007 11:59
AM
Please respond to
indoprog-vb
hello sdr.ibnu,
ini sekedar Tips sederhana dari saya mungkin bisa membantu ... :-)
Pertanyaan anda sbb :
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
Jawab :
mungkin maksud anda disini yg user browse Tabel yg ada di database lewat
kontrol Listbox / ComboBox untuk lihat daftar nama2 tabelnya ya ? Jika
benar seperti ini maksudnya , saran saya anda coba buat 1 tabel lagi yg
menampung Nama2 Tabel yg di database anda misalkan Nama Tabelnya
"TBL_DaftarTabel" Dgn Field "NO | NamaTabel " isikan semua nama tabel yg
ada didatabase pada Field "NamaTabel".
selanjutnya buat 1 bh Form baru dan tanamkan kontrol "1bh ListBox" atau
"ComboBox" dan "1 bh Textbox" pd form tsb ,coba code dibawah ini untuk
menampilkan isi Tabel "TBL_DaftarTabel" baru tadi.
'----code dgn kontrol ListBox
Private sub From_load ( )
dim strCon as ADODB.connection
dim strRs as ADODB.recordset
dim strString as string
strString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Persist Security Info=False; " & _
"Data Source=C:\DatabaseKu\NamaDatabase.mdb"
set strCon= new ADODB.Connection
set strRs = new ADODB.recordset
strCon.Open strString
strRs.ActiveConnection = strCon
strRs.Open "TBL_DaftarTabel"
'---memasukan data kedalam object listbox
Do While Not strRs.EOF
List1.AddItem strRs!NamaTabel
strRs.MoveNext
Loop
'---Menutup recordset dan Koneksi
set strRs = Nothing
set strCon=Nothing
End Sub
'---event prosedure click Listbox yg berlaku pada Textbox
Private Sub List1_Click( )
Text1.Text = List1.Text
End Sub
2. semua tabel yg ada di database access (mdb) terpilih akan ditampilkan
dalam combo box.
Jawab :
Coba dgn Kode ini ....
'----code dgn kontrol ComboBox
Private sub From_load ( )
dim strCon as ADODB.connection
dim strRs as ADODB.recordset
dim strString as string
strString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Persist Security Info=False; " & _
"Data Source=C:\DatabaseKu\NamaDatabase.mdb"
set strCon= new ADODB.Connection
set strRs = new ADODB.recordset
strCon.Open strString
strRs.ActiveConnection = strCon
strRs.Open "TBL_DaftarTabel"
'---memasukan data kedalam object ComboBox
If strRs.RecordCount > 0 then
.MoveFirst
while not.EOF
comboBox1.AddItem strRs!NamaTabel
strRs.MoveNext
wend
end if
'---Menutup recordset dan Koneksi
set strRs = Nothing
set strCon=Nothing
End sub
'---event prosedure click combox yg berlaku pada Textbox
Private Sub comboBox1_Change( )
Textbox1.Text = comboBox1.Text
End Sub
Tips Saran & Latihan !! :
Coba anda latihan ya :-D
Dalam Form anda itu ditambah komponen 1 bh DataGrid lalu anda
deklarasikan satu prosedure lagi ,jadi setiap kali anda memilih data dari
ComboBox atau ListBox yg menampilakn daftar nama Tabel anda dalam database
itu kan otomatis masuk ke dalam TextBox1 tadi ya ... anda buat Prosedure
Select Case sehinggga setiap kali anda memilih daftar nama tabel tsb akan
ditampilkan semua isi field Tabel tsb ke dalam komponen Datagrid.
.....Selamat mencoba ..sukses !
Regards,
Freddy.T
EDP Representatif
PT.Bukit Makmur Mandiri Utama
email :
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
Sent by: [email protected]
03/02/2007 09:58 AM
Please respond to
[email protected]
To
[email protected]
cc
Subject
Re: [indoprog-vb] Tampilkan Tabel dlm combo box
Terima kasih Pak Martin atas responnya, tapi yg saya inginkan bukan
menampilkan field dari suatu tabel tapi tabel - tabel dari database mdb
(kemungkinan bisa lebih dari satu tabel dalam satu file database mdb)
Salam,
IBNU MUAKHORI
Customer Relationship Management
PT Asuransi Jiwa Manulife Indonesia
Phone : +62-21-23559966 - EXT. 1821
Fax : +62-21-3911393
Mobile : 021-70889063
martin daniel
<[EMAIL PROTECTED] To: [email protected]
om> cc: (bcc: Ibnu Muakhori/Asia Division/Manulife)
Sent by: Subject: Re: [indoprog-vb] Tampilkan Tabel dlm combo box
[EMAIL PROTECTED]
groups.com
03/02/2007 08:55
AM
Please respond to
indoprog-vb
saya bukan pakar tapi kira2 gini..
jangan lupa pk componen ado data control 6, terus setelah buka form pasang
adonya di situ terus hapus lagi, ga apa2, kl ga nanti ga baca adodb nya...
pk adodc juga bisa sih...
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'nama data base database.mdb'
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\database.mdb"
Combo1.Clear
'nama field yang mau ditampilin dari tabel(tabel)'
Set rs = New ADODB.Recordset
rs.Open "select distinct nama from tabel", cn
'nama combo combo1'
Do While Not rs.EOF
Combo1.AddItem rs!nama
rs.MoveNext
Loop
rs.Close
End Sub
kl belom bisa nanti tanya yang bener2 pakar.
thanx!!!
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
__________________________________________________________
No need to miss a message. Get email on-the-go
with Yahoo! Mail for Mobile. Get started.
http://mobile.yahoo.com/mail
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
