hi...
itu disebabkan karena pada event on_click nya combobox, tidak diikuti dengan perubahan posisi record pointer pada recordset.

tambahkan code berikut :

Private Sub cmb_Click()
  rs.move cmb.listindex
End Sub

atau

dim kode as string

kode=left(cmb.text,instr(1, cmb.text, " - ", vbtextcompare))

(code dibawah oleh rekan p3, saya ubah sedikit dari rs!kode jadi kode)

INSERT INTO database.dbo.Barang(kode)
   VALUES('" & kode & "')"

regards,
LiveDeviL

PS: sorry p3, gw rubah dikit codenya... peace

On 11/23/05, Bambang Triono <[EMAIL PROTECTED]> wrote:
Tapi Kalau disimpan kenapa selalu kode yang ada di combo box yg pertama yang masuk ke database,,,,,,, saat proses insert...
 
Kalau dipilih yang lain...tetap masuknya yang pertama bagaimana yah...

p3_tib2001 < [EMAIL PROTECTED]> wrote:
1. Untuk menampilkan data di combobox dengan 2 column bisa dengan cara
seperti ini :
   cmb.additem rs!kode & " - " & rs!namaBarang
atau kalo mau nama barangnya disembunyikan, gunakan space(100) yang
tanda "-" diganti spacenya itu. jadinya ga kelihatan di combobox. dan
enaknya gunakan style combobox yang ke-2 (dropdown list), data yang ada
ga bisa diedit.

2. Untuk menyimpan jika yang disimpan kodenya saja, perintahnya :
   INSERT INTO database.dbo.Barang(kode)
   VALUES('" & rs!kode & "')"







Send instant messages to your online friends http://uk.messenger.yahoo.com

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS






Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




Kirim email ke