遇到这样的数据问题

Question

有200多个字符串，strM101,strM102,strM103...strM336,要把数据库A表里一个子段（m101,m102,m103...m336）赋值给这200多个字段,然后把strM101,strM102,strM103...strM336存储到另外一个B表一个字段里，
TADOQuery* pQuery=new TADOQuery(NULL);
pQuery->Connection=DataModule2->conDataConn;pQuery->Close();
pQuery->SQL->Clear();
AnsiString strSql,strM101,strM102,strM103,strM104,strM105,strM106;
strSql="select * from Motor";
pQuery->SQL->Add(strSql);
pQuery->Open();
strM101=pQuery->FieldByName("m101")->AsString;
strM102=pQuery->FieldByName("m102")->AsString;
strM103=pQuery->FieldByName("m103")->AsString;
strM104=pQuery->FieldByName("m104")->AsString;
strM105=pQuery->FieldByName("m105")->AsString;
strM106=pQuery->FieldByName("m106")->AsString;TADOQuery* pInsert=new TADOQuery(NULL);
pInsert->Connection=DataModule2->conDataConn;pInsert->Close();
pInsert->SQL->Clear();
AnsiString strIm101,strIm102,strIm103,strIm104,strIm106,strIm105;
strIm101="update TABLE1 set RunTime="+strM101+" where MachineName='m101'";   //--Mvalue1设定的加油时间
strIm102="update TABLE1 set RunTime="+strM102+" where MachineName='m102'";
strIm103="update TABLE1 set RunTime="+strM103+" where MachineName='m103'";
strIm104="update TABLE1 set RunTime="+strM104+" where MachineName='m104'";
strIm105="update TABLE1 set RunTime="+strM105+" where MachineName='m105'";
strIm106="update TABLE1 set RunTime="+strM106+" where MachineName='m106'";pInsert->SQL->Add(strIm101);
pInsert->SQL->Add(strIm102);
pInsert->SQL->Add(strIm103);
pInsert->SQL->Add(strIm104);
pInsert->SQL->Add(strIm105);
pInsert->SQL->Add(strIm106);
pInsert->ExecSQL();最笨的方法了，有没有好的方法，谢谢

Answer 1

拆分表:--> --> (Roy)生成測試數據
 
if not object_id('Tab') is null
    drop table Tab
Go
Create table Tab([Col1] int,[COl2] nvarchar(5))
Insert Tab
select 1,N'a,b,c' union all
select 2,N'd,e' union all
select 3,N'f'
GoSQL2000用辅助表:
if object_id('Tempdb..#Num') is not null
    drop table #Num
go
select top 100 ID=Identity(int,1,1) into #Num from syscolumns a,syscolumns b
Select 
    a.Col1,COl2=substring(a.Col2,b.ID,charindex(',',a.Col2+',',b.ID)-b.ID) 
from 
    Tab a,#Num b
where
    charindex(',',','+a.Col2,b.ID)=b.ID --也可用 substring(','+a.COl2,b.ID,1)=','
SQL2005用Xml:select 
    a.COl1,b.Col2
from 
    (select Col1,COl2=convert(xml,'<root><v>'+replace(COl2,',','</v><v>')+'</v></root>') from Tab)a
outer apply
    (select Col2=C.v.value('.','nvarchar(100)') from a.COl2.nodes('/root/v')C(v))b
SQL05用CTE:;with roy as 
(select Col1,COl2=cast(left(Col2,charindex(',',Col2+',')-1) as nvarchar(100)),Split=cast(stuff(COl2+',',1,charindex(',',Col2+','),'') as nvarchar(100)) from Tab
union all
select Col1,COl2=cast(left(Split,charindex(',',Split)-1) as nvarchar(100)),Split= cast(stuff(Split,1,charindex(',',Split),'') as nvarchar(100)) from Roy where split>''
)
select COl1,COl2 from roy order by COl1 option (MAXRECURSION 0)生成结果:
/*
Col1        COl2
----------- -----
1           a
1           b
1           c
2           d
2           e
3           f
*/

Answer 2

--分拆列值
--原著：邹建
--改编：爱新觉罗.毓华(十八年风雨,守得冰山雪莲花开)  2007-12-16  广东深圳/*
有表tb, 如下: 
id          value 
----------- ----------- 
1          aa,bb 
2          aaa,bbb,ccc 
*/
--欲按id,分拆value列, 分拆后结果如下: 
/*
id          value 
----------- -------- 
1          aa 
1          bb 
2          aaa 
2          bbb 
2          ccc 
*/
--1. 旧的解决方法(sql server 2000) 
select top 8000 id = identity(int, 1, 1) into # from syscolumns a, syscolumns b select A.id, substring(A.[values], B.id, charindex(',', A.[values] + ',', B.id) - B.id) 
from tb A, # B 
where substring(',' + A.[values], B.id, 1) = ',' drop table # --2. 新的解决方法(sql server 2005) create table tb(id int,value varchar(30)) 
insert into tb values(1,'aa,bb') 
insert into tb values(2,'aaa,bbb,ccc') 
go 
select A.id, B.value 
from( 
    select id, [value] = convert(xml,' <root> <v>' + replace([value], ',', ' </v> <v>') + ' </v> </root>') from tb 
)A 
outer apply( 
    select value = N.v.value('.', 'varchar(100)') from A.[value].nodes('/root/v') N(v) 
)B drop table tb /* 
id          value 
----------- ------------------------------ 
1          aa 
1          bb 
2          aaa 
2          bbb 
2          ccc (5 行受影响) 
*/