Imports System.Data.OleDb
Imports System.Data
Imports System.Windows.Forms
Public Class Query
Dim connection As OleDbConnection
Dim command As OleDbCommand
Dim DataAdapter As OleDbDataAdapter
Dim DataAdapterForConstrailn As OleDbDataAdapter
Dim bufferTable As DataTable
Public Sub New(ByVal Conn As String)
'процедура подключения к БД, строка подключения Conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=путь к бд\BD.mdb"
connection = New OleDbConnection(Conn)
bufferTable = New DataTable()
End Sub
Public Function UpDateTable(commandQuery As String) As DataTable
'функция возвращает данные по запросу commandQuery
'при попытке открытия соединения (connection.Open()), выдает ошибку "Сообщение об ошибке не предусмотрено, код результата: E_UNEXPECTED(0x8000FFFF)."
connection.Open()
DataAdapter = New OleDbDataAdapter(commandQuery, connection)
bufferTable.Clear()
DataAdapter.Fill(bufferTable)
connection.Close()
Return bufferTable
End Function
End Class