ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / run-tin error '13' type mismatch
17 сообщений из 17, страница 1 из 1
run-tin error '13' type mismatch
    #32602772
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Dim dbProfession As Database
Dim rstProd As Recordset

Set dbProfession = CurrentDb()
Set rstProd = dbProfession.OpenRecordset("WP", dbOpenTable)

Что за фигня? Какой тогда тип должен быть у rstProd?
Пробовал поменять на Recordsets тогда он не хочет выполнять rstProd.MoveFirst и т.п.
...
Рейтинг: 0 / 0
13.07.2004, 22:17:52
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602789
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
http://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 13.
...
Рейтинг: 0 / 0
13.07.2004, 22:50:22
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602795
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Спасибо, только теперь он выдаёт run-time error '91' Object variable or With block variable not set это с чего вдруг?
...
Рейтинг: 0 / 0
13.07.2004, 23:09:19
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602799
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Запускаю debug он, подвожу мышу к rstProd появляется всплывающая подсказка rstProd=Nothing. Это из-за того, что ссылка на таблицу неправильная? В базе есть таблица с именем WP.
...
Рейтинг: 0 / 0
13.07.2004, 23:16:58
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602805
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
zrumchikЗапускаю debug он, подвожу мышу к rstProd появляется всплывающая подсказка rstProd=Nothing.
На какой строке???
...
Рейтинг: 0 / 0
13.07.2004, 23:45:20
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602809
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Владимир Саныч zrumchikЗапускаю debug он, подвожу мышу к rstProd появляется всплывающая подсказка rstProd=Nothing.
На какой строке???
Set rstProd = dbProfession.OpenRecordset("WP", dbOpenTable)

Всё на той же.
...
Рейтинг: 0 / 0
13.07.2004, 23:47:34
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602810
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
До исполнения этой строки, естественно, Nothing.
...
Рейтинг: 0 / 0
13.07.2004, 23:48:58
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602813
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Кстати, Database тоже должно быть DAO.Database. Я сейчас подправил в факах.
...
Рейтинг: 0 / 0
13.07.2004, 23:51:25
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602817
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Владимир СанычКстати, Database тоже должно быть DAO.Database. Я сейчас подправил в факах.

Большое спасибо! Всё заработало. А как подсчитать количество полей в таблице?

rstProd.RecordCount считает количество записей, есть ли аналогичная штука для полей?
...
Рейтинг: 0 / 0
14.07.2004, 00:01:44
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602820
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
zrumchikА как подсчитать количество полей в таблице?
currentdb.tabledefs!имятаблицы.fields.count

zrumchikrstProd.RecordCount считает количество записей, есть ли аналогичная штука для полей?
Если нужно количество полей в рекордсете, а не в таблице, то:
rstProd.fields.count
...
Рейтинг: 0 / 0
14.07.2004, 00:05:18
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602823
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
А что нужно изменить в строке

Set rstProd = db.OpenRecordset("WP", dbOpenTable)

чтобы вместо таблицы открыть запрос?
...
Рейтинг: 0 / 0
14.07.2004, 00:17:50
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602825
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
dbOpenDynaset вместо dbOpenTable
...
Рейтинг: 0 / 0
14.07.2004, 00:23:33
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602831
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Ещё раз спасибо. Ну и последний на сегоднюшнюю ночь вопрос. Саныч, пожалуйста напиши кусок кода, который бы создавал рабочую книгу Ексель, в ней рабочий лист и делал бы только что созданный рабочий лист активным.

Заранее благодарю.
...
Рейтинг: 0 / 0
14.07.2004, 00:38:37
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602834
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(c)VIG
Участник
zrumchikЕщё раз спасибо. Ну и последний на сегоднюшнюю ночь вопрос. Саныч, пожалуйста напиши кусок кода, который бы создавал рабочую книгу Ексель, в ней рабочий лист и делал бы только что созданный рабочий лист активным.

Заранее благодарю.
...
Рейтинг: 0 / 0
14.07.2004, 00:45:47
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32602835
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
(c)VIG zrumchikЕщё раз спасибо. Ну и последний на сегоднюшнюю ночь вопрос. Саныч, пожалуйста напиши кусок кода, который бы создавал рабочую книгу Ексель, в ней рабочий лист и делал бы только что созданный рабочий лист активным.

Заранее благодарю.


Да я и так понимаю, что всех задолбал ;-)
...
Рейтинг: 0 / 0
14.07.2004, 00:46:54
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32603014
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Да, веселую видно ночку сегодня Саныч провел за кодингом До сих пор на форуме не появлялся
...
Рейтинг: 0 / 0
14.07.2004, 09:29:52
| Ответить | Цитировать | Написать  
run-tin error '13' type mismatch
    #32603188
zrumchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zrumchik
Гость
Так может кто-нибудь подскажет как сделать новый лист в книге?
Я правильно понимаю, что при выполнении CreateObject("Excel.Sheet") создатся новая книга с одним листом? Блин... чего-то я совсем запутался.
...
Рейтинг: 0 / 0
14.07.2004, 10:50:27
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / run-tin error '13' type mismatch
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1673224]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 15ms
get topic data:
 6ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 190ms
total:  266ms
созд. / загр.: 266ms
x
x
Закрыть


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