Почему этот код не работает?

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 заметил, вы не объяснили, что ваш проблема в том, что я надену свою шляпу из фольги, перекрестим ноги и повторю несколько минут, и посмотрю, смогу ли я получить какие-то экстрасенсорные впечатления от того, что вам нужно ...

Ah. Похоже, вы пытаетесь получить все записи, в которых нет замечаний, и вы не получаете ни одного из них. (Конечно, вы не упомянули, получаете ли вы кого-либо из них или нет, поэтому я должен прибегнуть к моей шляпе с фольгой. Было бы намного лучше, если бы вы просто сказали нам, а не просто сказали, что код не работает.) Вероятно, это потому, что вы запрашиваете все записи, в которых у примечания есть пустая строка, а их нет.

Обычно, если в базе данных нет значения, поле имеет значение NULL. (Иногда импортированные данные помещают пустые строки в поля вместо нулевых значений, но обычно это не так.) Я собираюсь предположить, что ваша проблема в том, что вы ищете пустую строку, и фактическое значение, которое вам нужно искать, НОЛЬ. Если это так, я дам вам выработать предложение WHERE.

Answer 2

Спасибо всем. Моя проблема решена.

Извините, потому что это была глупость моей части.

Я использовал для заполнения полей вручную на моем столе, который не дает результаты для моего запроса.

Когда я удалил все поля и я заполнил тексты через форму все стало большим спасибо снова и я извиняюсь