Как связать элемент Data с другими кнопками

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Vale
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 22.11.2003 (Сб) 16:34

Как связать элемент Data с другими кнопками

Сообщение Vale » 23.11.2003 (Вс) 1:19

Можно ли управлять элементом Data другими кнопками ?

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 23.11.2003 (Вс) 17:01

Конечно!
Код: Выделить всё
With Data1.Recordset
.Move <кол-во позиций>
.MoveFirst 'в начало
.MovePrevious 'на 1 назад
.MoveNext 'на 1 вперёд
.MoveLast 'в конец
End With
Нет меня больше

Vale
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 22.11.2003 (Сб) 16:34

Сообщение Vale » 24.11.2003 (Пн) 23:51

Воспользовался Вашим кодом .
Вот что получилось.
Private Sub Command1_Click()
With Parle.Recordset
.MovePrevious
End With
End Sub
Private Sub Command2_Click()
With Parle.Recordset
.MoveNext
End With
End Sub
СПАСИБО. Кнопки работают ,только после последней позиции базы данных при нажатие кнопки появляется пустая таблица ,а дальше при нажатии кнопки программа глючит. Это происходит в обе стороны. И еще , можно ли определить номер таблицы б/д , мне было-бы проще работать с программой.

Netta
Новичок
Новичок
 
Сообщения: 37
Зарегистрирован: 25.11.2003 (Вт) 12:22
Откуда: Lithuanian

Сообщение Netta » 25.11.2003 (Вт) 13:01

Private Sub Command1_Click()
With Parle.Recordset
if .bof=true then exit sub
.MovePrevious
End With
End Sub

Private Sub Command2_Click()
With Parle.Recordset
if .eof then exit sub
.MoveNext
End With
End Sub

Rainbow
Человек-радуга
Человек-радуга
 
Сообщения: 543
Зарегистрирован: 13.05.2003 (Вт) 14:16

Сообщение Rainbow » 25.11.2003 (Вт) 19:49

Дело в том, что когда курсор в рекордсете стоит на последней записи, и выполняется MoveNext, то курсор встает ЗА последнюю запись - это Recordset.EOF. Аналогично после первой записи при MovePrevious курсор встанет на Recordset.BOF.

Скорее всего, тебе было бы удобно, если бы после последней записи пользователь оказывался на первой и наоборот.

Код: Выделить всё
Private Sub Command1_Click()
   With Parle.Recordset
       .MovePrevious
       if .bof=true then
             .MoveLast
       end if
    End With
End Sub

Private Sub Command2_Click()
    With Parle.Recordset
         .MoveNext
         if .eof then
               .MoveFirst
         end if
    End With
End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 7

    TopList