- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 批量增加记录 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56269)
-- 发布时间：2014/9/2 12:01:00
-- 批量增加记录
请教如何如何在筛选后将表中的记录增加到xlh表中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:dd.zip |
-- 发布时间：2014/9/2 12:08:00
--
filler不行吗？
-- 发布时间：2014/9/2 12:10:00
--
参考
http://www.foxtable.com/help/topics/0680.htm
-- 发布时间：2014/9/2 12:13:00
--
先重定向，再filler。
-- 发布时间：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
-- 发布时间：2014/9/2 14:37:00
--
Dim cmd As new SQLCommand
cmd.C
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) select 户号,姓名,身份证号,{ylz}.医疗证号 from {hkxx} where INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 " & Tables("pl_Table1").Filter
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗号) select 户号,姓名,身份证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery
这段代码出错在哪里。我想再在里面添加一个ylz表中的字段到xlh表中
-- 发布时间：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
-- 发布时间：2014/9/2 15:59:00
--
想在后面再加入两个textbox的值，又如何增加
-- 发布时间：2014/9/2 16:00:00
--
什么意思？
-- 发布时间：2014/9/2 16:04:00
--
时间和金额列也一起插入数据。但时间和金额字段的值来源于textbox 控件