dBASE IV, пермещение по записям

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

dBASE IV, пермещение по записям

Сообщение Алексей К. » 25.10.2004 (Пн) 11:09

Код: Выделить всё
dim dbf As DAO.Database, rs As DAO.Recordset
Base = App.Path + "\"
Table = "k010103"
строка = Form1.Text1.Text
Set dbf = DAO.OpenDatabase(Base, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
a$ = "select * from " & Table
Set rs = dbf.OpenRecordset(a$)
rs.GetRows (512)
rs.MoveFirst
For i = 1 To 512
    rs.MoveNext
    if i=256 then text1.text=rs.Fields(1)
Next i
rs.Close
dbf.Close
Set rs = Nothing
Set dbf = Nothing

Как мне сразу встать на 256 строку, без прогона в цикле?
Может есть способ типа rs.moveto(номер строки) ???.

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 25.10.2004 (Пн) 11:19

Может, какой-нить Seek, или Find, или как-то там похоже?..

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 25.10.2004 (Пн) 11:30

Seek тут не подойдет.
Просто открой рекордсет как Dynaset, там можно будет использовать rs.Move 256.
Lasciate ogni speranza, voi ch'entrate.

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 25.10.2004 (Пн) 11:49

"Просто открой рекордсет как Dynaset"
А это как ?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 25.10.2004 (Пн) 12:44

Во флаге открытия (помоему Options, лучше проверь в справке) укажи dbDynaset. Это наиболее функциональный тип рекордсета и перемещение в нем поддерживается в полном объеме.
Lasciate ogni speranza, voi ch'entrate.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 25.10.2004 (Пн) 12:46

Точно, перепутал, не Options, а Type.
set rs=db.OpenRecordset(a$,dbOpenDynaset)
Lasciate ogni speranza, voi ch'entrate.

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 25.10.2004 (Пн) 13:17

Спасибо!!! :D


Вернуться в Базы данных

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList