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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
