Office中国论坛/Access中国论坛

标题: 急：Connection Open的问题！（在线等待）---已解决 [打印本页]

作者: chengm 时间: 2008-2-18 17:44
标题: 急：Connection Open的问题！（在线等待）---已解决
各位老大们：
我是个新手，刚着手做一个Access系统。
在使用ADODB.Connection时遇到了问题，具体如下：

Dim daoRs3 As ADODB.Recordset
Dim Conn1 As ADODB.Connection
Dim str as String
strSql = "SELECT MAX(COLUNM1) AS MAX_NO1 FROM T1 WHERE COLUNM1 LIKE 'CE" & Format(now, "yyyymmdd") & "*'"
Set daoRs3 = New ADODB.Recordset
Set Conn1 = CurrentProject.Connection
daoRs3.Open strSql, Conn1, 3,3
If daoRs3.RecordCount <> 0 Then
str = daoRs3("MAX_NO1")
End If

真是的情况下，daoRs3("MAX_NO1") 是有值的，可是我在这段代码里面追踪的时候，却发现daoRs3("MAX_NO1") 的值为Null，请各位老大们给小弟解个疑，不胜感激！

在线等待！

[ 本帖最后由 chengm 于 2008-2-18 18:48 编辑 ]

作者: t小宝 时间: 2008-2-18 17:53
就是说 daoRs3.RecordCount 为0，没有运行到 str = daoRs3("MAX_NO1") ？

作者: chengm 时间: 2008-2-18 18:03
daoRs3.RecordCount = 1,
已经进入到
str = daoRs3("MAX_NO1")
里面了，但是str即daoRs3("MAX_NO1") 的值为Null（设置断点追踪结果）

作者: t小宝 时间: 2008-2-18 18:05
你用查询打开代码里的SQL语句看看，有数据吗？

作者: chengm 时间: 2008-2-18 18:10
查了，数据方面是没有问题的。
你看看代码上会不会有什么限制或者问题？

作者: chengm 时间: 2008-2-18 18:13
这个查询执行完之前，我在上面有一段代码是对这个表进行DML操作的(Conn1.Execute("Insert T1 values (...)")
请问这是否有它的原因，此段代码必要！

作者: t小宝 时间: 2008-2-18 18:18
对了，是*号的问题，ADO中不能用*号，把它改成%

作者: chengm 时间: 2008-2-18 18:48

原帖由 t小宝 于 2008-2-18 18:18 发表
对了，是*号的问题，ADO中不能用*号，把它改成%

大哥，太感谢你了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)