作者NealPope (尼尔教皇)
看板Visual_Basic
标题[VB6 ] 回圈写进资料库，要如何拚断重覆资料？
时间Tue Aug 11 22:15:41 2020
问VB写进资料库一些问题
某段跑回圈程式如下↓
For i = 0 to Ubound(temp())
aa = Split(temp(i),";")
sPord = aa(0)
sMoney = aa(1)
sTime = aa(2)
'开始写入资料库
rs.AddNew
rs("pord") = sPord
rs("money") = sMonry
rs("now_time") = sTime
rs.updatebatch
Next
资料库栏位pord、money、now_time已设唯一值
当有相同值时，就会Error
要如何判断资料库已经有此笔资料时，自动跳到下一个回圈?
不能用 If rs.EOF或rs.Rcordcount
资料库好像不允许回圈Select疯狂查询
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.141.153.53 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1597155343.A.EC3.html