以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何打开DSN设置窗口，并获得其返回的连接字符串(答案在二楼)？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29360)
--  作者：关键下一秒
--  发布时间：2013/3/5 11:56:00
--  如何打开DSN设置窗口，并获得其返回的连接字符串(答案在二楼)？
如题，请高手指导，谢谢！
[此贴子已经被作者于2013-3-5 18:28:40编辑过]
--  作者：关键下一秒
--  发布时间：2013/3/5 18:27:00
--  
Dim cn As ADODB.Connection
Dim MSDASCObj As MSDASC.DataLinks
MSDASCObj = New MSDASC.DataLinks
cn = New ADODB.Connection
MSDASCObj.PromptEdit(cn)
cn.Open
Messagebox.show("Connection opened successfully")
cn.Close

没有人弄，只有自已弄了。上面的代码可以打开数据源编辑框。