作者wolfsiyb (阿B)
看板Visual_Basic
标题[VB6 ] 用ADO语法 更新资料库里面的资料
时间Mon Jan 4 19:58:42 2010
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)'
无法更新 归还时间；栏位不能更新
不知道有没有大大能帮忙看看 卡一个下午了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.71.220.111
※ 编辑: wolfsiyb 来自: 219.71.220.111 (01/04 20:08)
1F：→ wolfsiyb:请大家帮个忙~败偷败偷~我怎样改都是一样的问题 01/04 20:23
2F：→ wolfsiyb:资料库不是唯读 栏位的资料型态是TEXT 01/04 20:24
3F：→ wolfsiyb:睡醒以後就解决了...栏位打错... 01/05 04:55
4F：→ meto000:还没五点就睡醒了？莫非是想不出来睡不着？～我也会这样 01/05 08:41