如何用ado创建数据库？ado显示库中有多少个表？（不用DAO方式)

Question

用ADOX,引用库里有，是ADO的扩展

Answer 1

Dim cn As ADODB.Connection,rsSchema As ADODB.Recordset    Set cn = New ADODB.Connection
    cn.Open ""
    Set rsSchema = New ADODB.Recordset
    Set rsSchema = cn.OpenSchema(adSchemaTables)
看看那个rsSchema里面的东东吧！

Answer 2

ado 只能连接数据库
显示数据库中有多少个表可用 for each 语句去循环数据库中的每个表,然后用COUNT 涵数将其统计出来显示在一个文本就行了

Answer 3

If SQL SERVERSELECT FROM SYSOBJECTS WHERE XTYPE='U' AND STATUS > 0将返回所有的用户表。