Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Recordset в ADP / 16 сообщений из 16, страница 1 из 1
26.07.2004, 16:40:46
    #32621658
S. Fedorenko
S. Fedorenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Помогите, пожалуйста.
Есть таблица "Select"

в MDB у меня есть такой код:

Код: plaintext
1.
2.
3.
Dim rcd As DAO.Recordset
Set rcd = db.OpenRecordset("Select", dbOpenTable)

rcd.RecordCount

теперь переписываю всё на ADP и первая строка выдает ошибку.

Я в ADP новичок.

Подскажите, чем заменить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:42:12
    #32621662
S. Fedorenko
S. Fedorenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Ошибку выдает эта строка:

Код: plaintext
1.
Set rcd = db.OpenRecordset("Select", dbOpenTable)

У меня Access 2000, MS SQL Server 2000 ent ed.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:45:48
    #32621674
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
а как обьявлена db, как DAO.Database или просто Database
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:46:38
    #32621677
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Переходи на Access 2002 он правильней.
Код: plaintext
1.
2.
3.
4.
strSum = "SELECT balance.* From balance WHERE (balance.level_balance=" & i & ") and ((balance.type_balance)=1);"
    Set MyRst = New ADODB.Recordset
    MyRst.Open strSum, strcon, adOpenDynamic, adLockOptimistic, adCmdText
    While Not MyRst.EOF
например
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:48:45
    #32621681
S. Fedorenko
S. Fedorenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
TatianaTа как обьявлена db, как DAO.Database или просто Database

Код: plaintext
Dim db As DAO.Database
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:50:11
    #32621687
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
а какая ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:54:42
    #32621702
S. Fedorenko
S. Fedorenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
все понял.
ему не нравилось название таблицы "SELECT"

но, я переименовал таблицу и, на всякий случай, переделал так:

Код: plaintext
1.
2.
Dim rcd As Recordset
        Set rcd = New ADODB.Recordset
    rcd.Open "SelectMain", CurrentProject.Connection

Усё нормально вреде
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 16:55:27
    #32621703
zz
zz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
автортеперь переписываю всё на ADP и первая строка выдает ошибку.

Не подключена библиотека DAO.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:01:42
    #32621716
Latuk
Latuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
>rcd.RecordCount
Ежели собрался посчитать кол-во записей
то RecordCount у ADO рекордсете не заполненно пока last не сделаеш
А если только кло-во и нужно то следует посчитать его запросом
а на клиенте получить только готовый результат.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:05:14
    #32621728
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
2 Latuk
Да ладно?:) Про MoveLast-то:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:13:05
    #32621744
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
это в дао нужно было обязательно туда-сюда сбегать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:18:11
    #32621757
stag
stag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
to TatianaT
ничего подобного.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:32:46
    #32621790
Latuk
Latuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Давно уже рекордсеты нигде кроме формы заполнять не юзал
но точно помню где-то эта трабла была что приходилось MoveLast делать
(здесь помню,здесь не помню )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:33:06
    #32621792
S. Fedorenko
S. Fedorenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Про туда-сюда я знаю
Мне нужно знать ести ли там записи вообще, и если есть то Recordcount вернет мне >0 в любом случае. Поэтому туда-сюда мне нафиг тут не нужен. Всё равно спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:35:16
    #32621797
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Для этого есть EOF.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2004, 17:39:56
    #32621811
zz
zz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recordset в ADP
Если рекордсет ForwardOnly тогда RecordCount при открытии даст -1, насколько я помню. И убедиться в наличии записей можно

NOT (rst.EOF AND rst.BOF) =True если они (записи) есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Recordset в ADP / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 433ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1672940]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 71ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 232ms
total:  433ms
x
x
Закрыть


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