Jobs
Author: ajith chandrank Date Submitted: 9/29/2006 Category: Database Compatibility: VB 6 This code has been accessed 10800 times.
Email Yourself this snippet:
No declarations
Code
Dim CON As New ADODB.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
