XPost: comp.lang.visual.basic.misc   
   From: nt_consulting64@yahoo.com   
      
   "Ralph"  wrote in message   
   news:R8adnUFZktlVcdnZnZ2dnUVZ_uudnZ2d@arkansas.net...   
   >   
   > "Steven Smith"  wrote in message   
   > news:TuY0g.2741$u27.1398@twister.nyroc.rr.com...   
   > > Thanks Karl... I would've preferred ADO or SQL, but since it's only for   
   > one   
   > > query in my program, this'll work just fine!   
   > >   
   > >   
   > > "Karl E. Peterson"  wrote in news:e210ej$3im$1   
   > > @emma.aioe.org:   
   > >   
   > > > Steven Smith wrote:   
   > > >> I have a vb6 (not .NET) program using MS Access as the backend. As   
   > > >> part of an import form, I need to allow the user to select the table   
   > > >> containing the data to be imported. How can I populate a combo with   
   > > >> this information? Then, once this value is selected, how can I   
   > > >> populate other combos with the column names of the selected table?   
   > > >   
   > > > Iterate the TableDefs collection looking at each item's Name property   
   to   
   > > > offer a choice of tables.  And, within each TableDef, you can loop the   
   > > > Fields collection.   
   > >   
   >   
   > Sub ListTablesADO()  Dim cnn  As ADODB.Connection  Set cnn = New   
   > ADODB.Connection  Dim rsTables  As ADODB.Recordset  Dim rsColumns As   
   > ADODB.Recordset  'Open connection you want To get database objects   
   > cnn.Provider = "MSDASQL" ' whatever needed...  cnn.Open   
   > "DSN=...;Database=...;", "UID", "PWD"    'Get all database tables.  Set   
   > rsTables = cnn.OpenSchema(adSchemaTables)   Do While Not rsTables.EOF   
   > 'Get all table columns.    Set rsColumns = cnn.OpenSchema(adSchemaColumns,   
   _   
   > Array(Empty, Empty, "" & rsTables("TABLE_NAME")))    Do While Not   
   > rsColumns.EOF      Debug.Print rsTables("TABLE_NAME") & ", " & _   
   > rsColumns("COLUMN_NAME")      rsColumns.MoveNext    Loop   
   > rsTables.MoveNext  LoopEnd SubSub ListTablesADOX()  Dim cnn  As   
   > ADODB.Connection  Set cnn = New ADODB.Connection    'Open connection you   
   > want To get database objects  cnn.Provider = "MSDASQL" ' whatever you   
   > need...  cnn.Open "DSN=...;Database=...;", "UID", "PWD"    'Create catalog   
   > object  Dim Catalog As New ADOX.Catalog  Set Catalog.ActiveConnection =   
   cnn   
   > 'List tables And columns  Dim tbl As ADOX.Table  Dim col As ADOX.Column   
   For   
   > Each tbl In Catalog.Tables    Debug.Print tbl.Name    For Each col In   
   > tbl.Columns      Debug.Print col.Name    Next  NextEnd Sub   
   >   
      
   Sorry, don't know what happened to the paste...   
      
   Sub ListTablesADO()   
       Dim cnn       As ADODB.Connection:   
       Set cnn = New ADODB.Connection   
        Dim rsTables  As ADODB.Recordset   
        Dim rsColumns As ADODB.Recordset   
            'Open connection you want To get database objects   
        cnn.Provider = "MSDASQL" ' whatever needed...   
        cnn.Open "DSN=...;Database=...;", "UID", "PWD"   
            'Get all database tables.  Set   
        rsTables = cnn.OpenSchema(adSchemaTables)   
        Do While Not rsTables.EOF   
             'Get all table columns.   
             Set rsColumns = cnn.OpenSchema(adSchemaColumns, _   
                  Array(Empty, Empty, "" & rsTables("TABLE_NAME")))   
             Do While Not rsColumns.EOF   
                  Debug.Print rsTables("TABLE_NAME") & ", " & _   
                       rsColumns("COLUMN_NAME")   
                  rsColumns.MoveNext   
             Loop   
             rsTables.MoveNext   
        Loop   
   End Sub   
      
   Sub ListTablesADOX()   
        Dim cnn  As ADODB.Connection   
        Set cnn = New ADODB.Connection   
            'Open connection you want To get database objects   
        cnn.Provider = "MSDASQL" ' whatever you need...   
        cnn.Open "DSN=...;Database=...;", "UID", "PWD"   
            'Create catalog object   
        Dim Catalog As New ADOX.Catalog   
        Set Catalog.ActiveConnection = cnn   
            'List tables And columns   
        Dim tbl As ADOX.Table   
        Dim col As ADOX.Column   
        For Each tbl In Catalog.Tables   
             Debug.Print tbl.Name   
             For Each col In tbl.Columns   
               Debug.Print col.Name   
             Next   
        Next   
   End Sub   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)