Hai..
kalau untuk listbox tidak seperti listview,kita tidak
dapat edit langsung dari listbox nya,kita harus
keluarkan dulu nilai pada list2 tersebut,kita edit
baru kita simpan lagi...
mba bisa gunakan textbox,inputbox untuk dapat membantu
pengeditan data pada list2 tersebut..
code ini saya coba untuk pengeditan dengan bantuan
inputbox,dengan asumsi,db telah di open,list2 sudah
diisi nilai transaksi..untuk editing:
Private Sub List1_DblClick()
Dim x
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from test where nama='" & List1.Text
& "'", db, adOpenKeyset, adLockOptimistic
x = InputBox("masukkan Nilai Baru", "Edit", rs!nama)
With rs
!nama = x
.Update
End With
rs.Close
rs.Open "select nama from test", db,adOpenStatic,
adLockOptimistic
List1.Clear
For i = 1 To rs.RecordCount
List1.AddItem rs!nama
rs.MoveNext
Next i
End Sub
Mohon maap kalo cara yang dimaksud salah...
thank
---aL---
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
