get a list of all tables in a database

• • Reply

  15 years ago

  by novavb6

  Barry Fensom

  Bundaberg QLD, Australia

  Joined 15 years ago

  Hi, is it possible to get a list of all the table names in a database? (vb6)

  ie: so the user can select a table to get data from, from a drop down list

  Report abuse
• • Reply

  15 years ago

  by novavb6

  Barry Fensom

  Bundaberg QLD, Australia

  Joined 15 years ago

  I worked it out.

  Here is the code I used. It lists all tables that have "IN" at the start of their name.

   

  Dim Cnxn As ADODB.Connection
     Dim rstSchema As ADODB.Recordset
     Dim strCnxn As String
       
     Set Cnxn = New ADODB.Connection
     strCnxn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\products.mdb"
     Cnxn.Open strCnxn
       
     Set rstSchema = Cnxn.OpenSchema(adSchemaTables)
    
     Do Until rstSchema.EOF
        If Mid(rstSchema!TABLE_NAME, 1, 2) = "IN" Then
        List1.AddItem Mid(rstSchema!TABLE_NAME, 3)
        End If
        rstSchema.MoveNext
     Loop
    
     ' clean up
     rstSchema.Close
     Cnxn.Close
     Set rstSchema = Nothing
     Set Cnxn = Nothing
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  Report abuse