в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:48Z

1 версия

Новая страница

==Creating a List of Database Tables(Types of tables in the ADOX Tables collection)==



<source lang="vb">

Name Description
ACCESS TABLE An Access system table
LINK A linked table from a non-ODBC data source
PASS-THROUGH A linked table from an ODBC data source
SYSTEM TABLE A Microsoft Jet system table
TABLE A Microsoft Access table
VIEW A table from a row-returning, non-parameterized query
Sub ListTbls()
Dim cat As ADOX.Catalog
Dim myTable As ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\mydb.mdb"
For Each myTable In cat.Tables
If myTable.Type <> "VIEW" And _
myTable.Type <> "SYSTEM TABLE" And _
myTable.Type <> "ACCESS TABLE" Then Debug.Print myTable.Name
Next myTable
Set cat = Nothing
MsgBox "View the list of tables in the Immediate window."
End Sub
</source>

==Using the OpenSchema Method to List Database Tables==



<source lang="vb">

Sub ListTbls2()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.OpenSchema(adSchemaTables)
Do Until rst.EOF
Debug.Print rst.Fields("TABLE_TYPE") & " ->" _
& rst.Fields("TABLE_NAME")
rst.MoveNext
Loop
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/Table Type - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия