Перенес программу VB6 на другой компьютер. Зарегистрировал все, что нужно. При запуске появляется надпись " run-time error - Rowset non available"
На компьютере, где VB6 установлен, такого нет.
Что это за ошибка - 70005?
Подскажите, пожалуйста!
Rowset non available
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 10
• Страница 1 из 1
- Summer.05
- Бывалый
-
- Сообщения: 285
- Зарегистрирован: 28.12.2005 (Ср) 20:19
- Откуда: Москва
Rowset non available
Summer.05 » 10.05.2006 (Ср) 20:29
- Summer.05
- Бывалый
-
- Сообщения: 285
- Зарегистрирован: 28.12.2005 (Ср) 20:19
- Откуда: Москва
Summer.05 » 12.05.2006 (Пт) 9:33
В Log:
Line 169: Class MSAdodcLib.Adodc of control Adodc1 was not a loaded control class.
Line 215: Class MSDataGridLib.DataGrid of control DataGrid1 was not a loaded control class.
Код открытия базы:
Private Sub Form_Load()
Dim strPath As String
' Change this path if needed.
strPath = App.Path & "/" & "DB/db1.mdb"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.CommandType = adCmdText
.RecordSource = "SELECT * FROM DB"
.Refresh
End With
Text1.Text = DataGrid1.ApproxCount
End Sub
Private Sub Text_Filter_Change()
On Error GoTo L_Err
If Text_Filter = "" Then
With Adodc1
.RecordSource = "SELECT DB.Name From DB"
End With
Else
With Adodc1
.RecordSource = "SELECT DB.Name From DB WHERE DB.Name Like '*'"
.Recordset.Filter = "Name like '" & Text_Filter & "*'"
End With
Text9.Text = DataGrid1.ApproxCount
L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit
End If
End Sub
Спасибо!
Line 169: Class MSAdodcLib.Adodc of control Adodc1 was not a loaded control class.
Line 215: Class MSDataGridLib.DataGrid of control DataGrid1 was not a loaded control class.
Код открытия базы:
Private Sub Form_Load()
Dim strPath As String
' Change this path if needed.
strPath = App.Path & "/" & "DB/db1.mdb"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.CommandType = adCmdText
.RecordSource = "SELECT * FROM DB"
.Refresh
End With
Text1.Text = DataGrid1.ApproxCount
End Sub
Private Sub Text_Filter_Change()
On Error GoTo L_Err
If Text_Filter = "" Then
With Adodc1
.RecordSource = "SELECT DB.Name From DB"
End With
Else
With Adodc1
.RecordSource = "SELECT DB.Name From DB WHERE DB.Name Like '*'"
.Recordset.Filter = "Name like '" & Text_Filter & "*'"
End With
Text9.Text = DataGrid1.ApproxCount
L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit
End If
End Sub
Спасибо!
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 12.05.2006 (Пт) 19:44
Summer.05 писал(а):А делать-то что?
Что непонятно:
Что вызывает ошибку?
Как бороться с ошибкой?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Summer.05
- Бывалый
-
- Сообщения: 285
- Зарегистрирован: 28.12.2005 (Ср) 20:19
- Откуда: Москва
Summer.05 » 12.05.2006 (Пт) 22:54
Да, именно так: непонятна причина, почему программа работает на одном компьютере, а, будучи перенесенной на другой, выдает такой лог.
Каким образом это возможно исправить? Что-то не так в коде?
Спасибо!
Каким образом это возможно исправить? Что-то не так в коде?
Спасибо!
Сообщений: 10
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 132