还是不懂！！！如何在combo1中显示数据库中表名？？？不用list属性！！！1

[valhallen]

泰山说 用adox
可是我找不到 我笨
希望你们说的详细一点1!!111!!!

[netcar]

你要实现的是否就是将数据库中所有的表名添加到Combo1组合框？

[valhallen]

是啊 不过我和朋友已经解决了
'请引用 c:\program\common file\system\ado\Msadox.dll
'引用active data object 2.0 ,工程-引用-

Private Sub Form_Load()
Dim cnn As New Connection
Dim cat As New Catalog
Dim tbl As Table

cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=linshi.mdb"
Set cat.ActiveConnection = cnn

For i = 0 To cat.Tables.Count - 1
Set tbl = cat.Tables(i)
Debug.Print tbl.Name & vbTab & tbl.Type
Next

End Sub

[valhallen]

debug.print的前4个是系统表
以后的才是你自己建立的库表

[valhallen]

debug.print
*******************************
MSysACEs SYSTEM TABLE
MSysObjects SYSTEM TABLE
MSysQueries SYSTEM TABLE
MSysRelationships SYSTEM TABLE
职工工资 TABLE
selectfrom职工工资 VIEW

[htjuw]

good!

谢谢