遍历数据库中的表。

[战箫]

我如果能从程序中将一个数据库中的表遍历，就是我现在只知道数据库，不知道里面有什么表，我将所有的表通过程序将表添到一个combo控件里？这段程序怎么做？

[zhenglc]

SQL Server
select name from sysobjects where xtype='U'

[strongfisher]

'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-19
'功能：获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------

[strongfisher]

Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn As New ADODB.Recordset
Dim I As Integer
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open str1

Set rstSchema = adoCN.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
out = out & "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
I = I + 1
End If
rstSchema.MoveNext
Loop
MsgBox I
rstSchema.Close

adoCN.Close
Debug.Print out
End Sub

[lihonggen0]

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159

[KJ_Wang]

SQL DMO可以实现（本人知道的是SQL Server数据库）。在引用中选 中SQL DMO选项。
基本思路是这样：
dim Obj as SQLDMO.SQLServer
dim ObjT as SQLDMO.SQLDMO.Table

set obj=new sqldmo.sqlserver
obj.connect "(Local)","sa",""'本地数据库
后面我想你应该会做了，我不想多说。