怎样使用模糊查询表名呢？请大虾帮忙

Question

我是想查询表名，而不是表里的字段。在网上找到的都是查字段的。我的数据库基础不好，请各位大虾指点!有代码更好!谢谢

Answer 1

是的，就是MDB或SQL数据库中的表名

Answer 2

到 sysobjects 表里面保存有所有表的信息

Answer 3

select * from sysobjects 
where name like '%tablename%' and xtype ='U'

Answer 4

Private Sub Command1_Click()
    Dim intIndex                        As Integer
    Dim objCon                          As ADODB.Connection
    Dim objRst                          As ADODB.Recordset
          Set objCon = New ADODB.Connection
   
    objCon.Open gstrConn_NWind
    
    
    Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
        If objRst.RecordCount <> 0 Then
        intIndex = 1
        Do Until objRst.EOF
            lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME")
            lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE")
            lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd")
            intIndex = intIndex + 1
            objRst.MoveNext
        Loop
    End If
    
    objRst.Close
    objCon.Close
    Set objRst = Nothing
    Set objCon = Nothing
End Sub