| Вопрос: Помогите чайнику!!! | Добавлено: 13.11.02 16:05 |
Автор вопроса:  Kolyn
|
|
В Acces2000 при выполнении объекта Recordset процедуры ArraySum() в строке Set rst = CurrentDb.OpenRecordset("Данные", dbOpenDynaset) вознокает ошибка 3001 (Ошибочный аргумент) и rst остается равным 0, а dbOpenDynaset= ____________________________________________________________________________ Option Compare Database Public SArray() As Variant Public N As Integer Public MArray() As Variant Public Sub ArraySum() Dim res As Recordset Dim rst As Recordset Dim Среднее As Recordset Dim N As Integer Dim Sum As Integer Dim A As Integer N = 1 Sum = 0 Set rst = CurrentDb.OpenRecordset("Данные", dbOpenDynaset) Label2: SArray() = rst.GetRows(7) For i = 0 To 6 A = SArray(1, i) If A = Empty Then GoTo Label1 Else Sum = Sum + A End If Next i ReDim MArray(N) MArray(N) = Sum N = N + 1 rst.Move 8 GoTo Label2 Label1: rst.Close
End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Serge Gavrilov Вопросов: 0 Ответов: 2 |
Web-сайт: Профиль | | #1 | Добавлено: 14.11.02 22:45 |
|
В msa2000 по умолчанию включено ADO, а DAO отключено. Поэтому, если вы будете использовать только DAO, то сделайте наоборот, хотя можно указывать принадлежность объекта, если подключены обе библиотеки: Dim rst As DAO.Recordset Меню Tools-References (в окне VB) |
||
Страница: 1 |