Вот такая проблема: при выполнении программа выдает ошибку "Объект 'expr1002' не найден ядром базы данных Microsoft Jet. Проверьте существование объекта и правильность имени и пути."
Ошибка возникает при заполнении DataSet через DataAdapter, причем независимо от того заполняется ли через SqlDataAdapter, OleDbDataAdapter или DbDataAdapter.
Сообщение вылазит при работе с любой бд.
Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=D:\TEMP\BD.MDB"
Dim objConnection1 As New OleDb.OleDbConnection
objConnection1.ConnectionString = strConnect
objConnection1.Open()
Dim ds As New DataSet
Dim dc As New OleDb.OleDbCommand
dc.Connection = objConnection1
dc.CommandText = "select * from tablelichdan"
Dim da As New OleDb.OleDbDataAdapter
da.SelectCommand = dc
da.Fill(ds) ' Ошибка возникает здекь
Dg1.DataSource = ds.Tables(0)
objConnection1.Close()
Этот же код на другой машине прекрасно работает.
Что делать?
Ошибка возникает при заполнении DataSet через DataAdapter, причем независимо от того заполняется ли через SqlDataAdapter, OleDbDataAdapter или DbDataAdapter.
Сообщение вылазит при работе с любой бд.
Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=D:\TEMP\BD.MDB"
Dim objConnection1 As New OleDb.OleDbConnection
objConnection1.ConnectionString = strConnect
objConnection1.Open()
Dim ds As New DataSet
Dim dc As New OleDb.OleDbCommand
dc.Connection = objConnection1
dc.CommandText = "select * from tablelichdan"
Dim da As New OleDb.OleDbDataAdapter
da.SelectCommand = dc
da.Fill(ds) ' Ошибка возникает здекь
Dg1.DataSource = ds.Tables(0)
objConnection1.Close()
Этот же код на другой машине прекрасно работает.
Что делать?