- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于外部数据库连接的问题Access (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95817)
-- 发布时间：2017/2/6 11:47:00
-- [求助]关于外部数据库连接的问题Access
项目使用了Access数据库，存放于下面的网络共享文件夹里面，访问此共享文件夹是需要密码的，如果不点击记住我的凭据，每次打开项目就连接不上数据库。
-- 发布时间：2017/2/6 13:30:00
--
你可以在beforeOpenProject执行代码
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use \\\\192.168.44.202\\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")
-- 发布时间：2017/2/6 14:49:00
--
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = False \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use \\\\192.168.130.99\\p@ssw0rd/user:administrator")
p.StandardInput.WriteLine("exit")
还是无法链接数据库
-- 发布时间：2017/2/6 14:50:00
--
p.StandardInput.WriteLine( "net use \\\\192.168.130.99\\ p@ssw0rd /user:administrator")
-- 发布时间：2017/2/6 15:03:00
--
密码前面多一个零？ 修改了也是一样无法链接
-- 发布时间：2017/2/6 15:04:00
--
代码没问题。肯定是你账号密码没写对。
-- 发布时间：2017/2/6 15:06:00
--
账号密码我手动输入能正常登陆
-- 发布时间：2017/2/6 15:08:00
--
认认真真看上了代码，代码没问题。
要不，你就在cmd窗口执行net use语句看提示什么
-- 发布时间：2017/2/6 15:11:00
--
-- 发布时间：2017/2/6 15:17:00
--
ip地址换成域名或者计算机名。
或者试试
p.StandardInput.WriteLine( "net use \\\\192.168.130.99 p@ssw0rd /user:administrator")
[此贴子已经被作者于2017/2/6 15:25:00编辑过]