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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量增加记录

共有3657人关注过本帖树形打印复制链接主题：批量增加记录

有点甜

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

加好友

发短信

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

Post By：2014/9/2 12:10:00 [显示全部帖子]

参考

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

有点甜

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

加好友

发短信

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

Post By：2014/9/2 14:20:00 [显示全部帖子]

Dim cmd As new SQLCommand
cmd.ConnectionName = "hk"
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号) select 户号,姓名,身份证号 from {hkxx} where " & Tables("pl_Table1").Filter
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号) select 户号,姓名,身份证号 from {hkxx} "
End If
cmd.ExecuteNonQuery

有点甜

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

加好友

发短信

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

Post By：2014/9/2 14:48:00 [显示全部帖子]

Dim cmd As new SQLCommand
cmd.ConnectionName = "hk"
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) Select{hkxx}.户号,姓名,身份证号,{ylz}.医疗证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 where " & Tables("pl_Table1").Filter.replace("户号","{hkxx}.户号")
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) select {hkxx}.户号,姓名,身份证号,医疗证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery

有点甜

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

加好友

发短信

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

Post By：2014/9/2 16:00:00 [显示全部帖子]

什么意思？

有点甜

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

加好友

发短信

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

Post By：2014/9/2 16:07:00 [显示全部帖子]

什么字段都可以，比如

Dim cmd As new SQLCommand
cmd.ConnectionName = "hk"
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,金额) Select{hkxx}.户号,姓名,身份证号,{ylz}.医疗证号,'" & e.Form.Controls("TextBox1").text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 where " & Tables("pl_Table1").Filter.replace("户号","{hkxx}.户号")
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,金额) select {hkxx}.户号,姓名,身份证号,医疗证号,'" & e.Form.Controls("TextBox1").Text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery

有点甜

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

加好友

发短信

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

Post By：2014/9/2 16:10:00 [显示全部帖子]

Dim cmd As new SQLCommand
cmd.C
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,缴费金额) Select{hkxx}.户号,姓名,身份证号,{ylz}.医疗证号,'" & e.Form.Controls("TextBox1").text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 where " & Tables("pl_Table1").Filter.replace("户号","{hkxx}.户号")
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,缴费金额) select {hkxx}.户号,姓名,身份证号,医疗证号,'" & e.Form.Controls("TextBox1").Text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery

有点甜

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

加好友

发短信

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

Post By：2014/9/2 16:23:00 [显示全部帖子]

无语，自己看楼上

有点甜

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

加好友

发短信

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

Post By：2014/9/2 16:24:00 [显示全部帖子]

楼主现在还是用试用版和破解版吗？

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

主题：批量增加记录