ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / опять GetRows
4 сообщений из 4, страница 1 из 1
опять GetRows
    #32500542
kat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kat
Гость
Привет всем. У меня не получается выкинуть полученные записи в массив 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:31
| Ответить | Цитировать | Написать  
опять GetRows
    #32500632
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
В самом верху модуля вставь строку:
Код: plaintext
Option Explicit
(Count="твоя моя не понимай")
...
Рейтинг: 0 / 0
28.04.2004, 13:53
| Ответить | Цитировать | Написать  
опять GetRows
    #32501227
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
вот так работает
Код: 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
28.04.2004, 17:00
| Ответить | Цитировать | Написать  
опять GetRows
    #32503071
kat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kat
Гость
cпасибо. Т.е., как я понимаю, все дело в CursorType, CursorLocation, LockType.
...
Рейтинг: 0 / 0
29.04.2004, 16:15
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / опять GetRows
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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