我得到了一个connectstring，如何从这里面得知所有的表名？

Question

我连上了一个数据库，我想通过代码来得知这个库里面拥有的表的名称，并将这些表的史称放入一个combo中，该如何实现，请指教

Answer 1

什么数据库那？如果是Access，并且你用 ADO来操作可以用如下http://www.access911.net/index.asp?board=4&mode=3&recordid=73FAB61E17DC

Answer 2

openshcema函数。可能拼写有错误。

Answer 3

dim cmd as adodb.command
    set cmd=new adodb.command
        cmd.activeconnection=connectionname
        cmd.commandtype=adcmdtext

Answer 4

dim cmd as adodb.command
dim rs as adodb.recordset
dim i as integer
    set cmd=new adodb.command
        cmd.activeconnection=connectionname
        cmd.commandtype=adcmdtext
        cmd.commandtext="select name from sysobjects where type='U'"
    set rs=cmd.execute()
for i=0 to rs.recordcount
    print rs(i).value
next i

Answer 5

正确答案来拉  ^^Dim Ss As New ADODB.Connection
Dim Rs As New ADODB.RecordsetSs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mydbname.mdb;"
Ss.Open
    Set Rs = Ss.OpenSchema(adSchemaTables)
    
    Do Until Rs.EOF
       MsgBox "Table name: " & Rs!TABLE_NAME & vbCr & "Table type: " & Rs!TABLE_TYPE & vbCr
        Rs.MoveNext
    Loop
    Rs.Close
    Ss.Close

Answer 6

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim i as integer
dim cmb as combobox
...cn.open connectionString
rs.open "Select name from sysobjects where xtype = 'U'",cn
While Not rstmp.EOF
 cmb.AddItem rs.Fields(0)
 rs.MoveNext
Wend