2014-09-20 4 views
0

Привет всем Я разработчик php, но, работая в организации, я получил работу над проектом vb6.Ошибка компиляции: метод или элемент данных не найден в vb6

Программное обеспечение довольно старое, допустим, по меньшей мере 10 лет, и я вообще не знаю vb6. Но все же мне удается решить некоторые ошибки, но теперь я застрял, и я не получил никакого решения. У меня есть эта ошибка при компиляции проекта, выделяя этот код.

с .Panels(6) = выбран.

Public Sub StatusBarDateTime() 
'' FrmMain.Stb1.Panels(5) = Time 
    FrmMain.Stb1.Panels(6) = Format(Date, "dd-mmm-yyyy") 
End Sub 

и когда я удалить эту строку на коде показать другую ошибку,

Compile error: 
Sub or Function not defined 

подсветка эту строку кодов

Private Sub MDIForm_Load() 
StatusBarDateTime 
End Sub 

Я предположил, что он декларирует функцию. поэтому я также удаляю эту функцию.

Теперь после удаления этого, когда я составил againg я получил эту ошибку, говоря, что

Run time error'481' 
Invalid picture 

и когда я нажимаю на отладки он показывает эту строку кода

Private Sub Form_Load() 
FrmMain.Show 
Dim strUser As String 
Call Center_Align(FrmLogin) 
OpenConnection 
strUser = "select * from TMUser order by login_name" 
rsUser.Open strUser, conpgdhm, adOpenKeyset, adLockOptimistic 
Set CmbUserID = rsUser 
CmbUserID = "login_name" 
CmbUserID = "login_id" 
End Sub 

highlihting Set CmbUserID = rsUser линии. и теперь я ничего не получил.

Я не знаю, сколько ошибок я могу получить после разрешения этого вопроса, но это следующая часть. Сначала я должен решить это. Я не знаю, как это решить.

Я уже два дня стучу головой, если кто-то может мне помочь.

Заранее спасибо.

+0

Ваше сообщение в замешательстве. Каков код, вызывающий ошибку? – Rob

+0

Когда я скомпилирую проект, код, в котором у меня возникла проблема, находится в этой функции 'Public Sub StatusBarDateTime()' – Waseem

+0

Возможно, вам не следует просто удалять строки кода и функции willy nilly ... Восстановить проект из SourceSafe или ваших резервных копий и начать снова. –

ответ

0

Это были полезны .... Причина это остановка есть, потому что вы пытаетесь присвоить DataReader (или любой другой тип объекта rsUser является) в качестве значения в строку или целого типа (CmbUserID) Вы пытаетесь чтобы поместить целый мешок прямоугольников в круглое целое. Это относится только к вашей последней ошибке. Основываясь на том, что я вижу здесь, вам не хватает опыта в VB6 для продолжения без какой-либо помощи. Я предлагаю консультанта. Надеюсь, это поможет.

Смежные вопросы