Obtain table names from a adodc connection

by ajith chandrank (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 29^th September 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Obtain table names from a adodc connection



Dim CLG As New Catalog
Dim TBL As Table


Private Sub CmdBrowseDatabasePath_Click()
    CommonDialog1.Filter = "Microsoft Access File(*.mdb)|*.mdb"
    
    CommonDialog1.ShowOpen
    
    TxtDatabasePath.Text = CommonDialog1.FileName
    
    CON.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & CommonDialog1.FileName & " "
    
    Set CLG.ActiveConnection = CON
    
    For Each TBL In CLG.Tables
        
        CmbTable.AddItem TBL.Name
        
    Next
    
    CmbTable.ListIndex = 0
     
    Set CLG = Nothing
    
End Sub

Download this snippet Add to My Saved Code

Obtain table names from a adodc connection Comments

No comments have been posted about Obtain table names from a adodc connection. Why not be the first to post a comment about Obtain table names from a adodc connection.

Obtain table names from a adodc connection

Obtain table names from a adodc connection Comments

Post your comment

Difficulty