亲爱的们来帮帮我看看这是哪里错了！！！数据库的！谢谢了！
测试的时候显示：实时错误’-2147217904（80040e10）‘ 至少一个参数没有被指定值代码：
Option Explicit
Dim leibie As String '该读者的类别
Dim qixian As Integer '该读者可以借书的期限
Dim shumu As Integer '该读者已借书数量
Dim maxnum As Integer '该读者借书数量的限制
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Dim rs_borrowbook As New ADODB.Recordset
Dim sql As String
sql = "select * from reader_info where reader_no='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
leibie = rs_borrowbook.Fields(3)
shumu = rs_borrowbook.Fields(8)
rs_borrowbook.Close
sql = "select * from reader_style where style_name='" & leibie & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
qixian = rs_borrowbook.Fields(2)
maxnum = rs_borrowbook.Fields(1)
rs_borrowbook.Close
If shumu >= maxnum Then
MsgBox "you can not borrow more！", vbOKOnly + vbExclamation
Exit Sub
End If
sql = "select * from borrow_info"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields(1) = Combo1.Text
rs_borrowbook.Fields(2) = Combo2.Text
rs_borrowbook.Fields(3) = Label8.Caption
rs_borrowbook.Fields(4) = Label9.Caption
rs_borrowbook.Fields(5) = Date
rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from book_info where book_no='" & book_num & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(7) = "Y"
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from book_info where reader_no='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic此行显示错误
rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox "book borrow successful！", vbOKOnly + vbExclamation
Unload Me
End Sub
以前代码
Option Explicit
Dim leibie As String '该读者的类别
Dim qixian As Integer '该读者可以借书的期限
Dim shumu As Integer '该读者已借书数量
Dim maxnum As Integer '该读者借书数量的限制
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Dim rs_borrowbook As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
leibie = rs_borrowbook.Fields(3)
shumu = rs_borrowbook.Fields(8)
rs_borrowbook.Close
sql = "select * from 读者类别 where 种类名称='" & leibie & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
qixian = rs_borrowbook.Fields(2)
maxnum = rs_borrowbook.Fields(1)
rs_borrowbook.Close
If shumu >= maxnum Then
MsgBox "该读者借书数额已满！", vbOKOnly + vbExclamation
Exit Sub
End If
sql = "select * from 借阅信息"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields(1) = Combo1.Text
rs_borrowbook.Fields(2) = Combo2.Text
rs_borrowbook.Fields(3) = Label8.Caption
rs_borrowbook.Fields(4) = Label9.Caption
rs_borrowbook.Fields(5) = Date
rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from 书籍信息 where 书籍编号='" & book_num & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(7) = "是"
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox "本书借阅成功！", vbOKOnly + vbExclamation
Unload Me
End Sub
这个运行是好好的，我就是把DATABASE中文改英文，然后在程序里改了下名字！求教了！谢谢谢谢了！ --------------------编程问答-------------------- 1、检查sql = "select * from book_info where reader_no='" & Combo1.Text & "'"
语句里的book_info 表里有没有reader_no字段！这是主要原因
2、建议不要用rs_borrowbook.Fields(8)这种形式，改成rs_borrowbook.Fields("书籍名称"). --------------------编程问答-------------------- 非常感谢，问题已经查出来了！
补充：VB , 数据库(包含打印，安装，报表)
