Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / опять GetRows / 4 сообщений из 4, страница 1 из 1
28.04.2004, 13:31
    #32500542
kat
kat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять GetRows
Привет всем. У меня не получается выкинуть полученные записи в массив MyArr (текст куска см. ниже). Вылезает сообщение "Can't assign to array". Подскажите, что делать. Заранее благодарна.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
     ...
    Const sSQL =  "SELECT QuestionID FROM Question" 
    Dim MyArr() As Variant
  
        MyName =  "QuestionID" 
        Set cn = New ADODB.Connection
        cn.ConnectionString = _
         "Driver=Microsoft Access Driver (*.mdb);DBQ=C:\Program files\DevStudio\VB\secutest.mdb" 
        cn.Open
        Set rs = New ADODB.Recordset
        rs.CursorType = adOpenKeyset
        rs.ActiveConnection = cn
        rs.Source = sSQL
        rs.Open
        
        rs.MoveLast
        Count = rs.RecordCount
    
        rs.MoveFirst
        MyArr = rs.GetRows(Count)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2004, 13:53
    #32500632
Processor
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять GetRows
В самом верху модуля вставь строку:
Код: plaintext
Option Explicit
(Count="твоя моя не понимай")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2004, 17:00
    #32501227
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять GetRows
вот так работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim rstt As ADODB.Recordset
Dim r() As Variant
   Set rstt= New Recordset
    With rstt
     .CursorType = adOpenDynamic
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Source =  "SELECT * FROM Transactions" 
     .Open .Source, cnn
   End With
r = rstt.GetRows

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2004, 16:15
    #32503071
kat
kat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять GetRows
cпасибо. Т.е., как я понимаю, все дело в CursorType, CursorLocation, LockType.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / опять GetRows / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]