说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

列出MDB档当中所有table的名称-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
列出MDB档当中所有table的名称-VB资料

_作者: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




备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘