发表评论(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