Memeriksa Keberadaan (Eksistensi) Tabel Di Ms.Access Dengan DAO VB6

Berikut ini adalah cara memeriksa keberadaan (eksistensi) tabel di database microsoft access  di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commanbutton.
2. Tambahkan reference Microsoft DAO 3.51 Object Library.
3. Copy-kan coding berikut ke editor form yang bertalian.

          Public Function TableExists(DatabaseName$, TableName$) As Boolean
          'DataBaseName adalah nama file database yang akan diperiksa
          'apakah TableName ada di dalamnya

          Dim oDB As Database, td As TableDef
          On Error GoTo ErrorHandler
          'Sesuaikan dengan cara membuka file database yang dipassword
          'jika file database tersebut dipassword...

          Set oDB = Workspaces(0).OpenDatabase(DatabaseName)
          On Error Resume Next
            Set td = oDB.TableDefs(TableName)
            TableExists = Err.Number = 0
            oDB.Close

            Exit Function
          ErrorHandler:
            Select Case Err.Number
                   Case 3024

                        MsgBox "Database tidak ada!", _
                               vbCritical, "Database Error"
                        End
                   Case Else

                        MsgBox Err.Number & " - " & Err.Description
            End Select
            Exit Function
          End Function

          Private Sub Command1_Click()
          'Ganti "Akademik.mdb" di bawah dengan nama database Anda
          'dengan catatan masih terdapat dalam direktori yang sama
          'dengan program ini berada.

          DatabaseName$ = App.Path & "\Akademik.mdb"
          'Ganti "Mahasiswa" dengan nama tabel yang ingin Anda periksa.
          TableName$ = "Mahasiswa"
           Call TableExists(DatabaseName$, TableName$)

           If TableExists(DatabaseName$, TableName$) = True Then
              MsgBox "Tabel " & TableName$ & " ada!", vbInformation, "Tabel Ada"
           Else
              MsgBox "Tabel " & TableName$ & " tidak ada!", vbCritical, "Tidak Ada"
           End If

          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module