Check for Table in Database

Hi, actually i don't know how to use ADO to retrieve all tables content in a database. But in the case of using Data Control from Toolbox, yes!:

Data1.RecordSource = "Select * from Lead"
    Data1.Refresh
    For i = 1 To Data1.Database.TableDefs.Count
        List2.AddItem Data1.Database.TableDefs(i - 1).Name
    Next i

'Hope can help you little.

Here is the function I use.  It uses DAO, but it should give you an idea of how to do it.

Public Function dbTableExists(sTableName As String) As Boolean
' returns true if the table exists in the database
Dim i As Integer
Dim Db As DAO.Database
    dbTableExists = False
    Set Db = OpenDatabase(dbName$)
    For i = 0 To Db.TableDefs.Count - 1
        If Trim(UCase(Db.TableDefs(i).Name)) = Trim(UCase(sTableName)) Then dbTableExists = True
    Next i
    Db.Close
End Function

For i = 0 To Db.TableDefs.Count - 1
       If Trim(UCase(Db.TableDefs(i).Name)) = Trim(UCase(sTableName)) Then

            dbTableExists = True
           
            Exit Function

       endif

 Next i

anybody have it in ADO?

set a reference to the Microsoft ADO Ext 2.1 for DLL and Security then paste this code:


Dim SourceCat as ADOX.Catalog
Dim SrcTbl    as ADOX.Table
Dim oColumn   as ADOX.Column
Dim x as      as Integer

set SourceCat = new ADOX.Catalog
SourceCat.ActiveConnection = "Your Regular ADO connecionstring"
for x = 1 to SourceCat.Tables.Count  
List1.AddItem SourceCat.Tables(x).Name
next x
set SourceCat = nothing

Instead of adding table to the listbox you can check if it is a desired table name

TimCottee
Works great - Thanks for the extra insight.

iboutchkine

I have posted points for you as well. Thanks