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

[还想懒够]

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

[changechange]

什么数据库那？

如果是Access，并且你用 ADO来操作可以用如下

http://www.access911.net/index.asp?board=4&mode=3&recordid=73FAB61E17DC

[lijie1981]

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

[neo40]

正确答案来拉 ^^

Dim Ss As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Ss.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

[txlicenhe]

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

[chenlishu413]

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

[chenlishu413]

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