[VB6 ] 用ADO語法更新資料庫裡面的資料

看板Visual_Basic作者wolfsiyb (阿B)時間16年前 (2010/01/04 19:58)推噓0(0推 0噓 4→)

留言4則, 2人參與討論串1/2 (看更多)

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)

→

wolfsiyb

01/04 20:23, , 1^F

01/04 20:23, 1^F

→

wolfsiyb

01/04 20:24, , 2^F

01/04 20:24, 2^F

→

wolfsiyb

01/05 04:55, , 3^F

01/05 04:55, 3^F