以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  局域网的外部数据源，BeforeConnectOuterDataSource该怎么写代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46199)
--  作者：小刚
--  发布时间：2014/2/18 22:36:00
--  局域网的外部数据源，BeforeConnectOuterDataSource该怎么写代码？

局域网外部数据库地址是,如图片。

ACCESS密码是：123456

局域网地址是：  \\\\HEHUI\\data\\订单.mdb

1、那么BeforeConnectOuterDataSource里面该怎么写？

2、假如数据源不存在的话，让它选择默认安装目录下面的:  订单.mdb

3、假如还没有的话，自动关闭程序。

谢谢！

 


图片点击可在新窗口打开查看此主题相关图片如下：1722.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-2-18 22:36:43编辑过]
--  作者：有点甜
--  发布时间：2014/2/18 22:51:00
--  
 你设置一下密码，参考帮助文档，确定之后不是又一个连接字符串的么？复制连接字符串过去。你需要用系统变量如projectpath作为相对路径
--  作者：有点甜
--  发布时间：2014/2/18 22:51:00
--  
 关闭系统的代码

Syscmd.Project.Exit()
--  作者：小刚
--  发布时间：2014/2/18 23:26:00
--  

If e.Name = "数据库" Then
    If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\HEHUI\\data\\订单.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456") = False Then 

          e.Connection String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "xingcheng.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456"

    else

       Syscmd.Project.Exit()
    End If
End If 
 
 
请问老师，帮忙审查一下，是不是这样？
--  作者：小刚
--  发布时间：2014/2/19 10:32:00
--  
这个再顶一下，老师们帮忙看看是不是这样写这个代码？
--  作者：Bin
--  发布时间：2014/2/19 10:41:00
--  

If e.Name = "数据库" Then
    If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\HEHUI\\data\\订单.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456") = False Then 

        if FileSys.FileExists(e.ProjectPath & "xingcheng.mdb") then

          e.Connection String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "xingcheng.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456"

    else

       Syscmd.Project.Exit()
    End If
end if
End If 

另外,对不对你自己测试一下不就知道了? 这种问题需要问?(虽然你的代码确实不对)  不对的时候再出来问为什么不对.