Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ошибка!!!! помогите разобраться в чём дело 
:(
    Опции темы
Gannibal
Дата 12.4.2005, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
чё за ошибка никак непонят то всё работало пришёл со школы и ахты тебе ошибку начало кидать

procedure decalration does not match description of event or procedure having the same name


вот на эту строчку

Private Sub rsOdberatele_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Akina
Дата 12.4.2005, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Смотри где напахал с вызовом - или кол-во параметров, или тип неверный. Для быстрого поиска пробуй собирать кусками...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Gannibal
Дата 12.4.2005, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
всю прогу по частям? с начала? не ненадо шутить так.. smile я так поищю лутше ;) быстрее наверное будет.. мне уже путь дали куда податься надо попробывать ... ну всёравно пишите если чё найдёте и можете подсказать


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
~FoX~
Дата 13.4.2005, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Смотри, в референсах подключен Microsoft ADO, название функции ни где не повторяется.
Добавлено @ 08:13
И кстати, дай полную функцию.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Gannibal
Дата 13.4.2005, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
ну вот вся функция

Код

Private Sub rsDodavatele_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo chyba
If adReason = 10 And DE.rsDodavatele.RecordCount > 0 And DE.rsDodavatele.AbsolutePosition > 0 Then
If DE.rsDodavatelé.AbsolutePosition < 0 Then Exit Sub
Set Dodavatel = Nothing
Set Dodavatel = New C_Dodavatele
With Dodavatel
    Dodavatel.DIC = DE.rsDodavatele("дич").value
    Dodavatel.Email = DE.rsDodavatele("емаил").value
    Dodavatel.Fax = DE.rsDodavatele("фах").value
    Dodavatel.ICO = DE.rsDodavatele("ичо").value
    Dodavatel.ICQ = DE.rsDodavatele("ася").value
    Dodavatel.ID_Dodavatele = DE.rsDodavatele("ид_поставщика").value
    Dodavatel.Mesto = DE.rsDodavatele("город").value
    Dodavatel.Nazev_Dodavatele = DE.rsDodavatele("название поставшика").value
    Dodavatel.PSC = DE.rsDodavatele("псч").value
    Dodavatel.Telefon1 = DE.rsDodavatele("телефон1").value
    Dodavatel.Telefon2 = DE.rsDodavatele("телефон2").value
    Dodavatel.Ulice = DE.rsDodavatele("улица").value
    
End With
    frmDodavatele.Dodavatel = Dodavatel
End If
Exit Sub
chyba:
If Err.Number = 94 Then
    Resume Next
Else
    Exit Sub
    Resume
End If

End Sub



--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Akina
Дата 13.4.2005, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
M.E.G.U.S
Проверяй:
1) Не уплыл ли референс на компонент Microsoft ADO Data Control
2) Нет ли по коду явного вызова этого метода


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
~FoX~
Дата 13.4.2005, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Ну во превых
Код

With Dodavatel    
    .DIC = DE.rsDodavatele("дич").value    
    .Email = DE.rsDodavatele("емаил").value    
    .Fax = DE.rsDodavatele("фах").value    
    .............    
End With


Во вторых
Код

If DE.rsDodavatelé

Что за не понятный символ "é"

Она у тя ругается в процессе компиляции или при попытке вызова?



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Gannibal
Дата 13.4.2005, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
в процесе компиляции ругаеться ту самую ошибку выдаёт как писал символ поменял ничего непомогло а что с тем
Цитата

With Dodavatel   
    .DIC = DE.rsDodavatele("дич").value   
    .Email = DE.rsDodavatele("емаил").value   
    .Fax = DE.rsDodavatele("фах").value   
    .............   
End With


здесь проблемы нету


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Gannibal
Дата 13.4.2005, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
Цитата

M.E.G.U.S
Проверяй:
1) Не уплыл ли референс на компонент Microsoft ADO Data Control


слушаи у меня такой даже нету.. smile


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Akina
Дата 13.4.2005, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(M @ 12.4.2005, 18:22)
procedure decalration does not match description of event or procedure having the same name

Переводим: Объявление процедуры не соответствует описанию события либо процедуры, имеющей то же имя.

Т.е. у тебя имеется 2 разных описания этой процедуры - либо описание процедуры обработки события MoveComplete контрола уплыло (что возможно при отключении референса на контрол, замене на референс другой версии или при замене версии файла контрола), либо по тексту имется еще одна процедура rsDodavatele_MoveComplete - описание, декларация либо вызов.

Короче ищи где накосячено...
Добавлено @ 15:27
Цитата(M @ 13.4.2005, 16:22)
слушаи у меня такой даже нету.

нормально.. контрол есть а референса нет...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Gannibal
Дата 13.4.2005, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
всё проблему решил поставил себе сервис пак 6 и всё пошло нормально без проблем и ничего менять ненадо было.. всем спасибо за сотруднечество....


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
~FoX~
Дата 13.4.2005, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Ну смотри Microsoft Data Acsses Component, Microsoft ADO ext. или что то в этом роде.
Исходни то сам писал или скачал откуда?


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Gannibal
Дата 13.4.2005, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
с другом на пару писали


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Exception
Дата 14.4.2005, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Вообще-то у меня тоже такой трабл был. Это происходит когда описание события(параметры и их тип) отличается от его описания в object browser. Почему так происходит: в 2.2 и больше изменился тип Recordset. И в объявлении надо юзать As Recordset20 а не Recordset.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0941 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.