lo buka database dulu,
singkatnya gini
misal mau tampilin master unit barang
cmd.CommandText="select unitname from unit order by unitname"
cmd.CommandType= addCmdText
set rs=cmd.Execute
do while not rs.eof
combo1.addItem =rs("unitname")
rs.MoveNext
loop
rs.close
conn.close
itu pada waktu form load jadi hanya sekali add.
-Andrey Lebel-
Ade Aan Wirama <[EMAIL PROTECTED]> wrote:
Dear Cah Bagoes dan rekan2 yang lain,
sekedar saran:
1. Jangan isi data pada combo box pada saat method
change / click, gunakan
form_load, jadi hanya sekali panggil saja
2. Kalo sekedar data informasi tanpa ada perubahan
data gunakan
adOpenForwardOnly, adLockReadOnly daripada
adopenstatic, adlockpessimistic
3. Kalo misalnya yang ditampilkan hanya nama saja,
misal nama customer,
gunakan perintah "select fieldnama from pelanggan",
jangan seluruh field.
4. Untuk aplikasi kelas enterprise, saya rasa agak
riskan menggunakan combo
box untuk menampilkan nama pelanggan, nama stok, dll
yang memiliki jumlah
data besar. Umumnya combo box hanya digunakan untuk
menampilkan data2 yang
sudah pasti dan sedikit/jarang berubah seperti, tipe
mobil, tipe stok, dll.
just sharing...
Best Regards,
Ade Aan Wirama
----- Original Message -----
From: "cahbagoes_tenan" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, April 24, 2007 1:19 PM
Subject: [indoprog-vb] Re: cara isi DataCombo dengan
field dari acces pake
VB
--- In [email protected], wijdan ibn masood
<[EMAIL PROTECTED]> wrote:
>
> Gmn cara isi DataCombo dengan field dari tabel
menggunakan adodc.
Database pake ms acces.
> makasih.
>
>
> ---------------------------------
> Ahhh...imagining that irresistible "new car" smell?
> Check outnew cars at Yahoo! Autos.
>
> wah seperti biasa aja mas, misalkan menggunakan data
combo, pilih
event yang digunakan misalkan change/click dll terus
pilih data/field
dari database yang dininkan dengan perintah query.
Contoh:
Private Sub Combodata1_Change()
If con.State = 1 Then con.Close
konek
Rec2.Open "select * from Pelanggan", con,
adOpenStatic,
adLockPessimistic
With Rec2
.MoveFirst
While Not Rec2.EOF
Combodata1.AddItem Rec2.Fields(3)
.MoveNext
Wend
.MoveLast
End With
Rec2.Close
con.Close
End Sub
>
konsepnya sih sama mo pakai database manapun, dan saya
sdh nyoba
beberapa database, dan semuanya jalan,selamat
mencoba.....kalau masih
ada kesalahan mungkin temen bisa mengkoreksinya
makasih
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
