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

[Алексей К.]

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

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]

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

[alibek]

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

[Алексей К.]

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

[alibek]

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

[alibek]

Точно, перепутал, не Options, а Type.
set rs=db.OpenRecordset(a$,dbOpenDynaset)

[Алексей К.]

Спасибо!!!