Sub main
CreateDB()
End Sub
Sub CreateDB()
str=""
Set Mdb = Wscript.CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "D:\Database.accdb" & ";"
Mdb.Open strConnection
Set Schema = Mdb.OpenSchema( 20 ,Array(Empty,Empty,Empty,Empty) )
Do while not Schema.EOF
str = str & "、" &Schema.Fields( "TABLE_NAME" ).Value
Schema.MoveNext
Loop
Mdb.Close()
Wscript.Echo str
End Sub
main
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024