发信人: 2000s()
整理人: winsy(2003-03-09 13:11:00), 站内信件
|
【 在 akang (阿康) 的大作中提到: 】
我用以下的方法试过(vb6.0 ADO接口)，看那位高手提供更好的办法。
dim TableSet as adodb.recordset
dim Gconnection as adodb.connection
sub getTableName
set gconnection=new adodb.connection
gConnection.Open "Driver=Microsoft Access driver (
*.mdb);UID=;PWD=;DBQ=d:\test.mdb;"
Set TableSet = gConnection.OpenSchema(adSchemaTables, Array(Empty,
Empty, Empty, Empty))
Do Until TableSet.EOF
msgbox "表名：" & tableset!table_type &" 表类型：" & TableSet!
table_type,vbinformation,"表"
TableSet.MoveNext
Loop
end sub
--
Email:[email protected]
※ 修改:．2000s 于 Mar 29 16:41:30 修改本文．[FROM: 202.103.136.57]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.185.167]
|
|