请教如何将数据库中的表名全部取出列在LISTBOX中,小弟很急,先谢了

Question

请问大虾如何将SQL-SERVER中的数据库表名取出并显示在VB中

Answer 1

有很多种方法,比如人可建一个表,表名叫name把每个表的名字放在里面,许多在型应用数据库都是这样做的,然后在FORM_LOAD()中与之做连接,一个一个载入就行了,要代码吗?

Answer 2

Set CN = New ADODB.Connection
    CN.Open str
    
    Set RS = CN.OpenSchema(adSchemaTables)
    cobTable.Clear
    Do Until RS.EOF
        If RS("TABLE_TYPE") = "TABLE" Then
            cobTable.AddItem RS("TABLE_NAME") & ""
        End If
        RS.MoveNext
    Loop
    RS.Closehttp://www.csdn.net/cnshare/soft/10/10966.shtm这里有完整的源代码和例子

Answer 3

select * from sysobjects where type='U'