Solved

Check for Table in Database

Posted on 2001-06-13
7
147 Views
Last Modified: 2010-05-02
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
Comment
Question by:ADawn
7 Comments
 
LVL 49

Expert Comment

by:Ryan Chong
ID: 6186201
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
 
LVL 1

Expert Comment

by:johnczimm
ID: 6186301
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
 
LVL 1

Expert Comment

by:manno
ID: 6186360
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 3

Expert Comment

by:Maxim10553
ID: 6186382
anybody have it in ADO?
0
 
LVL 28

Expert Comment

by:iboutchkine
ID: 6186393
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
 
LVL 43

Accepted Solution

by:
TimCottee earned 15 total points
ID: 6186434
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
 

Author Comment

by:ADawn
ID: 6194810
TimCottee
Works great - Thanks for the extra insight.

iboutchkine

I have posted points for you as well. Thanks
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now