Run-time error 430 / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Run-time error 430

8 сообщений из 8, страница 1 из 1

Run-time error 430

#32663039

Сергей Борисович

Гость

A2000 при попытке выполнить данный код:

Код: plaintext

Set con = Application.CurrentProject.Connection

Выдаёт ошибку
Mircosoft Visual BasicRun-time error 430:
Class does not support Automation or does not support expected interface
Как получить этот Connection?

...

Рейтинг:

0 / 0

24.08.2004, 14:03:12

| Ответить | Цитировать | Написать

Run-time error 430

#32663049

Deminik

Участник

Откуда: Новосибирск

Сообщения: 745

Рейтинг: 0 / 0

Ссылка на ADO ?

...

Рейтинг:

0 / 0

24.08.2004, 14:05:54

| Ответить | Цитировать | Написать

Run-time error 430

#32665392

Сергей Борисович

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Dim stSql As String
stSql = "SELECT * FROM tbl1"

Dim con As Object
Set con = Application.CurrentProject.Connection

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con,  1

...

Рейтинг:

0 / 0

25.08.2004, 17:20:03

| Ответить | Цитировать | Написать

Run-time error 430

#32665451

ищ

Гость

Dim con As ADODB.Connection

...

Рейтинг:

0 / 0

25.08.2004, 17:39:42

| Ответить | Цитировать | Написать

Run-time error 430

#32665455

Hummer

Участник

Сообщения: 2 447

Рейтинг: 0 / 0

Dim rs as new adodb.recordset
rs.open {}

...

rs.close: set rs = nothing.

...

Рейтинг:

0 / 0

25.08.2004, 17:41:12

| Ответить | Цитировать | Написать

Run-time error 430

#32677765

Сергей Борисович

Гость

Явное описание типа данных не помогает.

Я думаю, проблема в том, что на компьютере стоит A97 и А2000
(данный код работает на других компьютерах, где стоит только A2000)

...

Рейтинг:

0 / 0

02.09.2004, 15:20:17

| Ответить | Цитировать | Написать

Run-time error 430

#32677811

Alexey Sh

Участник

Откуда: SPB

Сообщения: 1 940

Рейтинг: 0 / 0

на ADO библиотеку ссылка есть? (Tools->References)

...

Рейтинг:

0 / 0

02.09.2004, 15:38:24

| Ответить | Цитировать | Написать

Run-time error 430

#32677889

Сергей Борисович

Гость

Да, Microsoft ActiveX Data Objects 2.1 Library.

Я решил посмотреть версию msado21.tlb:
на том компе, где стоит и А97, и А2000 - 2.50.4403.4
Где только А2000 - 2.71.9030.0
Понятное дело загвоздка в этом...

Каким образом переустановить ADO?
(простая переустановка А2000 со всеми компонентами не помогает)

...

Рейтинг:

0 / 0

02.09.2004, 16:11:30

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Run-time error 430

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32677889&tid=1672018]:	0ms
get settings:	8ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	51ms
get topic data:	8ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	200ms

total:	331ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы