Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Поиск таблицы в базе из VBA

Автор: BMNDED 13.7.2015, 14:56

Приветствую. Подскажите, плиз.
При выполнении кода в VBA нужно определить есть ли искомая таблица в базе Access.

Автор: Akina 13.7.2015, 15:09

Смотрим коллекцию DAO.Tabledefs, например...

Автор: BMNDED 13.7.2015, 15:18

Смотрел. Есть ли конкретная функция, при возврате из которой будет true или false? Циклами гонять на сравнение всех таблиц вроде бы как тоже не камильфо.
Можно выкрутится и так конечно:

Dim db As Database
Dim td As TableDef
Dim tds As TableDefs
Dim j As Integer

Set db = CurrentDb
Set tds = db.TableDefs
j = tds.Count
Do While j > 0
    j = j - 1
    Set td = tds(j)
    If td.Name = "0" Then

    . . .

    End If
Loop
Set tds = Nothing

Но может кто знает метод попроще?

Автор: Akina 13.7.2015, 21:56

Описывайте цель... ну скажем есть (или скажем нет) - и что дальше?

Автор: BMNDED 16.7.2015, 12:15

Если такой разговор, то ну вас на...
Если знаешь то напиши, я же не все приложение прошу навоять!
А если выделываться и говорить знаю но не скажу - это цирк!

Автор: bopoha 26.7.2015, 19:25

Есть вариант по изящней. но, если через DAO, то придется перебирать.
можете посмотреть в сторону ADODB там можно схему бд запросить.

Код


Public Function CM_TableExist(ByVal tblName As String, Optional ByRef dbSrc As DAO.Database) As Boolean
' создана: 2003-11-27

' определяет существует ли такая таблица
' вход: TblName - имя таблицы
' выход: Возвращает True, если таблица существует
On Error GoTo Err_
   
    Dim TBL As TableDef, db As DAO.Database
   
    VC_TableExist = False
    '-- по умолчанию используется текущая база данных
    If dbSrc Is Nothing Then
         Set db = CurrentDb
    Else
        Set db = dbSrc
    End If
    '-- поиск таблицы в базе
    For Each TBL In db.TableDefs
        If TBL.Name = tblName Then
            CM_TableExist = True
            Exit For
        End If
    Next

Exit_:
    Exit Function
Err_:
    Debug.Print Date, Time, "CM_TableExist", Err.Number, Err.Description
'    MsgBox Err.Description
    Resume Exit_
End Function

Автор: BMNDED 4.8.2015, 13:21

Спасибо за помощь.