高手请进,请帮助我解决这个问题,有50分等着你呢!

Question

您好，我想利用数据库的表的名字,请问,利用什么语句才能获得表的名字呢?
      当我们选定了数据库之后,我们要获得这个数据库的表的名字,对其中的记录进行调用.
       可是我用
            dim t as database
             dim s as string
             t = app.path
             s = t.table
           可是打印出来的不是表的名字呀?请问怎么才能获得表的名字呢?望赐教

Answer 1

我是在以accsess作为数据库的,
 但是我不知道用哪个语句能获得这个数据库的表的名字

Answer 2

Dim DaoDb As DAO.Database
Dim DaoTb As DAO.TableDef
              
Set DaoDb = OpenDatabase(AppPath & "db1.mdb")
For Each DaoTb In DaoDb.TableDefs
    debug.print DaoTb.Name 
Next

Answer 3

'------------------------------------------------------------------
'
'调用表列表，并存放到名为ListTb的listbox控件中,引用ADOX，适用于所有数据库
'
'sConcStr 是ADO数据库连接字符串
'sTbType  是类型,1 表,2 视图 ,3 表和视图
'------------------------------------------------------------------
Private Sub LoadTbList(ByVal sConcStr$, Optional ByVal sTbType = 2)
    Dim iDbx As New ADOX.Catalog, iCount&
    If sConcStr = "" Then GoTo SetNoTb
    On Error GoTo LoadErr
    iDbx.ActiveConnection = sConcStr
    ListTb.Clear
    If sTbType < 0 And sTbType > 2 Then GoTo SetNoTb
    On Error Resume Next
    With iDbx
        For iCount = 0 To .Tables.Count - 1
            Select Case UCase(.Tables(iCount).Type) & sTbType
                Case "TABLE0", "TABLE2", "VIEW1", "VIEW2"
                    ListTb.AddItem .Tables(iCount).Name
                Case Else
            End Select
        Next
    End With    Exit Sub
LoadErr:
    fGetErrMsg "设置表/视图清单时出错："
SetNoTb:
    ListTb.Clear
End Sub