佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 881|回复: 4

急~~~vb的问题!!!!!

[复制链接]
发表于 15-3-2007 04:43 PM | 显示全部楼层 |阅读模式
我的vb form里面有listview,我要怎样把它几行的value存进database里面呢?例如,我的listview里面有几个field. ProjectName,SupplierName 和 Products.

ProjectName     SupplierName     Product
abc             def              kkk
abc             lll              123
abc             ggg              rrr

我要怎样存进去呢?loop 吗?请各位大大帮帮忙。小弟感激不尽~~~
回复

使用道具 举报


ADVERTISEMENT

 楼主| 发表于 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 | 显示全部楼层
  1.   If Me.lvwContact.ListItems.Count > 0 Then
  2.     For i = 1 To Me.lvwContact.ListItems.Count
  3.       SQL = "select * from agent_contacts"
  4.       RS.Open SQL
  5.       RS.AddNew
  6.       RS("agent_id") = lngAgentID
  7.       RS("agent_contact_name") = Me.lvwContact.ListItems(i).SubItems(1)
  8.       RS("agent_contact_position") = Me.lvwContact.ListItems(i).SubItems(2)
  9.       RS("agent_contact_mobile_no") = Me.lvwContact.ListItems(i).SubItems(3)
  10.       RS("agent_contact_email") = Me.lvwContact.ListItems(i).SubItems(4)
  11.       RS("added_by") = currUser.ID
  12.       RS("date_added") = Now
  13.       RS.Update
  14.       RS.Close
  15.     Next
  16.   End If
复制代码


我的 sample code
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 28-8-2025 07:12 AM , Processed in 0.134636 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表