请教：如何将项目表中的数据合并到后台数据库中？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：如何将项目表中的数据合并到后台数据库中？（已解决）

共有21998人关注过本帖树形打印复制链接主题：请教：如何将项目表中的数据合并到后台数据库中？（已解决）

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/28 12:01:00 [显示全部帖子]

以下是引用yangming在2010-1-28 9:38:00的发言：

先谢谢R版，如果后台数据库的表中无主键，就无法用fill方法生成一个空表
我的这种后台数据库中的表，是这样产生的
将临时表导出到ACC中后生成的，目前的导出是无法设置主键的

没有主键可以生成查询表的。

我觉得Exporter少了一个覆盖的参数，如果允许覆盖实现起来就会很简单。

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/28 13:11:00 [显示全部帖子]

啰嗦一点的代码要不要

Dim scm as New SQLCommand
scm.C
Dim t as Table = Tables("表A")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into 表A " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next

论坛好怪，代码也吃

[此贴子已经被作者于2010-1-28 13:13:20编辑过]

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/28 13:12:00 [显示全部帖子]

再发一次

Dim scm as New SQLCommand
scm.ConnectionName = "aaa"
Dim t as Table = Tables("表A")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into 表A " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/28 14:02:00 [显示全部帖子]

Dim scm as New SQLCommand
scm.ConnectionName = "xc"
Dim t as Table = Tables("B1")
For Each r as Row in t.Rows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each c As Col In t.Cols
        s = s & ",'" & r(c.Name) & "'"
        s1 = s1 & "," & c.Name
    Next
    scm.CommandText = "Insert Into B1库 " & "(" & s1.Trim(",") & ")" & " " & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next

图片点击可在新窗口打开查看

此主题相关图片如下：qq截图未命名.png

[此贴子已经被作者于2010-1-28 14:03:02编辑过]

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

主题：请教：如何将项目表中的数据合并到后台数据库中？（已解决）