Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 158
  • Last Modified:

Check for Table in Database

Hello,

VB6(sp4), ADO, Access 97

Prior to my starting application, I check for the proper database and path:

If Dir$(App_Inventory) = 0 then ...do somthing

Next, I want check to see if the database that my application is about to connect to is (in fact) the correct database. To verify this, I'd like to check the first table ( tbl_KGRM ) to make sure it is the correct database.

Thanks,
-ADawn
0
ADawn
Asked:
ADawn
1 Solution
 
Ryan ChongCommented:
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.
0
 
johnczimmCommented:
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
0
 
mannoCommented:
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
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
Maxim10553Commented:
anybody have it in ADO?
0
 
iboutchkineCommented:
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
0
 
TimCotteeCommented:
ADawn, you could always use the ADOX library to enumerate the tables:

Private Sub Command1_Click()
    Dim cnn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim tblTable As ADOX.Table
    Dim blnExists As Boolean
    Set cnn = New ADODB.Connection
    Set cat = New ADOX.Catalog
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\testbed\cremosa2k.mdb;Persist Security Info=False"
    cnn.Open
    cat.ActiveConnection = cnn.ConnectionString
    For Each tblTable In cat.Tables
        If tblTable.Name = "MyTable" Then
            blnExists = True
            Exit For 'as we have found it
        End If
    Next
    cnn.Close
    Set cat.ActiveConnection = Nothing
    Set cat = Nothing
    Set cnn = Nothing
    MsgBox "Table : MyTable " & IIf(blnExists, "Exists", "Does Not Exist")
End Sub

Is an example of how this could be done.
0
 
ADawnAuthor Commented:
TimCottee
Works great - Thanks for the extra insight.

iboutchkine

I have posted points for you as well. Thanks
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now