- Код: Выделить всё
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(номер строки) ???.