作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 回圈写进资料库，要如何拚断重覆资料？
时间Tue Aug 11 22:56:04 2020
直接写 insert，并且在 insert 加上检查条件
if not exists(select * from 资料表 where 条件)
insert into ...
每一笔资料 execute 一次
※ 引述《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疯狂查询
--
携帯の待ち受けには
笑顔のMai-Kがいる
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.194.79.177 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1597157767.A.165.html
1F：推 NealPope: 大大，这样我的rs.AddNew是不是要改成cn.excute "If not 08/11 23:50
2F：→ NealPope: exisys..." 08/11 23:50
3F：→ fumizuki: 对 08/12 21:46