一个困扰我很久的问题，希望大家给我答案关于不同的表字段相减的问题

hewenwen 2005-12-04 05:16:07

下面的代码是我在客户信息表和配送日志表中，实现客户信息表中的订购票数减去配送日志表中的回收票数等于客户信息表中的剩余票数，但结果总是不能实现，请问该怎么样实现呢。。。。。
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

...全文

155 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

faysky2 2005-12-04

打赏
举报

str="select 客户信息.订购票数-配送日志.回收票数 as 剩余票数 from 客户信息,配送日志 where 客户信息.姓名 = 配送日志.客户"
------------------------------------------

请仔细看看，要确保其中的列要与表对应，比如：客户信息.订购票数, "订购票数" 必须是 "客户信息" 表中的列，其他的也一样，否则，只要有一个不对应，就会提示上面所描述的错误

hewenwen 2005-12-04

打赏
举报

刚才调试一下，出现这样的提示：
至少一个参数未被指定值，关标停在rs.Open str, conn, adOpenKeyset, adLockPessimistic

hewenwen 2005-12-04

打赏
举报

可不可定义两条SQL语句，因为下面的事件中还用到客户信息表中的其他信息，这些代码全是
在客户信息窗体里写的，，
比如：
sql="select * from 客户信息"
str=" "select 客户信息.订购票数-配送日志.回收票数 as 剩余票数 from 客户信息,配送日志 where 客户信息.姓名 = 配送日志.客户"
"
如果这样的话，数据游标（rs）该怎么控制
是不是这样就行咯：
rs.Open str, conn, adOpenKeyset, adLockPessimistic
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

vbman2003 2005-12-04

打赏
举报

可能我理解错了，客户信息表中怎么有“订购票数”？
要看看你的表结构

northwolves 2005-12-04

打赏
举报

str = "select [客户信息].订购票数-[配送日志].回收票数 as 剩余票数 from 客户信息,配送日志 where [客户信息].姓名 = [配送日志].客户"

faysky2 2005-12-04

打赏
举报

str = "select *客户信息.订购票数-配送日志.回收票数 as 剩余票数 from 客户信息,配送日志 where 客户信息.姓名 = 配送日志.客户"
----------------------------------------
语句有错误，*后面应该加个逗号
str = "select *,客户信息.订购票数-配送日志.回收票数 as 剩余票数 from 客户信息,配送日志 where 客户信息.姓名 = 配送日志.客户"

vbman2003 2005-12-04

打赏
举报

select a.*,b*,a.订购票数-b.回收票数 as 剩余票数
from 客户信息 a,配送日志 b
where a.姓名 = b.客户
and b.日期=#2005-12-04#

客户信息表中的客户信息应该是唯一的，配送日志表中客户送配信息不该是唯一的吧？所以加上and b.日期=#2005-12-04# ，如果有这个字段的话这样就应该可以了

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎

承蒙读者朋友们的关照，杂货铺的文章已经积累到了1300篇，其中超过2/3的文章都是原创，即使是转载文章，我给自己设的底线是一定要加些自己的见解，因为至少得让读者了解到这篇文章的价值，而不仅仅是做文章的搬运工，这样才可以对得住读者朋友们每一次的点击和阅读。读者朋友们的每次点击、每个在看、每个转发、每个评论、每个点赞，每次赏赞，这些一点一滴的支持都是我坚持的动力，每篇文章的背后，都有自己的成长，虽然还...

承蒙读者朋友们的关照，截止到今天，杂货铺的文章已经积累到了1200篇，其中有超过2/3的文章都是原创的，即使是转载，我给的底线是一定要加些自己的见解，因为至少得让读者了解到这篇文章的价值，而不仅仅是文章的搬运工，才可以值得读者朋友们每一次的点击和阅读。读者朋友们的每次点击、每个在看、每个转发、每个评论、每个点赞，每个赏赞，这些支持都是我坚持的动力，每篇文章的背后，都有自己的成长，虽然还是会碰到各种...

事务（transaction）：是用户定义的一组数据库操作，要么全做要么全不做，失败即回滚。保存点（savePoint）在一个大的事务中，可以把操作过程分成几个部分，第一个部分执行成功后可以建一个保存点，若后面的部分执行失败，则回滚到此保存点，而不必回滚整个事务。事务的实现即：RDBMS采取何种技术确保事务的ACID特性？回退（rollback）：撤销sql执行过程。事务管理可以管理insert、update、delete语句；不能回退create、drop操作。

杂货铺的文章，已经积累到800篇了，首先还得谢谢各位读者朋友们，每个在看，每个转发，每个评论，每个点赞，你们的支持，是我坚持的动力，每篇文章的背后，都有自己的成长，虽然如今已经在一条新的赛...