loCat=CREATEOBJECT("ADOX.Catalog")  
  loCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" +;  
          "Data Source="+lcMDB+";"  
    
  FOR EACH lotab IN loCat.Tables  
  	?""  
  	?"Table Name ", loTab.name, "Indexes ",lotab.Indexes.Count  
  	FOR EACH loIndex IN loTab.Indexes  
      	?? " index name ", loIndex.name  
  	NEXT  
  	  
  	FOR lii=1 TO loTab.Keys.Count  
      	IF loTab.Keys(lii-1).Type=adKeyPrimary  
  	       loKey=loTab.Keys(lii-1)  
      	   ?loKey.Name+": "  
  	       FOR liy=1 TO loKey.Columns.Count  
      	       ??loKey.Columns(liy-1).Name+IIF(liy=loKey.Columns.Count,"","+")  
  	       NEXT  
      	   lokey = null  
  	       EXIT  
      	ENDIF  
  	NEXT  
    
  ENDFOR
 
  

loConn = Createobject("Adodb.connection")
m.tcDataSource  = FullPath("data1.dbc")
loConn.ConnectionString = "Provider=VFPOLEDB;Data Source=" + m.tcDataSource+";Exclusive=Off"
loConn.Open()  

* Создаем курсор, куда пойдет запись результатов
* одновременно открывая нужную таблицу
lcSelect = "Select Space(10) as tagName, Space(240) as tagExp into cursor tagInfo readWrite from table1 where .f."

lcSelect = [execScript("] + lcSelect + [")]
loConn.Execute(lcSelect)

* Собственно сканирование индексов
lcSelect = "select table1" + Chr(13) + ;
		"for lnI=1 to Tagcount('table1')" + Chr(13) + ;
		"cTag = Tag(lnI,'table1')" + Chr(13) + ;
		"cKey = Key(lnI,'table1')" + Chr(13) + ;
		"insert into tagInfo (tagName, tagExp) values (cTag, cKey)" + Chr(13) + ;
		"endfor"

lcSelect = [execScript("] + lcSelect + [")]
loConn.Execute(lcSelect)

* Смотрим результат
recordSet = loConn.Execute('select * from tagInfo')
Do while recordSet.Eof() = .F.
	?recordSet.Fields("tagName").value
	?recordSet.Fields("tagExp").value
	recordSet.moveNext()
EndDo