Private Sub CmdDeal_Click()
If rs.RecordCount > 0 Then
msg = MsgBox("您确实要还书吗?", vbYesNo)
If msg = vbYes Then
rs.Fields("dateBack") = Format(Now, "yyyy-mm-dd") '更新借还信息的"还书日期"
rs.Update '更新数据
'图书的存储数量加1
SQL = " update 图书信息表 set volume=volume+1 where bookID='"
SQL = SQL & Trim(Me.txtBookNo.Text) & "'"
Call ExecuteSQL(SQL, msg)
If CDbl(Me.LblPenalty.Caption) > 0 Then
MsgBox ("还书成功," & "罚款金额为:" & Me.LblPenalty.Caption)
'将罚款金额添加到读者信息表中
SQL = "update 读者信息表 set fineR=fineR+" & CDbl(Me.LblPenalty.Caption)
SQL = SQL & " where readerID = '" & Trim(txtQuery.Text) & "'"
Call ExecuteSQL(SQL, msg)
Else
MsgBox ("还书成功!")
End If
Call LoadData '装载数据
Call ShowData '显示数据
Else
Exit Sub
End If
Else
MsgBox ("没有可以处理的续借信息")
End If
End Sub我这段代码到底是哪里出现问题了
rs.Update '更新数据
这句出现这个错误
紧急求助,毕设临近啊~~~~
If rs.RecordCount > 0 Then
msg = MsgBox("您确实要还书吗?", vbYesNo)
If msg = vbYes Then
rs.Fields("dateBack") = Format(Now, "yyyy-mm-dd") '更新借还信息的"还书日期"
rs.Update '更新数据
'图书的存储数量加1
SQL = " update 图书信息表 set volume=volume+1 where bookID='"
SQL = SQL & Trim(Me.txtBookNo.Text) & "'"
Call ExecuteSQL(SQL, msg)
If CDbl(Me.LblPenalty.Caption) > 0 Then
MsgBox ("还书成功," & "罚款金额为:" & Me.LblPenalty.Caption)
'将罚款金额添加到读者信息表中
SQL = "update 读者信息表 set fineR=fineR+" & CDbl(Me.LblPenalty.Caption)
SQL = SQL & " where readerID = '" & Trim(txtQuery.Text) & "'"
Call ExecuteSQL(SQL, msg)
Else
MsgBox ("还书成功!")
End If
Call LoadData '装载数据
Call ShowData '显示数据
Else
Exit Sub
End If
Else
MsgBox ("没有可以处理的续借信息")
End If
End Sub我这段代码到底是哪里出现问题了
rs.Update '更新数据
这句出现这个错误
紧急求助,毕设临近啊~~~~
解决方案 »
- VSFlexGrid 编辑问题
- 在(VBS)网页编程中:action 和 onsubmit() 或oncheck()事件可以同时用吗? 怎样才能做到根据(onsubmit)事件触发(action)命令.我的程序怎么是同时响应的阿,请各位大虾诊断一下,谢谢了,各位大虾!!
- 程序以system身份运行,如何给当前登陆用户发送一个msgbox呢
- 请求:怎样在VB程序里创建ODBC数据源??
- 怎样才能彻底 UNLOAD ME
- 求教如何实现外加插件功能.
- wm_close对应的消息常数是什么啊?比如说我发给了一个开始菜单,但我想把它恢复过来,可我用create不起作用啊?
- 明天要面试,大家认为要准备些什么,会考些什么?
- VBA如何实现将数据写到word固定地方
- 关于MSFlexGrid控件的简单问题!
- 在VB中然后响应Treeview的单击事件
- 求高手帮忙改段程序,急急急!
'装载数据
'得到查询条件
Set rs = Nothing
'查询图书信息,构建SQL语句
SQL = "SELECT a.bookID,b.title,b.author,b.publishTime,a.dateBorrow,a.dateBorrow2,a.dateBack "
SQL = SQL & " FROM 借还信息表 a INNER JOIN 图书信息表 b ON a.bookID = b.bookID "
SQL = SQL & " WHERE (a.dateBack IS NULL) AND (a.readerID = '"
SQL = SQL & Trim(txtQuery.Text) & "')"
Set rs = SelectSQL(SQL, msg)
Set Me.DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
你可以用你上述的join语句返回借还信息表中的一个主键,然后根据这个主键,用update语句更新借还信息表的对应信息
完全正确,另外,你得到的字段并没有dateBack的别名列~