如何从udl文件中取出BaseConnectionString信息？

renzhm

使用Access的ADP，已创建了连接，但考虑到分发时服务器的不固定情况，
创建了udl文件作为连接，不知如何更改当前的连接？

我的代码：
Public Sub OpenAstLink()
  On Error GoTo Except
    Dim ConnStr As String
    ConnStr = "File Name=" & CurrentProject.Path & "\ast.udl;"
    Dim Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    Conn.Open ConnStr
   
    CurrentProject.CloseConnection
    CurrentProject.OpenConnection  '使当前工程连接无状态
    DoCmd.RunCommand acCmdConnection '这里会弹出配置窗口，我想可不可以使用上面的连接Conn对象，或自己创建连接

    Exit Sub

Except:
   MsgBox "数据库连接异常"
   
End Sub
----------------------------
当然，使用CurrentProject.OpenConnection "rovider=SQLOLEDB.1ersist Security Info=False;User ID=sa;Initial Catalog=AST;Data Source=QSB"

可以满足我的要求，但必须使用文件来存储这样的信息，我想使用udl文件，方便
配置和测试连接，所以如果能从udl文件中取出BaseConnectionString信息，也就
解决了问题。

我察过以前的帖子，都没有很好的解决此问题！

renzhm

谢谢，高手出现果然不同凡响！我还以为baseconnectionstring不能使用udl呢！

renzhm

刚才试验了一下，真的不行：
这样可以
application.currentproject.openconnection
“Provider=SQLOLEDB.1ersist Security Info=False;User ID=sa;Initial Catalog=AST;Data Source=QSB“

但是这样不行
application.currentproject.openconnection "file name=" & currentproject.path & udlfilename

不知道为什么？
        

renzhm

to zhuyiwen :

真是太感谢您了！调试通过了，怎么感谢您呢？这里又不能给分！