我仔细看了你写的VBA程序,你的语法格式都没有问题,而且程序也是可以执行的。但是你忽略了一个关键点,那就是自2007以后的数据库默认不与2003相兼容。要想连接有效,必须将2007版(及以后的版本)保存为Acess 97-2003兼容模式,否则就会出现低级的不能够识别。希望此回答可以帮到你,谢谢。
Dim Conn,RS,dblink
Set Conn=ServerCreateObject("ADODBConnection")
dblink="provider=microsoftjetoledb40;data source='" & serverMapPath("dbmdb") & "'"
Connopen dblink
Sub main
CreateDB()
End Sub
Sub CreateDB()
str=""
Set Mdb = WscriptCreateObject("ADODBConnection")
strConnection = "Provider=MicrosoftACEOLEDB120;" & "Data Source=" & "D:\Databaseaccdb" & ";"
MdbOpen strConnection
Set Schema = MdbOpenSchema( 20 ,Array(Empty,Empty,Empty,Empty) )
Do while not SchemaEOF
str = str & "、" &SchemaFields( "TABLE_NAME" )Value
SchemaMoveNext
Loop
MdbClose()
WscriptEcho str
End Sub
main
以上就是关于ACCESS 2007与ACCESS 2010带密码的accdb数据库都无法连接,用下面的都行不通是补钉的问题吗全部的内容,包括:ACCESS 2007与ACCESS 2010带密码的accdb数据库都无法连接,用下面的都行不通是补钉的问题吗、谁知道ASP怎样连接ACCESS2007的ACCDB数据库啊!、vbs如何连接access数据库是07版以后的,后缀是*.accdb不是*.mdb等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)