List of tables using ADODC


DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

Results 1 to 2 of 2

Thread: List of tables using ADODC

  1. #1
    gs_london Guest

    List of tables using ADODC


    Hi there,
    Im trying to connect to a database and retrieve a list of the tables contained.

    At present i have this code which is the equivilent using the Windows CE
    dev environment.
    This returns al the available tables.

    Is there a similar way to do this using ADODC
    TIA
    gs

    ==
    Set rs = CreateObject("ADOCE.Recordset.3.0")
    rs.Open "MSysTables", conndb, adOpenKeyset, adLockOptimistic
    RecordCount = rs.RecordCount
    For arb1 = 0 To RecordCount - 1
    List1.AddItem rs.Fields("TableName").Value
    rs.MoveNext
    Next
    rs.Close
    Set rs = Nothing
    Set conndb = Nothing
    ==

  2. #2
    Omar Guest

    Re: List of tables using ADODC


    To gs_London,

    You could customise/get inspiration from this code:


    The main things is:
    Dim rstSchema As ADODB.Recordset
    '*** Open our database schema
    Set rstSchema = LCon.OpenSchema(adSchemaTables)

    ublic Sub DeleteDatabase()
    On Error GoTo Errorhandler

    Dim LCon As ADODB.Connection
    Dim rstSchema As ADODB.Recordset
    Dim LsSQL As String


    Set LCon = New ADODB.Connection

    LCon.Open CONST_ARCHIVE_LConString

    '*** Open our database schema
    Set rstSchema = LCon.OpenSchema(adSchemaTables)

    Do Until rstSchema.EOF

    '*** Only return user-defined tables beginning with 'arc'
    If UCase(Left(rstSchema!TABLE_NAME, 3)) = CONST_TABLE_START_WITH_ARC Then
    LsSQL = "DROP Table " & rstSchema!TABLE_NAME
    Call modDataAccess.RunSQLCode(LsSQL, CONST_ARCHIVE_LConString)
    End If

    rstSchema.MoveNext
    LsSQL = ""

    Loop

    '*** clean up
    rstSchema.Close
    Set rstSchema = Nothing

    Exit Sub

    Errorhandler:

    Set rstSchema = Nothing
    Err.Raise Err.Number, Err.Source, Err.Description
    Exit Sub

    End Sub






    "gs_london" <gs_london@lineone.net> wrote:
    >
    >Hi there,
    >Im trying to connect to a database and retrieve a list of the tables contained.
    >
    >At present i have this code which is the equivilent using the Windows CE
    >dev environment.
    >This returns al the available tables.
    >
    >Is there a similar way to do this using ADODC
    >TIA
    >gs
    >
    >==
    >Set rs = CreateObject("ADOCE.Recordset.3.0")
    >rs.Open "MSysTables", conndb, adOpenKeyset, adLockOptimistic
    >RecordCount = rs.RecordCount
    >For arb1 = 0 To RecordCount - 1
    > List1.AddItem rs.Fields("TableName").Value
    > rs.MoveNext
    >Next
    >rs.Close
    >Set rs = Nothing
    >Set conndb = Nothing
    >==



Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


   Development Centers

   -- Android Development Center
   -- Cloud Development Project Center
   -- HTML5 Development Center
   -- Windows Mobile Development Center