TopPicLogo TopPicText

Подключение указанной таблицы определённого MDB файла (DAO)

Public Function esConnectTableMDB(sBasePath As String, _
                srsTblName As String, _
                Optional newTblName As String = "", _
                Optional MakeHidden As Boolean = False) As Long
'es 30.06.2011
'Подключение указанной таблицы MDB файла
'--------------------------------------------------------------------
'Аргументы:
'   sBasePath     = Строка пути вида: "C:\Temp\MyDB.mdb"
'   srsTblName    = Исходное название таблицы в базе
'   newTblName    = Новое имя таблицы (по умолч. = srsTblName)
'   makeHidden    = Сделать скрытой (по умолч. = нет)
'При ошибке возвращает ее код
'--------------------------------------------------------------------
Dim db As DAO.Database
Dim tdf As DAO.TableDef
    
'Имя создаваемой таблицы
    If newTblName = "" Then newTblName = srsTblName
'Удаление старой (если есть)
On Error Resume Next
    Set db = CurrentDb
    db.TableDefs.Delete newTblName
    Err.Clear
'Создание и подключение
On Error GoTo ConnectToTableErr
    Set tdf = db.CreateTableDef(newTblName)
    tdf.Connect = ";DATABASE=" & sBasePath
    tdf.SourceTableName = srsTblName
    db.TableDefs.Append tdf

'Если указано что должна быть скрытая
    If MakeHidden = True Then tdf.Attributes = dbHiddenObject

ConnectToTableBye:
    On Error Resume Next
    Set tdf = Nothing
    db.Close
    Set db = Nothing
    Exit Function

ConnectToTableErr:
    esConnectTableMDB = Err.Number
    'Debug.Print Err.Description
    Resume ConnectToTableBye
End Function
Назад ToTop
L.E. 29.12.2012
Рейтинг@Mail.ru