Проблемы с VB и БД

@iPactAvalanche · Регистрация: 02.08.2007

Author24 — интернет-сервис помощи студентам

Hi!
Вот код одной функции:

Visual Basic

Dim someNumber%
Dim i%
i = 0
someNumber = Int((TotalQinBase * Rnd) + 1) ' генерируем число
 
Дальше идет проверка уникальности этого числа
For i = 0 To TotalQAvailable Step 1
Do While someNumber = ArrayQ(i)
someNumber = Int((TotalQinBase * Rnd) + 1)
i = 0
Loop
Next i
ArrayQ(ArrayCounter) = someNumber
Data1.Recordset.AbsolutePosition = someNumber ' а вот тут run-tie error 3001 Invalid argument
 
Data1.Recordset.MoveNext
ArrayCounter = ArrayCounter + 1

Интересно то, что ошибка вылезает не всегда, а лишь с вероятность где-то 95%, т.е. почти всегда.

Помогите пожалуйста.

@iPactAvalanche · 13.08.2007, 15:10 **[ТС]**

Я понял, что дело в
Data1.Recordset.AbsolutePosition
Но вот в чем проблема?

@iPactAvalanche 0 / 0 / 0 Регистрация: 02.08.2007 Сообщений: 7
	13.08.2007, 15:10 [ТС]	2
	Я понял, что дело в Data1.Recordset.AbsolutePosition Но вот в чем проблема? 0

Опции темы