Like 问题,高手请进!

[wuzd]

下面的程序,strSql 在Access库中检索,返回一条记录,
但在下面中返回38条记录.我打印这38条记录,还是一条,
想distinct她,她就内存溢出,
我那她怎么办,请教...

strSql = "select Content,seq from tblCopy "
strSql = strSql & " WHERE ModelID= 'BKLG0010'
AND Content like '%ＷＣ－正常%' AND CopyID1<>'' "
' strSql = "UPDATE tblCopy SET CopyCondition='1'"
' strSql = strSql & " WHERE ModelID= 'BKLG0010'
AND Content like '%ＷＣ－正常1%' AND CopyID1<>'' "
'cnDB.Execute strSql

rsRecord.Open strSql, cnDB, 3, 3, -1
If rsRecord.RecordCount > 0 Then
Stop
For i = 1 To rsRecord.RecordCount
str = str & " " & rsRecord.Fields(0).Value
Debug.Print rsRecord.Fields(0).Value
Debug.Print rsRecord.Fields(1).Value
Next Else
Stop
End If

[wuzd]

这段程序是写在Excel的VBA中的,读Access库.程序Sql返回的数据不能控制.但在Access的Query中Sql是正确的.请大家帮忙了.

[victorycyz]

For i = 1 To rsRecord.RecordCount
str = str & " " & rsRecord.Fields(0).Value
Debug.Print rsRecord.Fields(0).Value
Debug.Print rsRecord.Fields(1).Value
rsRecord.movenext
Next

[wuzd]

加 rsRecord.movenext 第i=2 时
str = str & " " & rsRecord.Fields(0).Value
就出错了,
事实它就一条记录呵,
谢谢您!

[wuzd]

Dim rsRecord As ADODB.Recordset 'COPY句

For intI = 1 To
Set rsRecord = New ADODB.Recordset
'打开
rsRecord.Open strSql, cnDB, 3, 3, -1 '这儿出错误

......Set rsRecord = Nothing

rsRecord.Close

next

报以下错误,内存不足.

? err.Description
メモリが不足しています。

[Aimee]

是LIKE那有错吧!'%是语句里的,再后面加string的话你怎么就用了一个"，好象应该是'"，我觉得好象是like'%'" & str & "'%'"

[wuzd]

以后要注意计算机内码的问题,血的教训! 8(