VB Combo1加入数据库中表的名称

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:58:01
就是在Combo1中显示hzyl.mdb中所有数据表的名称，不是显示表中的某一项内容！
就是说：在hzyl.mdb中有多个表：001、002、003、004、005、006、007等，在Combo1中显示出来这些表的名称供选择！谢谢
回答者： dj03021111 你的有错误提示：在MSysObjects没有权限！

Dim Conn as New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MDB所在路径\hzyl.mdb;Persist Security Info=False;"
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.Open strConn
rs.Open "SELECT Name FROM MSysObjects where type =1 and flags =0", Conn
While Not rs.EOF
Combo1.AddItem rs![Name]
rs.MoveNext
Wend

在安装VB时，一般都带有一个例程：VisData.vbp，打开它，里面要什么有什么。好好学习这个例程，对本地数据库的操作就掌握了。

这个问题我想知道，我端根凳子坐起等。