VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 列出MDB档当中所有table的名称
发表评论(0)作者:, 平台:, 阅读:10028, 日期:2000-05-11


- 信区: 学术网-程式设计区

编号: 5187 日期: 28 Sep 98 15:12:45

来自: Table Man 读取: 是 已回信: 否

写给: All 标示:

提要: [VB5 & ADO & SQL]

--

_作者:tbman.bbs@cis.nctu.edu.tw


==> 在 hsinscbbs@bbs.ee.ntu.edu.tw (mmhbbs) 的文章中提到:

> ※ 引述《tbman.bbs@cis.nctu.edu.tw (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