Foxtable(狐表)用户栏目专家坐堂 → 外部数据源


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

主题:外部数据源

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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
外部数据源  发帖心情 Post By:2015/5/8 11:26:00 [只看该作者]

请教老师:

为了便于编程,我建立了二个名称不同的数据源,一个在本机,另一个在局域网服务器上,为结构相同的SQL数据库,如何做到在发布前不必定向到服务器上的数据源,发布后的程序由程序自动判断后连接到服务器上?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/8 11:28:00 [只看该作者]

IF判断根据情况连接对应数据源在BeforeConnectOuterDataSource事件

If ProjectPath.EndsWith("Project") Then
   '发布后
Else
   '发布前
End If



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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
  发帖心情 Post By:2015/5/8 11:35:00 [只看该作者]

这一段我试了,没有成功,只能判断出当前的数据源,不知道用什么方法从当前源改变为另一个数据源

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/8 11:36:00 [只看该作者]

看2楼帮助连接..更改连接字符串啊.

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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
  发帖心情 Post By:2015/5/8 11:44:00 [只看该作者]

是更改:

e.ConnectionString = "XXX“

就可以了么?


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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
  发帖心情 Post By:2015/5/8 11:44:00 [只看该作者]

与数据源的名称有无关系?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/8 11:45:00 [只看该作者]

你别设置两个数据源啊.就一个数据源可以了.更改连接字符串,连接到不同的数据源即可.

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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
  发帖心情 Post By:2015/5/8 11:51:00 [只看该作者]

那在”外部数据源“窗口里的数据源名称及连接字符设成哪一个呢?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/8 11:52:00 [只看该作者]

随便.那个也没影响

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


加好友 发短信
等级:童狐 帖子:262 积分:2218 威望:0 精华:0 注册:2015/4/5 16:28:00
  发帖心情 Post By:2015/5/8 12:09:00 [只看该作者]

成功:

If e.ProjectPath.EndsWith("管理项目2") Then

    ‘发布前

    If e.name = "我的SQL本机数据库" Then

        Dim s As String = ""

        e.ConnectionString = s

    End If

Else

    ’发布后

    If e.name = "我的SQL本机数据库" Then

        Dim s As String = ""

        e.ConnectionString = s

    End If

End If

[此贴子已经被作者于2015/5/8 13:17:28编辑过]

 回到顶部
总数 14 1 2 下一页