Как определить - существует ли таблица в базе ?

Dev Ashish

 

Как определить - существует ли таблица в базе ?

 

 Самый простой путь - это рекурсивно пройтись по коллекции TableDefs базы данных. К примеру, следующая функция возвращает True, если искомая таблица существует, False, если не существует.

'******************** Code Start ************************

' This code was originally written by Dev Ashish.

' It is not to be altered or distributed,

' except as part of an application.

' You are free to use it in any application,

' provided the copyright notice is left unchanged.

' Code Courtesy of

' Dev Ashish

Function fExistTable(strTableName As String) As Integer

Dim db As Database

Dim i As Integer

Set db = DBEngine.Workspaces(0).Databases(0)

fExistTable = False

db.TableDefs.Refresh

For i = 0 To db.TableDefs.Count - 1

    If strTableName = db.TableDefs(i).Name Then

        'Table Exists

        fExistTable = True

        Exit For

    End If

Next i

Set db = Nothing

End Function

назад



 
 

Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=7324