发布项目後修改数据源 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 发布项目後修改数据源

共有12431人关注过本帖树形打印复制链接主题：发布项目後修改数据源

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 11:13:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-11-22 8:22:00的发言：

发布后，菜单中设置数据源的功能是没有了的。

这个我知道,但是我是用了系统命令做在自己的菜单或者按钮中,也不能用了吗?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 12:18:00 [显示全部帖子]

那么只能利用代码切换?

还有目前我用access做数据源的,那我要转SQL,要先定向,那么是不是在发布前,要先定向到sql再发布?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 12:26:00 [显示全部帖子]

我做的项目是销售用的,那么每一个客户用的网络和数据源都不一样,像这样的情况我怎么处理呢?

示例五

你也可以在连接某一数据源之前，执行方法EditConnectionString，让用户手工设置连接字符串。

例如你希望在连接“销售数据”的时候，如果登录用户为开发者，则显示数据连接窗口，让用户手动选择外部数据源：

If e.User.Type = UserTypeEnum.Developer Then

e.EditConnectionString()

End If

像你这个情况,发布后我按ctrl还能进入开发者状态吗?(没有开发版没法试),如果我是自定义登录怎么办?思路是什么?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 13:56:00 [显示全部帖子]

If _UserName = "管理员" Then
e.EditConnectionString()
End If

我在项目事件中加入这样的代码会出来连接数据源的对话框吗?

另外TOACCESS 重新定向的系统命令,发布后,自己做的菜单还能用吗?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 14:36:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-11-22 14:10:00的发言：

http://www.foxtable.com/help/topics/0682.htm

If _UserName = "管理员" Then
e.EditConnectionString()
End If

我在项目事件中加入这样的代码会出来连接数据源的对话框吗? 手工这行不.我没有测试.

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/11/22 15:31:00 [显示全部帖子]

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
    End If
End If

如果有密码怎么办?每一个客户用的密码都不一样的?

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

主题：发布项目後修改数据源