如何使用ADO检索SQL Server中的数据库的表名，急急急！！！

Question

如题，最好给出一下示例，谢谢！

Answer 1

'引用微软 ADO Ext.2.7 for dll and Security
Private Sub Command1_Click()Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
Set cnn = New ADODB.Connectioncnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\csdn_vb\查看表名\article.mdb"Set cat.ActiveConnection = cnnOn Error Resume Next'Set tbl = cat.Tables("MyTable")
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys" Then
List1.AddItem tbl.Name
End If
NextSet cat = NothingSet con = NothingEnd Sub

Answer 2

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\csdn_vb\查看表名\article.mdb"这里数据库连接换成sqlserver的即可

Answer 3

Dim cnnTemp As New ADODB.Connection
    
    cnnTemp.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog= Master;Data Source=server;password = rising"
    cnnTemp.Open
    
    Dim rstDataBase As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "Select * From SysDatabases "
    rstDataBase.Open strSQL, cnnTemp, adOpenStatic, adLockReadOnly
    Do While Not rstDataBase.EOF
        Me.cboDataBase.AddItem rstDataBase!Name
        rstDataBase.MoveNext
    Loop
    rstDataBase.Close
    Set rstDataBase = Nothing
    
    cnnTemp.Close
    Set cnnTemp = Nothing

Answer 4

我只用过用ADO检索access中的表,检索SQL Server中的数据库的表名还没用过。不好意思。

Answer 5

显示全部表的字段描述：SELECT
        表名=CASE WHEN a.colorder=1 THEN d.name ELSE '' END,
        自动序号=a.colorder,
        字段名=a.name,
        标识=CASE WHEN COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 THEN '√'ELSE '' END,
        主键=CASE WHEN EXISTS(SELECT 1 FROM sysobjects WHERE xtype='PK' AND name IN (
        SELECT name FROM sysindexes WHERE indid IN(
            SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid
        ))) THEN '√' ELSE '' END,
        类型=b.name,
        占用字节数=a.length,
        长度=COLUMNPROPERTY(a.id,a.name,'PRECISION'),
        小数位数=ISNULL(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
        允许空=CASE WHEN a.isnullable=1 THEN '√' ELSE '' END,
        默认值=ISNULL(e.text,''),
        字段说明=ISNULL(g.[value],'')
     FROM syscolumns AS a
     LEFT JOIN systypes AS b ON a.xtype=b.xusertype
     INNER JOIN sysobjects AS d ON a.id=d.id AND d.xtype='U' AND d.name<>'dtproperties'
     LEFT JOIN syscomments AS e ON a.cdefault=e.id
     LEFT JOIN sysproperties AS g ON a.id=g.id AND a.colid=g.smallid
     ORDER BY a.id,a.colorder