Foxtable(狐表) → 用户栏目 → 专家坐堂 → 发布后的程序，链接不上数据库，点击确定后，没弹出修改字符串的地方


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

主题：发布后的程序，链接不上数据库，点击确定后，没弹出修改字符串的地方
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		发布后的程序，链接不上数据库，点击确定后，没弹出修改字符串的地方  发帖心情 Post By：2019/9/29 17:17:00 [显示全部帖子]

发布后的程序，链接不上数据库，点击提示确定后，没弹出修改字符串的地方；为什么？

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/9/29 17:24:00 [显示全部帖子]

开发者修改链接字符串后，链接数据库后字符串会自动保存吧
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/9/29 17:39:00 [显示全部帖子]

关键登陆是不弹出数据源链接

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/10/8 11:40:00 [显示全部帖子]

老师下面代码我想实现，触发一次代码后，程序下次打开软件直接链接的是新的数据源，无需再重复触发下面代码。需要如何修改？    
现在是每次打开如果不重新执行下面代码，打开后还是链接的老的数据源。
        Dim s As String =""  '遍历当前属于此数据源的表
        For Each ds As DataTable In DataTables
        If ds.C  Then
             s += "|" & ds.name         
        End If
       Next
       s = s.Trim("|")
        '卸载表
    DataTables.Unload(s)
    Connections.Delete("wbsy")
    Connections.add("wbsy",r("pcip"))
    DataTables.load(s)
    Syscmd.Project.Save()
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/10/8 14:38:00 [显示全部帖子]

老师有其他方法达到保存的效果没?

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/10/8 15:24:00 [显示全部帖子]


老师我在BeforeConnectOuterDataSource设置了代码，但打开软件后链接的数据元还是老的。并不是对应 r("conip")的链接字符串。是下面代码有问题吗？
Dim r As Row = Tables("conip").Rows(0)
If e.Name = "wbsy" Then
       e.ConnectionString = r("conip")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：647 积分：5256 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2019/10/8 15:27:00 [显示全部帖子]

老师我在BeforeConnectOuterDataSource设置了下面代码。但打开软件链接的数据源还是老的。并不是r("conip")对应的字符串。是代码有什么问题吗？
Tables("conip")是内部表
Dim r As Row = Tables("conip").Rows(0)
If e.Name = "wbsy" Then
       e.ConnectionString = r("conip")
End If
[此贴子已经被作者于2019/10/8 15:29:33编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询