还有问题呢。。怎么解决呢

hewenwen 2005-12-04 06:00:57
下面的代码是我在客户信息表和配送日志表中,实现客户信息表中的订购票数减去配送日志表中的 回收票数等于客户信息表中的剩余票数,但结果总是不能实现,请问该怎么样实现呢。。。。。
Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & App.Path & "\water.mdb;" & "persist security info=false"
str = "select*,[客户信息].订购票数-[配送日志].回收票数 as 剩余票数 from 客户信息,配送日志 where [客户信息].姓名 = [配送日志].客户"
rs.CursorLocation = adUseClient
rs.Open str, conn, adOpenKeyset, adLockPessimistic
End Sub
刚才调试一下,出现这样的提示:
至少一个参数未被指定值,关标停在rs.Open str, conn, adOpenKeyset, adLockPessimistic
...全文
60 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
calligrapher 2005-12-04
  • 打赏
  • 举报
回复
表不用加[]个符号吧 你用的什么数据库啊
faysky2 2005-12-04
  • 打赏
  • 举报
回复
str = "select*,[客户信息].订购票数-[配送日志].回收票数 as 剩余票数 from 客户信息,配送日志 where [客户信息].姓名 = [配送日志].客户"
------------------------------------------
请仔细看看,要确保其中的列要与表对应,比如:[客户信息].订购票数, "订购票数" 必须是 "[客户信息]" 表中的列,否则就会提示上面所描述的错误
faysky2 2005-12-04
  • 打赏
  • 举报
回复
str = "select*,[客户信息].....
-------------------------
*号前面加一个空格试试
str = "select *,[客户信息].

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧