VBNet - Форум - Неполучается нормальная навигация по записям БД...

Вопрос: Неполучается нормальная навигация по записям БД... Добавлено: 28.03.04 20:55

Автор вопроса: Srg | Web-сайт: serg-comp.narod.ru

Неполучается навигация по записям БД с помощью методов MoveNext и MovePrevious. Т.е. при щелчку по кнопке в TextBox'е после первой записи отображается сразу последняя, а надо естественно, чтобы по щелчку был переход на следующую запись, как в эл-те Data (в VB6).Ниже приведён код , который я написал.
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        con = New ADODB.Connection()
        rs = New ADODB.Recordset()
        con.Provider = "Microsoft.Jet.OLEDB.4.0"
        con.Open("Data Source=c:\vb\1\nw.mdb")
        rs.ActiveConnection = con
        rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
        rs.LockType = ADODB.LockTypeEnum.adLockOptimistic
        rs.Open("Cards")
        Do While rs.EOF = False
            TextBox1.Text = rs(1).Value
            TextBox2.Text = rs(2).Value
            rs.MoveNext()
         Loop
         End Sub

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #1	Добавлено: 30.03.04 05:33
	Do While rs.EOF = False TextBox1.Text = rs(1).Value TextBox2.Text = rs(2).Value rs.MoveNext() Loop Все правильно, судя по этому куску кода. Записи перебираются до последней. Сделай так, без цикла: rs.MoveNext() TextBox1.Text = rs(1).Value TextBox2.Text = rs(2).Value Сначала перейди ко второй, а потом отображай. Но мне кажется, что, при следующем клики, ты опять получишь 2-ю запись. Инициируй Recordset и connection один раз(например, при запуске). Ответить

Страница: 1 |