衢州华高国际班好吗:VB数据库的一个错误

来源：百度文库编辑：神马品牌网时间：2024/04/28 09:49:51

If strNum = "" Then Exit Sub
strSQL1 = "select 读者数据.*,读者类别.*" & "From 读者数据,读者类别 where 类号=编号 and 借书证号='" & strNum & "'"

strSQL2 = "select distinct 借阅数据.条码,书名,索书号,借期,还期,已还,库号" & "From 借阅数据,馆藏书目 where 借阅数据.条码=馆藏书目.条码" & "and 借阅数据.借书证号='" & strNum & "'" & "order by 借期"
With Library_Manage.Library_Manage_Con
If .State = adStateClose Then .Open
Set objInfo = New Recordset
Set objInfo = .Execute(strSQL1)
Set objBooks = New Recordset
Set objBooks = .Execute(strSQL2)
End With

以上的代码有错误吗？我运行的时候总是说“借阅数据”附件有错误！麻烦大家帮帮忙！！

首先，有几处没留空格。试试这样：
strSQL1 = "select 读者数据.*,读者类别.* " & "From 读者数据,读者类别 where 类号=编号 and 借书证号='" & strNum & "'"
strSQL2 = "select distinct 借阅数据.条码,书名,索书号,借期,还期,已还,库号 " & "From 借阅数据,馆藏书目 where 借阅数据.条码=馆藏书目.条码 " & "and 借阅数据.借书证号='" & strNum & "' " & "order by 借期"

VB数据库的一个错误一个错误啊VB的 VB-Access数据库格式的一个问题 VB连接SQLSERVER数据库的一个问题问一个VB数据库的问题关于VB和数据库的一个问题问一个VB数据库的问题 vb设计一个调用数据库的函数一个关于VB数据库的问题 ACCESS数据库的一个顽固错误