• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Obtain table names from a adodc connection

Obtain table names from a adodc connection

Obtain table names from a adodc connection

Rate Obtain table names from a adodc connection

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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