作者NotFunny (不好笑啦)
看板Visual_Basic
标题Re: [VB6 ] 用ADO语法 更新资料库里面的资料
时间Tue Jan 5 09:00:05 2010
※ 引述《wolfsiyb (阿B)》之铭言：
: Time1 = Format(Now, "yyyy/mm/dd")
: SQL1 = "Update 会员资料 Set 余额 =" + Str(Money) + " Where 会员编号=" + Str(k)
: SQL2 = "Update DVD资料表 Set 出租次数 = 出租次数 + 1 Where ID="
: SQL3 = "Update DVD资料表 Set 归还时间 = " + Time1 + " Where ID="
: Connstr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
: "Data Source=C:\Documents and Settings\mibi\My Documents\rfid.mdb"
: conn.Open Connstr
: Set cmd.ActiveConnection = conn
: cmd.CommandText = SQL1
: Set rs = cmd.Execute
: conn.Close
: conn1.Open Connstr
: Set cmd2.ActiveConnection = conn1
: Set cmd1.ActiveConnection = conn1
: For i = 1 To n
: cmd2.CommandText = SQL3 + Str(x(i))
: Set rs2 = cmd2.Execute(, Time1)
: cmd1.CommandText = SQL2 + Str(x(i))
: Set rs1 = cmd1.Execute
: Next i
: conn1.Close
: 以上是我要将资料库内的资料更新
: 其中SQL1是更新可用余额 SQL2是原值+1 SQL3是将"现在时间"更新进去
: 单跑SQL1没有问题 加跑SQL2也没有问题
: 可是SQL3会出现
: 执行阶段错误 '-2147217887 (80040e21)'
: 无法更新 归还时间；栏位不能更新
: 不知道有没有大大能帮忙看看 卡一个下午了
我的经验是在资料库端出问题
你可以把 SQL3 执行时的实际语法贴到资料库去执行
也就是说 SQL3 的语法是有问题的
改成这样试试:
SQL3 = "Update DVD资料表 Set 归还时间 =
'" + Time1 + "
' Where ID="
(加二个单引号)
--
我的Facebook:
http://0rz.tw/v70Uy
有玩餐城的话可以加我交换食材
(虽然可能已经加过了XD)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.136.38.162
1F：推 wolfsiyb:感谢大大..其实我的栏位叫 归还日期， 我打成归还时间 01/05 13:42
2F：→ wolfsiyb:所以更新不了~~ 01/05 13:43
3F：→ wolfsiyb:也就是俗称的鬼遮眼XD 01/05 13:45
4F：→ MOONRAKER:可见：睡觉时间还是应该睡觉才对。(严肃状) 01/05 15:11