Question

我想知道为什么这段代码不起作用？

ListView1.ListItems.Clear
' Set RS = New ADODB.Recordset

RS.Open "select nom, note, remarque from table1 WHERE remark=''", DB,    
        adOpenDynamic, adLockOptimistic

ListView1.View = lvwReport

Dim Lst As ListItem

Do While Not RS.EOF
Set Lst = ListView1.ListItems.Add(, , RS!nom)
Lst.SubItems(1) = RS!note
Lst.SubItems(2) = RS!remark
RS.MoveNext

Loop
 End If

任何人都会帮忙，并纠正我的代码我想从dtabase访问检索没有备注的记录

Answer 1

正如joehanna所说的那样，你还没有解释你的问题是什么，我会穿上我的锡箔帽，交叉双腿，唱几分钟然后看看我是否能得到任何问题你需要的精神印象...

阿。看起来你正试图获得所有没有评论的记录，而且你没有得到任何记录。（当然，你还没有提到你是否会得到他们中的任何一个，这就是为什么我不得不求助于我的锡箔帽。如果你只是告诉我们，而不是只是说代码没有工作。）这可能是因为你要求所有记录，其中备注有一个空字符串，并且没有任何记录。

通常，如果数据库中的字段中没有值，则该字段的值为NULL。（有时导入的数据会在字段中放入空字符串而不是空值，但通常不会。）我猜你的问题是你正在寻找一个空字符串，以及你需要查看的实际值for为NULL。如果是这样，我将让您解决实际的WHERE子句。

Answer 2

谢谢大家。我的问题解决了。

我很抱歉，因为这是我的愚蠢。

我曾经在我的桌子上手动填写字段，但没有为我的查询提供适当的结果。

当我删除所有字段并通过表单填写文本时，一切都变得很棒再次感谢你，我道歉

为什么这段代码不起作用？

2 个答案: