• Trang chủ click to expand contents 

  • Hàm kiểm tra sự tồn tại của table

  • Hàm kiểm tra sự tồn tại của table

    Noname > 15-08-10, 01:14 PM

    Mã:
    Public Function KIEMTRA(TableName As String)As Boolean
       ' Khai báo biến cục bộ truy xuất đến Database Access
         Dim DB As Database
       ' Biến N lưu trữ số Tables của Database (dùng Byte là đủ)
         Dim N As Byte
       ' Biến i để duyệt qua từng Table
         Dim i As Byte
       ' Khởi tạo biến DB
        Set DB = DBEngine.Workspaces(0).Databases(0)
       ' Lấy số Tables có trong Database
        n = DB.TableDefs.Count
      ' Duyệt tuần tự từng Table
        For i = 0 To n - 1
             ' Nếu tên Table thứ i bằng với tên Table muốn tìm
             If DB.TableDefs(i).Name = TableName Then
                 ' Hàm trả về giá trị TRUE
                  KIEMTRA = True
                 ' Thoát khỏi hàm
                   Exit Function
              End If
         ' Chuyển qua Table kế
           Next i
         ' Nếu ra khỏi vòng lặp mà vẫn chưa tìm thấy thì hàm trả về False
           KIEMTRA = False
      End Function