Не выводит в листбокс

[Shasha]

Код: Выделить всё

Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Dim strCity As String
strCity = "1"
Set db = OpenDatabase("c:\Baza.mdb")
Set rs = db.OpenRecordset("SELECT * FROM [Abonents] WHERE [id] = " & Quote(strCity))

Do Until rs.EOF
lst.AddItem rs.Fields("id") & vbCrLf
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub


Private Function Quote(strVariable As String) As String
Quote = " ' " & strVariable & " ' "
End Function

почему то не выводит в листбокс, помогие, почему не выводит, не врублюсь

[miwutka]

а в рекордсете ченить есть? в цикл вообще заходит?

[VVitafresh]

А возвращает ли рекордсет вообще что-либо?
Проверь какой тип поля ID, поставь брейкпоинт перед Do Until и посмотри, происходит ли вход в цикл.

[miwutka]

VVitafresh

[Shasha]

miwutka, VVitafresh, в цикл не входит. что делать?

[Konst_One]

тип поля ID какой?
если числовой, то зачем в кавычки вставляешь

[miwutka]

значит рекордсет пустой.
перед циклом проверь чему равно rs.recordcount.
Если пусто, то на самом деле запрос меняй

[Konst_One]

Код: Выделить всё

Debug.Print rs.RecordCount
Do While Not rs.EOF
    lst.AddItem rs![id]
    rs.MoveNext
Loop

[Konst_One]

только смысла я в этом вообще не вижу, так как в итоге должна быть только одна 1 (единица всегда) в списке

[miwutka]

=)
у него цикл UNTIL
а для значений полей еще .value нада

[Nicky]

Странная конструкция:

Код: Выделить всё

WHERE [id] = " & Quote(strCity))

ИМХО id и город суть не одно и тоже. Вдобавок лишние пробелы в начале и конце strCity:

Код: Выделить всё

Private Function Quote(strVariable As String) As String
Quote = " ' " & strVariable & " ' "
End Function

[Al Khamid]

Во

[Shasha]

все поля текстовые... в id цифры. рекордсет пустой. я уже запутался

[VVitafresh]

все поля текстовые... в id цифры. рекордсет пустой. я уже запутался

Чего тут путаться, тебе ведь уже указали на замеченные ошибки. Перечитай ветку с самого начала.
Если не поможет -- открой Access, создай там запрос в конструкторе и посмотри, что выдается в результате его исполнения (и выдается ли вообще).

[Al Khamid]

Фу

[Shasha]

ВСЕМ БОЛЬШОЕ СПАСИБО ЗА СОВЕТЫ. ВОПРОС ЗАКРЫТ. БАЗА БЫЛА СОЗДАНА НЕ ВЕРНО. СПАСИБО.