以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于外部数据库连接的问题Access  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95817)

--  作者:hpyer2016
--  发布时间: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")


--  作者:hpyer2016
--  发布时间: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")
--  作者:hpyer2016
--  发布时间:2017/2/6 15:03:00
--  
密码前面多一个零? 修改了也是一样无法链接
--  作者:有点色
--  发布时间:2017/2/6 15:04:00
--  
代码没问题。肯定是你账号密码没写对。
--  作者:hpyer2016
--  发布时间:2017/2/6 15:06:00
--  
账号密码我手动输入能正常登陆
--  作者:有点色
--  发布时间:2017/2/6 15:08:00
--  

 认认真真看上了代码,代码没问题。

 

 要不,你就在cmd窗口执行net use语句看提示什么


--  作者:hpyer2016
--  发布时间: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编辑过]