Public filename As String, cnstr As String
Public str_username As String
Public str_userqxz As String
Public conn As New ADODB.Connection
Sub main()
    filename = App.Path & "\test\test.mdb" '本句原代码是:filename = "d:\test\test.mdb"运行正常,将d盘修改为当前文件夹下就出问题了.
    cnstr = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source='" & filename & " ';Persist Security Info=False"
    conn.open cnstr'问题出在这句,代码变淡黄色
    frm_login.Show
End Sub
或者如何将以下代码中的d:\test\test.mdb改为当前文件(程序所的)夹下
Public filename As String, cnstr As String
Public str_username As String
Public str_userqxz As String
Public conn As New ADODB.Connection
Sub main()
  filename = "d:\test\test.mdb"
 cnstr = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source='" & filename & " ';Persist Security Info=False"
  conn.open cnstr
  frm_login.Show
End Sub



[ 本帖最后由 曙光电子 于 2012-11-20 19:04 编辑 ]

怎么没有老师指点?(App.Path是路经)

这个贴子就是把绝对路改为动态路经呀?

附件上传了,怎么没人回答,难吗?

上传的附件程序运行正常,就是改个连接数据库路经啊,这么长时间没老师答呀!很难吗?

[ 本帖最后由 曙光电子 于 2012-11-6 09:44 编辑 ]

那么多人下载,可是还是没人回答?

谢谢老师的解答,你能不能将我的附件改了给我发过来我看一下,我的邮箱是:617986369@

根据你的指点我已试了,是正确答案,再次表示谢谢!由于工作忙,这是我犯的低级错误,我在以后的工作中一定要细想检查.