作者bluechurch (懒懒的天)
看板Visual_Basic
标题Re: [VB6 ] 回圈写进资料库,要如何拚断重覆资料?
时间Thu Aug 27 22:09:32 2020
1.建一个tempTable
2.全部insert 至这个 table
3.select tempTable insert into 至原始table
where 条件3key not in 3key
※ 引述《NealPope (尼尔教皇)》之铭言
: 问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), 来自: 27.52.63.114 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1598537374.A.B38.html
1F:→ bookwayne: dvfdy 10/06 17:07
2F:→ bookwayne: yxwtayjggvxvftsselcvvzebmcliiyi 10/06 17:07