Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

Connect出现的问题

1970-1-1 08:00| 发布者: 佚名| 查看: 766| 评论: 0

Connect出现的问题
以下代码运行到"tdf.Connect = strcon"出现"无效的操作"(3219)
请各位前辈指点，谢谢
　　Dim dbs As Database
　　Dim tdf As TableDef
　　Dim strcon As String
　　Dim ii As Integer
　　Set dbs = OpenDatabase(TablePath, False, False, ";PWD=" & TablePassword)
　　
　　Set tdf = dbs.TableDefs(dtblname)

　　strcon = ";DATABASE=" & TablePath
　　If Len(TablePassword) > 0 Then strcon = strcon & "; PWD=" & TablePassword

　　tdf.Connect = strcon

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

Connect出现的问题

最新评论

相关分类