查看: 882|回复: 4
|
急~~~vb的问题!!!!!
[复制链接]
|
|
我的vb form里面有listview,我要怎样把它几行的value存进database里面呢?例如,我的listview里面有几个field. ProjectName,SupplierName 和 Products.
ProjectName SupplierName Product
abc def kkk
abc lll 123
abc ggg rrr
我要怎样存进去呢?loop 吗?请各位大大帮帮忙。小弟感激不尽~~~  |
|
|
|
|
|
|
|

楼主 |
发表于 16-3-2007 01:54 PM
|
显示全部楼层
没有人会吗?请帮帮我~~~ |
|
|
|
|
|
|
|
发表于 16-3-2007 06:03 PM
|
显示全部楼层
你的问题不大清楚,
不是很明白你的问题,
不过可以告诉你,Loop是必要的 |
|
|
|
|
|
|
|

楼主 |
发表于 20-3-2007 08:51 AM
|
显示全部楼层
原帖由 hcong85 于 16-3-2007 06:03 PM 发表
你的问题不大清楚,
不是很明白你的问题,
不过可以告诉你,Loop是必要的
你哪里不明白?我可以告诉你~~~ |
|
|
|
|
|
|
|
发表于 20-3-2007 09:01 AM
|
显示全部楼层
- If Me.lvwContact.ListItems.Count > 0 Then
- For i = 1 To Me.lvwContact.ListItems.Count
- SQL = "select * from agent_contacts"
- RS.Open SQL
- RS.AddNew
- RS("agent_id") = lngAgentID
- RS("agent_contact_name") = Me.lvwContact.ListItems(i).SubItems(1)
- RS("agent_contact_position") = Me.lvwContact.ListItems(i).SubItems(2)
- RS("agent_contact_mobile_no") = Me.lvwContact.ListItems(i).SubItems(3)
- RS("agent_contact_email") = Me.lvwContact.ListItems(i).SubItems(4)
- RS("added_by") = currUser.ID
- RS("date_added") = Now
- RS.Update
- RS.Close
- Next
- End If
复制代码
我的 sample code |
|
|
|
|
|
|
| |
本周最热论坛帖子
|