郁闷,等待帮助
我有一个问题：
我想知道数据库中存在多少个表及表名，现在出现了一个问题，
是这样，在我的数据库中有2个表，表“1”，表“ZongHui”,但在我设计的下列程序中只能看到一个表1，
“ZongHui”找不到。
程序如下：
sub
Dim db As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim rstSchema As New ADODB.Recordset
Dim count As Integer
Dim dbname As String
Dim cnstring As String
Dim TableName1 As String
dbname = "428" & ".mdb"
count = 0
cnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\" & Year(Now) & "\" + dbname + ";Persist Security Info=False"
db.CommandTimeout = 20
db.CursorLocation = adUseClient
db.Open cnstring
Set rstSchema = db.OpenSchema(adSchemaTables)
rstSchema.MoveFirst
Do While (Not rstSchema.EOF)
count = count + 1
If Trim(rstSchema!TABLE_TYPE) = "TABLE" Then
TableName1 = rstSchema!TABLE_NAME
End If
Combo1.AddItem TableName1
rstSchema.MoveNext
Loop
Label1.Caption = count
end sub
****我的数据库是ACCESS2000,调试结果是有六个1表，一个ZongHui表（），什么原因呢？原先结果是7个1表，怎会？
希望解决的问题：
（1）怎会得出7了
（2）有时，ZongHui查不到
Dim rs As New ADODB.Recordset
Set rs = db.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
While Not rs.EOF
Combo1.AddItem rs!TABLE_NAME
rs.MoveNext
Wend
rs.Close
省略Array(Empty, Empty, Empty, "TABLE")将获得数据库中所有表名
我暈，你那代碼。
' Dim conn As New ADOconn.Connection
' Dim rs As New ADOconn.Recordset
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
？？？？
Private Sub Command1_Click()
Dim intIndex As Integer
Dim objCon As ADODB.Connection
Dim objRst As ADODB.Recordset
' 產生一個新Connection物件，並設定objCon作為存取的物件變數。
Set objCon = New ADODB.Connection
' 使用Open方法連接，並設定相關參數。
objCon.Open gstrConn_NWind
' 找出資料表名稱。
Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
' 列舉名稱、型態、修改日期資料。
If objRst.RecordCount <> 0 Then
intIndex = 1
Do Until objRst.EOF
lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME")
lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE")
lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd")
intIndex = intIndex + 1
objRst.MoveNext
Loop
End If
objRst.Close
objCon.Close
Set objRst = Nothing
Set objCon = Nothing
End Sub
