Home > Lập trình > Access – Kiểm tra sự tồn tại của table

Access – Kiểm tra sự tồn tại của table


Kiểm tra xem 1 bảng có tồn tại trong cơ sở dữ liệu hay không

Option Compare Database
Option Explicit

Function isTableExists(sTableName As String, db As DAO.Database) As Boolean
    Dim i As Integer
    For i = 0 To db.TableDefs.Count - 1
        If db.TableDefs(i).Name = sTableName Then
            isTableExists = True
            Exit For
        End If
    Next i
End Function

Private Sub test_Click()
    'Kiem tra bang tbNhanvien co ton tai hay khong
    Dim db As DAO.Database
    Dim blKetqua As Boolean
    Set db = CurrentDb
    blKetqua = isTableExists("tbNhanvien", db)
    If blKetqua Then
        MsgBox "Bang ton tai"
    Else
        MsgBox "Bang khong ton tai"
    End If
End Sub
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: