To KenjiSato: 动态连接到SQL SERVER

zhuyiwen

文件下载

这是你要的。

[em26]

KenjiSato

老朱：我的意思你没理解：首先连接成功SQL，紧接着要马上将Persist Security Info=False（我是手工做，当前打开的ADP照样能用，但不会被导出表），用你的方法，密码在没退出前还保存在ADP中，使用者可以在打开ADP同时，再打开MDB即可导出SQL表。

用：  Application.CurrentProject.CloseConnection  '关闭连接Application.CurrentProject.OpenConnection   '将连接设置为无
会断开SQL连接，如果当前ADP还要使用SQL表就不行了。


谢谢！
http://www.office-cn.net/bbs/dispbbs.asp?boardID=5&RootID=9623&ID=9623

zyz

你将这句

sConnectionString = "ROVIDER=SQLOLEDB.1ASSWORD=" & sPWD & "ERSIST SECURITY INFO=TRUE;USER ID=" & sUID & "; INITIAL CATALOG=" & sDatabase & ";DATA SOURCE=" & sSvrName

改为：

sConnectionString = "PROVIDER=SQLOLEDB.1;PASSWORD=" & sPWD & ";PERSIST SECURITY INFO=False;USER ID=" & sUID & "; INITIAL CATALOG=" & sDatabase & ";DATA SOURCE=" & sSvrName

即可[em26]

KenjiSato

OK！谢谢各位支持！

KenjiSato

这和 yuab的    Application.CodeProject.OpenConnection
就差别在这里，我怎么没想到
    Application.CurrentProject.OpenConnection

KenjiSato

启动ADP会跳出如图窗口，虽然取消即可，最后不要让它出来。有劳各位再想想！
先谢过了！

zyz

在我这里没有这个问题，关键是退出前要断开连接。[em26]

KenjiSato

THANKS!

zyz

搞定了？

kdwin

各位，这是一个好东西，我建设放在精品中。慢慢理解吧。