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

valhallen 2002-02-03 05:31:10
泰山说 用adox
可是我找不到 我笨
希望你们说的详细一点1!!111!!!
...全文
38 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
htjuw 2002-02-03
good!

谢谢
回复
valhallen 2002-02-03
debug.print
*******************************
MSysACEs SYSTEM TABLE
MSysObjects SYSTEM TABLE
MSysQueries SYSTEM TABLE
MSysRelationships SYSTEM TABLE
职工工资 TABLE
selectfrom职工工资 VIEW
回复
valhallen 2002-02-03
debug.print的前4个是系统表
以后的才是你自己建立的库表
回复
valhallen 2002-02-03
是啊 不过我和朋友已经解决了
'请引用 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
回复
netcar 2002-02-03
你要实现的是否就是将数据库中所有的表名添加到Combo1组合框?
回复
发动态
发帖子

1181

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告