Microsoft KB Archive/249718

From BetaArchive Wiki
Knowledge Base


HOWTO: Use ADO to Determine the Tables Contained in a DBC

Article ID: 249718

Article Last Modified on 7/13/2004



APPLIES TO

  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 5.0a
  • Microsoft Visual FoxPro 6.0 Professional Edition



This article was previously published under Q249718

SUMMARY

The ActiveX Data Objects (ADO) Connection object's OpenSchema method allows programmatic access to metadata about various database containers. You can use the OpenSchema method to determine what tables are contained in a Database Container (DBC), as demonstrated in the example in the "More Information" section.

MORE INFORMATION

To use this example, save and then run the following program. Make sure that you modify the connection string to point to the DBC of your choice.

* OpenSchema.prg
* Demonstrates the use of the ADO Connection
* Object's OpenSchema method to examine tables
* in a container. Depending on the provider,
* it can also be used to examine columns,
* indices, stored procedures, etc.

#DEFINE adSchemaTables 20

cn = CREATEOBJECT("ADODB.Connection")
rsTable = CREATEOBJECT("ADODB.Recordset")

* connection string for TESTDATA
* in the current drive and directory - change this
* as appropriate for your application
lcConnStr = "Provider=MSDASQL.1;" + ;
   "Extended Properties=DSN=Visual FoxPro Database;" + ;
   "SourceDB=testdata.dbc;" + ;
   "SourceType=DBC;" + ;
   "Exclusive=No;"  + ;
   "BackgroundFetch=Yes;" + ;
   "Collate=Machine;"

WITH cn
   .ConnectionString = lcConnStr
   .OPEN
   rsTable = .OpenSchema(adSchemaTables)
   DO WHILE NOT rsTable.EOF
      ? rsTable.FIELDS("TABLE_NAME").VALUE
      rsTable.MoveNext
   ENDDO
ENDWITH
                



After you run the program, the tables in the specified DBC should be listed on the Visual FoxPro desktop.


Additional query words: ADO OpenSchema adSchemaTables schema container

Keywords: kbhowto kbcodesnippet kbdatabase KB249718