XPost: comp.lang.visual.basic.misc   
   From: nt_consulting64@yahoo.com   
      
   "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   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)