急：Connection Open的问题！（在线等待）---已解决

chengm

各位老大们：
我是个新手，刚着手做一个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 编辑 ]

chengm

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

大哥，太感谢你了！

t小宝

对了，是*号的问题，ADO中不能用*号，把它改成%

chengm

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

chengm

查了，数据方面是没有问题的。
你看看代码上会不会有什么限制或者问题？

t小宝

你用查询打开代码里的SQL语句看看，有数据吗？

chengm

daoRs3.RecordCount = 1,
已经进入到
str = daoRs3("MAX_NO1")
里面了，但是str即daoRs3("MAX_NO1") 的值为Null（设置断点追踪结果）

t小宝

就是说 daoRs3.RecordCount  为0，没有运行到 str = daoRs3("MAX_NO1")  ？