网络连接的问题请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网络连接的问题请教

共有2271人关注过本帖树形打印复制链接主题：网络连接的问题请教

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1368 积分：12195 威望：0 精华：0 注册：2012/3/5 11:32:00

网络连接的问题请教 发帖心情

Post By：2015/12/23 8:45:00 [只看该作者]

BeforeOpenProject 事件

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"

If FileSys.DirectoryExists(str) Then

filesys.DeleteDirectory(str,2,2)

End If

shell( "net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator",0)

If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then

MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")

E.Cancel = True

End If

-----------------------------------------------------------------------------

我把数据库放置在服务器（该主机常年不关机）共享文件里，

客户端的电脑设置了，开机自动启动编译好的客户端，代码如上，用的是固态硬盘，快到居然会

出现 FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False 的情况，而且是每一次。

重新在开启客户端就没问题了。

用机械硬盘的时候，没出现过这个问题！

求助如何解决！

[此贴子已经被作者于2015/12/23 8:46:26编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/23 9:23: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 = 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)

ljh29206

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1368 积分：12195 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2015/12/23 9:37:00 [只看该作者]

老师不懂这段代码的作用是什么！

这样写就能确保网络连通后在启动系统吗

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"

If FileSys.DirectoryExists(str) Then

filesys.DeleteDirectory(str,2,2)

End If

p.StandardInput.WriteLine( "net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator",0)

p.StandardInput.WriteLine("exit")

If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then

MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")

E.Cancel = True

End If

改成这样对吗？

[此贴子已经被作者于2015/12/23 9:48:56编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/23 10:06:00 [只看该作者]

这样写

p.StandardInput.WriteLine("net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator")

ljh29206

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1368 积分：12195 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2015/12/23 10:20:00 [只看该作者]

老师，看不到代码

问下

这段代码的思路是什么，

能保证使网卡有效运行后再判断，网络的情况吗

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/23 10:22:00 [只看该作者]

意思是，先执行完命令

net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator

再，继续下面的代码。1楼的代码，是异步执行的，不一定执行结束就运行下面的代码了。

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/23 10:23:00 [只看该作者]

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"
If FileSys.DirectoryExists(str) Then
    filesys.DeleteDirectory(str,2,2)
End If
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\e TBFCfs.2109 /user:Administrator")
p.StandardInput.WriteLine("exit")
If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then
    MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")
    E.Cancel = True
End If

下一主题 >> << 上一主题

主题：网络连接的问题请教