Foxtable(狐表)用户栏目专家坐堂 → [求助]外部数据源服务器密码登陆的问题


  共有3427人关注过本帖树形打印复制链接

主题:[求助]外部数据源服务器密码登陆的问题

帅哥哟,离线,有人找我吗?
yangjie300
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:69 积分:562 威望:0 精华:0 注册:2014/10/14 16:06:00
  发帖心情 Post By:2015/7/21 11:11:00 [只看该作者]

已经好了,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
yangjie300
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:69 积分:562 威望:0 精华:0 注册:2014/10/14 16:06:00
  发帖心情 Post By:2015/7/24 18:05:00 [只看该作者]

使用中还是发现有个小问题,就是发布后成程序,每天第一次运行时,会因为连不上数据库报错,关掉后再运行一次就可以了,这个问题怎么解决罗,请指教。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/24 18:11: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.1.211\共享的文件夹名  密码 /user:用户名")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strRst)


 回到顶部
总数 13 上一页 1 2