Помогите определить ошибку. / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите определить ошибку.

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

Помогите определить ошибку.

#34198835

Настенька

Участник

Откуда: Норильск

Сообщения: 940

Рейтинг: 0 / 0

есть запрос:

Код: plaintext

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

Dim cn1 As New ADODB.Connection
ss = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=ITSERVER;Integrated Security=SSPI;Initial Catalog=Tel1;Data Provider=SQLOLEDB.1"
cn1.Open ss
If rcd.State =  1  Then rcd.Close
ss = "SHAPE {select kod, ab1 'Абонент 1 уровня',cena_install 'Цена',plata 'Абон. плата' from spr_tariff where kod is not null} " _
& "APPEND ((shape{select kod1,kod2,ab1 'Абонент 1 уровня',cena_install 'Цена',plata 'Абон. плата' from spr_tariff} " _
& "APPEND ({select kod3,kod4,ab1 'Абонент 1 уровня',cena_install 'Цена',plata 'Абон. плата' from spr_tariff} relate kod2 to kod3)) relate kod to kod1)"
rcd.Open ss, cn1, adOpenKeyset, adLockOptimistic
Set TDBGrid1.DataSource = rcd

на моем компе всё работает великолепно, на другом пишет ошибку:
runtime error '429'
activex can't create object.
подозреваю, что это потому, что я ставила update для true dbgrid, а на другом компе не меняла старый ocx. но на 100 % не уверена.
хотелось бы услышать мнение профессионалов.

...

Рейтинг:

0 / 0

14.12.2006, 10:26

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

Помогите определить ошибку.

#34199034

Slice

Участник

Откуда: Москва

Сообщения: 94

Рейтинг: 0 / 0

Попробуйте создать Adodb.Connection Через CteateObject.
Отключите библиотеку ADO и замеите строку Dim cn1 As New ADODB.Connection
на
Dim cn1
Set cn1=CreateObject("ADODB.Connection")

...

Рейтинг:

0 / 0

14.12.2006, 11:08

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

Помогите определить ошибку.

#34199059

Настенька

Участник

Откуда: Норильск

Сообщения: 940

Рейтинг: 0 / 0

попробовала, не получается. вопрос: надо ли в XP перегистрировать ocx-ы, если они поменялись?
т.е. старая версия ocx лежит на другом компе в c:\winnt\system32, а также в самом корневом каталоге проги.
куда он обращается, в каталог или в system32?

...

Рейтинг:

0 / 0

14.12.2006, 11:11

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

Помогите определить ошибку.

#34199229

michael R

Участник

Откуда: из-за границы

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

Рейтинг: 0 / 0

Настя привет

я не уверен но проверь что на другом компе есть Mdac

...

Рейтинг:

0 / 0

14.12.2006, 11:47

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

Помогите определить ошибку.

#34199308

michael R

Участник

Откуда: из-за границы

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

Рейтинг: 0 / 0

делай инсталяшку для переноса на другой комп и тогда будут браться все компоненты

...

Рейтинг:

0 / 0

14.12.2006, 12:02

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

Помогите определить ошибку.

#34199568

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Настенькаподозреваю, что это потому, что я ставила update для true dbgrid, а на другом компе не меняла старый ocx. но на 100 % не уверена.
хотелось бы услышать мнение профессионалов.Trust your feelings, Luke...
michael Rделай инсталяшку для переноса на другой комп и тогда будут браться все компонентыВоистину...

...

Рейтинг:

0 / 0

14.12.2006, 12:52

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

Помогите определить ошибку.

#34200294

VladConn

Участник

Сообщения: 20 099

Рейтинг: 0 / 0

"...куда он обращается, в каталог или в system32? "

Настенька, попробуйте открыть ваш vbp файл через Notepad. Там в принципе может быть указан путь к сторонним dll, ехе, tlb и т.д.

VladConn

...

Рейтинг:

0 / 0

14.12.2006, 15:09

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

Помогите определить ошибку.

#34200765

Magnus23

Участник

Сообщения: 9 288

Рейтинг: 0 / 0

Настенькакуда он обращается, в каталог или в system32?
Регить заново надо всегда. А обращается он по пути указанному в регистре для зарегенного компонента.
Я помнится регил свои компоненты автоматически, во время сетапа, который кстати создавал с помощью Inno Setup.

...

Рейтинг:

0 / 0

14.12.2006, 16:50

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите определить ошибку.

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

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

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

start [/forum/topic.php?fid=60&msg=34198835&tid=2164805]:	0ms
get settings:	4ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	151ms
get topic data:	7ms
get forum data:	2ms
get page messages:	28ms
get tp. blocked users:	1ms
others:	207ms

total:	414ms

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