• Дашуля
  • Восстановленный участник
  • На форуме с 23 апреля 2008г.
  • Сообщений: 114
  • Спасибо: 0

Тема: Access

На форуме была тема про Аксес, где был следующий код:

Public Function MY1()
    Dim p As Variant
    p = ThisDrawing.Utility.GetPoint(, "Start point:")
    Dim MyTable As AcadTable
    Set MyTable = ThisDrawing.ModelSpace.AddTable(p, 5, 5, 10, 30)
    Set db = OpenDatabase("d:\1.mdb", 0, False, key)
    Set rs = db.OpenRecordset("SELECT * FROM T1")
    i = 1
    While ((Not rs.EOF) And (i <= 4))
            MyTable.SetText i, 0, rs.Fields("Nazv").Value
            MyTable.SetText i, 1, rs.Fields("Nomer").Value
            rs.MoveNext
            i = i + 1
    Wend
End Function

В этом коде последовательно вставляются данные из первого и второго столбца базы данных при помощи rs.Fields.
А rs.MoveNext двигает на следующую строку.
А как обратиться сразу например на 10 строку????
Пыталась

rs.Fields(10)

- не выходит!
Помогите пожалуста!

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Access

rs.MoveFirst
rs.Move 9,0

9 потому что начинаются с 0.
Move - этот метод принимает два параметра: NumRecords - на сколько записей необходимо переместиться (это число может быть и отрицательным, что значит - переместиться назад) и второй метод - необязательный - имя закладки, с которой нужно начать перемещение. Можно использовать три встроенные закладки: для текущей, первой и последней записи. Если имя закладки не указано, то перемещение начинается с текущей позиции.

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Access

Ой, второй аргумент можно опустить.

rs.Move 9

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Access

Дашуля, темы вы конечно мастерски называете )
Можете просто называть все свои темы "Программирование". )
Информативности 0.