Foxtable(狐表)用户栏目专家坐堂 → 局域网内做好外部数据,其他机子怎么连上


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

主题:局域网内做好外部数据,其他机子怎么连上

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/16 16:18:00 [显示全部帖子]

 你的外部数据源如果是Access数据库,你就做一个共享文件夹,把数据库放在共享文件夹里,然后修改数据源的连接字符串为那个共享路径。

 

 如果是sqlserver数据库,你把服务器名称填写成数据库所在的电脑的ip地址,即可。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/16 17:03:00 [显示全部帖子]

 不要设置成独占方式打开,要设置成共享

 

http://jingyan.baidu.com/article/851fbc370284633e1f15aba0.html

 

 

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 9:42:00 [显示全部帖子]

 如果你有人用Office打开Access,并修改表结构的话,也会报这个错。你把打开mdb的那个office关闭。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 9:59:00 [显示全部帖子]

 肯定有人打开了单独这个access修改,才会报错。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 10:13:00 [显示全部帖子]

以下是引用misamisali在2016/6/17 10:06:00的发言:
没有啊,我都重启一遍,再连接,还是这样报错,会不会什么权限设置问题呢?

 

存放数据库的代码重启一次。

 

贴出你编写的连接字符串。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 10:43:00 [显示全部帖子]

 去看看那个数据库所在的文件夹,看有没有生成什么隐藏的多余的文件,把它们删除掉。

 

 如果还不行,加QQ远程看一下 2450314695


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 11:11:00 [显示全部帖子]

没有登陆到服务器的原因

 

那应该是你还没有登陆那台电脑导致无法访问目录,要在BeforeOpenPorject写下面代码

 

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  \\10.17.48.203\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")

 回到顶部