Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > ошибка!!!!

Автор: Gannibal 12.4.2005, 17:22

чё за ошибка никак непонят то всё работало пришёл со школы и ахты тебе ошибку начало кидать

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)

Автор: Akina 12.4.2005, 17:54

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

Автор: Gannibal 12.4.2005, 18:06

всю прогу по частям? с начала? не ненадо шутить так.. smile

я так поищю лутше ;) быстрее наверное будет.. мне уже путь дали куда податься надо попробывать ... ну всёравно пишите если чё найдёте и можете подсказать

Автор: ~FoX~ 13.4.2005, 08:11

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

Автор: Gannibal 13.4.2005, 14:45

ну вот вся функция

Код


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

Автор: Akina 13.4.2005, 14:57

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

Автор: ~FoX~ 13.4.2005, 14:59

Ну во превых

Код


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

Во вторых

Код


If DE.rsDodavatelé

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

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

Автор: Gannibal 13.4.2005, 15:10

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

Цитата

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

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

Автор: Gannibal 13.4.2005, 15:22

Цитата

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

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

Автор: Akina 13.4.2005, 15:25

Цитата(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)

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

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

Автор: Gannibal 13.4.2005, 15:49

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

Автор: ~FoX~ 13.4.2005, 15:50

Ну смотри Microsoft Data Acsses Component, Microsoft ADO ext. или что то в этом роде.
Исходни то сам писал или скачал откуда?

Автор: Gannibal 13.4.2005, 15:55

с другом на пару писали

Автор: Exception 14.4.2005, 17:56

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