Question

您好，VB大神，请问下VB怎样计算access数据库里的表里的一列数字之和？

VB内有1个TEXTBOX,1个COMMAND
这是上次您给的答案，如下

——————————————————————————————————————————————
在部件中选择ADODC控件添加到窗体上，或者在工程菜单中引用ADO对象都可以
下面开始写代码(我以ADO对象为例)：
dim con as new adodb.connection '声明一个数据连接对象变量，用于打开数据库
dim rs as new adodb.recordset '声明一个数据集对象变量，用于打开数据表
private sub form_load() '在窗体加载事件中，打开数据连接对象
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=AFC.mdb;persist security info=false"
text1.text=""
end sub
Private Sub command1_Click() '单击查询按钮事件,完成计算数据列的和
if rs.state<>adstateclosed then rs.close
rs.open "select 入库数量 from 数据表名",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
if text1.text="" then
text1.text=rs.fields("入库数量")
else
text1.text=cdbl(text1.text)+rs.fields("入库数量")
end if
rs.movenext
wend
end if
end sub
——————————————————————————————————————————————

想问下如果我还想再加一个条件，先文本框内输入物料编码，（在筛选出同一编码的各个入库数量记录）这个可以不显示，再算每条记录总和，要怎么弄？谢谢

Answer 1

rs.open "select 入库数量 from 数据表名 where 编码='1234'",con,1,3
或者
rs.open "select 入库数量 from 数据表名 where 编码='" & text1.text & "'",con,1,3

不知道是不是你要的。。

追问

请问为什么多进几次界面，会显示错误
"对象打开时，不允许操作"
错误地方是
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=仓库管理数据.mdb;persist security info=false"
Text1.Text = ""

追答

if con.state=1then con.close

试试看

追问

不行啊，我加在数据库con.Open前面还是会出错

追答

要有程式才知道什么问题。。上传程式如果有需要。

追问

大神加下我QQ吧1335535603

追答

没有qq

追问

哦，那个我基础不好，请问大神，如果我还要加一个日期（类似2014-1-1这种），通过输入日期和编码查询筛选，然后算那一列之和，下面这个代码怎么改呢

rs.open "select 入库数量 from 数据表名 where 编码='" & text1.text & "'",con,1,3

追答

rs.open "select 入库数量 from 数据表名 where 编码='" & text1.text & "' and    convert(char,日期,112)='" & text2.text & "'",con,1,3

(char,日期,112)=日期的格式是20141020