说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何用sql从一个表的5列数据中的4列copy到另一个表中?请指教

编辑:说三道四文库 发布时间:2017-08-24 11:23
HTML文档下载 WORD文档下载 PDF文档下载
如题,5列的列名是id1,id2,id3,id4,id5 不要的那列是列名=x的列,如何实现啊
insert into table(f1,f2,f3,f4) 
select d1,d2,d3,d4
from table2
where 条件
1楼的 我不要的那列是不确定的 
你给的是确定的情况下的代码
但是你要的列总能确定了吧?
举例:
窗体中edit1输入你不要的字段,ADOQUERY2执行插入操作(table1是源表,table2是目标表)


procedure TForm1.Button1Click(Sender: TObject);
var
str,strb:string;
i:integer;
begin

  with adoquery1 do begin
    close;
    sql.Text:='select * from table1 where 1<>1';{不会显示数据,只用作以下取字段之用}
    open;
    for i :=0  to Fields.Count-1 do
    if AnsiUpperCase(Fields[i].FieldName)<>AnsiUpperCase(edit1.Text) then {这里判断当前字段是否可取}
       str:=str+Fields[i].FieldName+',';
    strb:=copy(str,1,length(str)-1);{得到最后的可取字段名}

   with adoquery2 do begin
   Close;
   sql.Text:='insert into table2(f1,f2,f3,f4) select ' +strb+' from table1';
   ExecSQL;
   end;


end;



end;
修正一下:

procedure TForm1.Button1Click(Sender: TObject);
var
str,strb:string;
i:integer;
begin
  str:='';
  strb:='';
  with adoquery1 do begin
    close;
    sql.Text:='select * from table1 where 1<>1';{不会显示数据,只用作以下取字段之用}
    open;
    for i :=0  to Fields.Count-1 do
    if AnsiUpperCase(Fields[i].FieldName)<>AnsiUpperCase(edit1.Text) then {这里判断当前字段是否可取}
       str:=str+Fields[i].FieldName+',';
    strb:=copy(str,1,length(str)-1);{得到最后的可取字段名}

   with adoquery2 do begin
   Close;
   sql.Text:='insert into table2(f1,f2,f3,f4) select ' +strb+' from table1';
   ExecSQL;
   end;


end;



end;



楼上的,f1,f2,f3,f4我要用回id1,id2..id5的,而且你这样insert会不会导致每列的数据不在同一行啊 会顺接着下去的
那么你就要举一个详细点的例出来,即使我的代码达不到你的要求,最基本其它人也能看得明白,给予你帮助.
说具体点,把你的应用场景描述一下
LZ要学会变通才行
不应该奢求100%的正确答案啊
一周消息树:我的十年编程自学之路 移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 互联网巨头公司为何联合开发WebKit? 继Windows Blue:WP8升级或今年圣诞前到来 中国黑客部队攻击美国23家天然气公司 [CTO俱乐部第93期] 移动应用研发及位置在线平台架构分享 TeamToy——开源的团队高效协作工具 2013年数据中心发展的五个关键因素 可穿戴式设备:高调的Google 低调的苹果 由CloudFlare宕机引发的思考 传iWatch年内推出 或成苹果救命稻草 Twitter开源其Java消息流库Hosebird Client API正在崛起 渐成企业核心业务 HTML5会是Firefox OS的生门还是死门? 三星的成功并非偶然,而是专业 避免恶意软件 日本政府警告用户慎用Google Play 曝光:诺基亚要推出新手机系统Meltemi 为研发iWatch,Jony Ive订购大量Nike腕表 APP运营人的一天:宫爆老奶奶产品运营 新传感器:三星Galaxy S4或将支持眼球追踪 IBM发布基于OpenStack的服务 从Windows Server 2012云创益大赛看国内行业私有云发展 我得代码有错误吗!!在线紧急等待 如何用Java访问微软的DDE Server? 在windows xp中怎么建立虚拟服务器呀? 解决问题,马上结贴 xp風格的問題 请问如何让一个表格的边框的宽度和表格内部的线的宽度不一样? 请问wsad和eclipse哪里有下呢? 如何理解下面的程序段 调查:你(单位)愿意花钱买服务端控件吗? 为什么有些网页是繁体字! 我终于知道什么是英雄了! 关于快捷键。 一个丑人的自白(爆笑) 转载 如何实现信息反馈? 怎样使DataGrid固定显示8行??? 一个简单的问题,关于CListCtrl.. C++文件流的怪问题,竟然不能再次打开??? 怎样在win2000 专业版上使用PHP Linux下如何知道有哪些端口未被使用?? 共享上Internet网的另一台机为何一定要配上DNS服务器地址? 来共同研究开发 文件的变量名拼写错误的检查。。。 人生交叉点, 大家进来帮帮忙 在线等待急急!在超链中有的什怎么传不过去? pb还有出路吗? 如何知道有哪些端口未被使用 请教想在页面里调用js文件达到图片轮显效果 如何在动态库中获取调用该动态库的程序的文件名称? 如何获取灰度图中各象素点的灰度值?(在线等待) 请高手帮我解决这个离散余弦变换(DCT)的问题。高分相送。 求助:sql语名查询? 怎么样在输入数据后立即更新表格? 怎么在tablename是一个参数的表中取字段值? 触发器问题?触发器无法通过确认! 请问如何将字符1转化为数字1呢? 怎样在状态栏中显示页面载入进度? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? 菜鸟的一问,请帮忙!! 请帮帮忙指一下路 上一个问题还没解决,所以只有找其它的办法。我要实现直接把邮件发到对方的SMTP服务器 类型转换? 现在有个NCNE国家信息化工程师认证,有没有用? 当数据库使用AddNew--Update插入数据时sql server出现进程死锁,请问为什么呢? Oracle8i技术问题 变量传递问题,急! 请教几个简单的函数(菜鸟级) 哪里能找到《实用软件工程》? 哪里有VisualJ++下载?谢谢! 在linux下,要在一台机上同时录音和放音,应该怎么做? 连接问题 水蛭用什么方法可以杀死 大象为何不长毛? 第二套天空套颜色怎么选 蚂蟥可以杀死吗? 单独行动——(填带马的词语)人马众多——(填带马的词语) 扩充实力——(填带马的词语) 草花头下边一个内字读什么? 移动彩钢房多少钱37平焊出底座吧1 有谁知道武士刀伞(侍伞)的“螳螂脚”是什么?在淘宝上看到的侍伞,宝贝介绍里有.螳螂脚是什么?百科里也没查到. 黄鹤楼送孟浩然之广陵描绘了一幅什么样的景象具体点,也不要太多字,就2,30个字的样子 Michael is a very happy boy 改为感叹句 蟒蛇皮哪里有买 野生熊猫有没有天敌? 5mw激光模组能接上250mw激光二极管吗? 蟒蛇皮可以买卖么 天空6套颜色怎么选 激光二极管,根据卖家提供的一些参数怎么确定该型号激光二极管电流,电压参数HL7851G - 785纳米,50毫瓦,Ø9毫米,A 型引脚,Hitachi 激光二极管,例如这个 大学高数双纽线的旋转问题双纽线绕极轴旋转,请问哪个是极轴啊要是用坐标表示的话,又是绕什么旋转啊 黄鹤楼送孟浩然之广陵描写了什么的情景 什么是激光模组?什么又是激光模块,它和单个的激光管又有什么区别? 求一个双纽线的图形,并且希望得知双纽线的图形应该怎么确定,因为题目中双纽线的方程总是变得,是应该背吗这个双扭线方程是(x^2+y^2)^2=2a^2(xy) 天空颜色选择? 激光二极管和激光模组怎么用?我看老外弄的激光枪酷毙了还可以点火柴.网上说需要激光2极管和模组怎么用?怎么组装?激光二极管和激光模组是一样的吗?说明白点好的加分 世上真的有唐伯虎这个人吗?来帮帮忙 黄鹤楼送孟浩然之广陵写的是什么季节 A boy can swim very well.A boy swims very well .这两句改成过去时怎么改呢? 某冰箱厂九月份计划生产一批冰箱,上半月完成计划的七分之四,下半月完成的和上半月同样多,结果超过计划150台,计划生产冰箱多少台? 草花头加个的字 是什么字?菂 字 怎么打..有什么输入法可以打出这个字.. 定积分,求过程 小石潭记 :第一段写小石潭的位置,有什么作用?为什么“闻水声,如鸣佩环”?作者观鱼的心情是怎样的?(用原文答)全文没有一处不在写水.请你分析一下作者是从哪些角度写潭水的特点的? 黄鹤楼送孟浩然之广陵写了一件什么事 求定积分, 小石潭记为什么“闻水声,如鸣佩环”? 大熊猫有天敌么?如果有那是什么? 求定积分, 为什么小石潭记的水声“如鸣佩环” 大熊猫对付天敌 求定积分,定积分,上限为2,下限为-2,∫I1-xIdx1-x 的绝对值 螳螂的脚有什么特点及作用 《黄鹤楼送孟浩然之广陵》是谁写的? 求此定积分, 观察知了的作文 熊猫的天敌是什么? 巨蟒跟鳄鱼 自然界里哪个厉害巨蟒跟鳄鱼 还有其他的动物 他们谁最厉害呢 以前看过一个视频 蛇把鳄鱼吃了 但是是一只小鳄鱼 如果是大鳄鱼的话结果会是什么样?最好有狮子跟老虎 等等等 抓知了作文400字 黄鹤楼送孟浩然之广陵主要写什么 我房间好多飞蛾啊.怎么办最近我房间好多飞蛾啊.后面发现是门框角落有个洞.里面飞蛾窝,我把洞堵塞住后.飞蛾就会从墙上各种各样的缝隙中飞出来,晚上开灯后就会很多飞蛾在灯边上.太多啦 知了的叫声,我要找些知了的作文. 上面一个草花头,下面一个在字怎么读 飞蛾弄死蜜蜂飞蛾和蜜蜂关在一起 两只蜜蜂都死了 飞蛾还活着 我想知道是什么情况 写一篇知了的作文(多写外形、叫声)我是捡到了一只知了, 草花头加个及读什么? 我家就我一个人的房间里有好多好多的飞蛾,为什么房间内会出现许多飞蛾?要怎么办呢? 大象长毛了吗? 草花头下加个弱读什么 怎么弄死飞蛾 最近看到一本书的封皮是《大象为什么不长毛》才发现自己不知道大象为什么不长毛.听说是 方舟子 写的.没看这本书但就想问问有没有知道的大象为什么不长毛? 草花头 加个 予 读什么 晚上房间很多飞蛾怎么办? 为什么大象不长毛? 在一个圆柱形木桶里装满水水中淹没这一个一个直径18cm的圆锥高18cm的圆锥,当圆锥取出后,水面降低多少 欧洲民众看欧盟:一体化改变生活辛格为何不担心窃听?因为他没有手机!66.8%用户很少使用强制预装软件 伊朗油轮自黑追踪系统避免被发现降低量子计算机成本的秘密材料就在纸币专家:取消注册资本限制或将淡化政府监何亚非:转移过剩产能的双赢之路朝鲜称决不放弃核武计划 韩议员团考察王毅同意大利外长博尼诺举行会谈菲律宾为美军重返苏比克湾放行男子27美元购比特币被嘲笑 4年后暴8宗叫停1宗流拍 杭州土地市场接连遇外媒:中国高层或在治理司法腐败上有所巴基斯坦愿率先加入中国空间站 进驻天芙蓉姐姐万圣节化身僵尸新娘 透视婚纱突尼斯总统高度评价突中双边关系新型冠状病毒感染者首现阿曼Facebook测试软件监控鼠标所有世界首条跨亚欧海底铁路隧道开通全球空姐制服比拼 日韩空姐靓丽抢眼(路透社关注《新快报》记者陈永洲被批捕一张图看2015年诺贝尔奖花落谁家膝关节疼痛、肿胀巧遇一招渝中强拆别墅违法建筑卡马乔:坐等中国足协给我解约金华龙百家牵手易麦通 线上线下购物更便卡马乔:坐等中国足协给我解约金沙特取代印度成为2014年全球第一大他做得了球霸,当得起屌丝马刺末节全替补阵容遭逆转负热火 阿德阜阳19路公交车配“爱心伞” 部分“巴基斯坦24岁男子大街上自焚 抗议税越来越美!刘翔前妻大露香肩 端坐沙发吴敦义谈两岸关系:维持现状需认同\"马英九邀\"蓝委\"餐叙 会场气氛轻港媒:香港要去掉的殖民地心态,是将白男子练瑜伽高难度动作 致大腿骨折(图葛天端坐沙衣着高贵典雅 网友:你会越央行周二实施400亿元逆回购 中标利美一华裔男子持枪对准警员被击毙 疑因逾百名在法难民获赠巴黎一日游:平复受抗癌有望?日本开发用微小胶囊传输抗癌
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘