环境:VB6
首先要引入ADO(ActiveX Data Object)
还有 ADO Ext. 2.8
实现:
第一步,连接数据库
ADO连接数据库就不说了,生成DBcnn
第二步,定义DBC=New ADOX.Catalog。
设置DBC的ActiveConnection
DBC.ActiveConnection=DBcnn
然后,DBC.Tables就是所有的表和视图。
DBC.Tables(i).Type=“TABLE”就是表
包括了表名,字段,Key等等
DBC.Tables(i).Type=“VIEW”就是视图
另外还有DBC.Procedures就是存储过程
等等。