sir mukhang sa ibang pc ginawa yang program na load mo, kulang k ng component, ang ginamit na component na yan na hinahanap ay service pack 6 na vb6 component...
- - - Updated - - -
sample ko sa listview...
note : textbox1 is ID
'onclick sa listview
Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
with listivew1
textbox1.text = .text
textbox2.text = .subitems(1)
end with
End Sub
'saving sa database
with jrst
str = "Select * from table1"
if textbox1.text = "" then
.open str, conn, , adOpenKeyset, adLockPessimistic
.addnew
else
str = str & " where id = " & val(textbo1.text)
.open str, conn, , adOpenKeyset, adLockPessimistic
end if
.fields("fields1") = textbox2.text
.update
.close
end with
sir, sample code nga jan ito screenshot ng program ko. thanks
View attachment 161468