作者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