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

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

共有5269人关注过本帖树形打印复制链接主题：更改数据源

hopestarxia

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

加好友

发短信

等级：四尾狐帖子：922 积分：6629 威望：0 精华：0 注册：2013/8/10 18:33:00

Post By：2019/3/27 12:24:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:台账系统.rar

hopestarxia

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

加好友

发短信

等级：四尾狐帖子：922 积分：6629 威望：0 精华：0 注册：2013/8/10 18:33:00

Post By：2019/3/27 12:25:00 [只看该作者]

老师数据传不过来。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/27 12:35:00 [只看该作者]

以下是引用hopestarxia在2019/3/27 12:25:00的发言：
老师数据传不过来。

数据库压缩后上传上来。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/27 12:39:00 [只看该作者]

1、切换后，不是在【数据源】那里查看数据啊；

2、在你的表格那里，同步表后查看数据。

hopestarxia

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

加好友

发短信

等级：四尾狐帖子：922 积分：6629 威望：0 精华：0 注册：2013/8/10 18:33:00

Post By：2019/3/28 9:11:00 [只看该作者]

老师，把程序简化后和建立了两个简单的数据库A和B,请老师帮助看一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:切换账套.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/28 11:02:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "账套文件|*.mdb" '设置筛选器
dlg.MultiSelect = False
If dlg.ShowDialog = DialogResult.Ok Then
    ''遍历打开的窗口,将所有者表属于要变更的数据源的窗口关闭
    'For Each frm As WinForm.Form In Forms
    'If frm.Opened Then
    'If frm.TableName = "订单" Then
    'frm.Open()
    'End If
    'End If
    '
    'Next



    Dim s As String =""
    '遍历当前属于此数据源的表
    For Each dt As DataTable In DataTables
        If dt.connectionname = "SJLJ" Then
            s += "|" & dt.name
        End If
    Next
    s = s.Trim("|")

    '卸载表

    If s > "" Then

        DataTables.Unload(s)
    End If
    Dim s1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source=" & dlg.FileName & ";Persist Security Info=True"

    Connections.Delete("SJLJ")

    Connections.add("SJLJ",s1)

    msgbox(Connections("SJLJ").ConnectionString)
    If s > "" Then
        DataTables.load(s)

    End If

End If

[此贴子已经被作者于2019/3/28 11:02:43编辑过]