74.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

列出MDB档当中所有table的名称

_作者:[e-mail]

==> 在 [e-mail] (mmhbbs) 的文章中提到:
> ※ 引述《[e-mail] (Table Man)》之铭言：
> : 请问VB5和ADO高手
> : 若VB程式使用ActiveX Data Objects，透过ODBC连结Access MDB资料库
> : 有任何语法或命令，可以列出MDB档当中所有table的名称吗？
> : 谢谢
> 看线上说明!


谢谢...我在NT option pack 的文件找到了
用openschema

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr 
rstSchema.MoveNext Loop
rstSchema.Close
cnn1.Close