D
ddw
Unregistered / Unconfirmed
GUEST, unregistred user!
下面的句子错吗(总提示insert into语句语法错误)
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ADOTable1.Open;
Adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 总表(D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,D21,D22,D23,D24,D25,D26,D27,D28,D29,D30,D31,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D42,D43,D44,D45,D46,D47,D48),');
adoquery1.sql.Add('SUM(CASE 地区代码 WHEN D01 THEN 数量 ELSE 0 END) AS D01,');
adoquery1.SQL.Add('SUM(CASE 地区代码 WHEN D02 THEN 数量 ELSE 0 END) AS D02,');
:
:
:
adoquery1.SQL.Add('SUM(CASE 地区代码 WHEN D47 THEN 数量 ELSE 0 END) AS D47,');
adoquery1.sql.Add('SUM(CASE 地区代码 WHEN D48 THEN 数量 ELSE 0 END) AS D48,');
ADOQUERY1.SQL.Add('FROM 各地车总数量 C , 车型代码 A');
Adoquery1.SQL.Add('c.月份<12');
Adoquery1.SQL.Add('AND A.车型代码 *= C.车型代码');
Adoquery1.SQL.Add('GROUP BY a.车型代码');
Adoquery1.ExecSQL;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ADOTable1.Open;
Adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 总表(D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,D21,D22,D23,D24,D25,D26,D27,D28,D29,D30,D31,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D42,D43,D44,D45,D46,D47,D48),');
adoquery1.sql.Add('SUM(CASE 地区代码 WHEN D01 THEN 数量 ELSE 0 END) AS D01,');
adoquery1.SQL.Add('SUM(CASE 地区代码 WHEN D02 THEN 数量 ELSE 0 END) AS D02,');
:
:
:
adoquery1.SQL.Add('SUM(CASE 地区代码 WHEN D47 THEN 数量 ELSE 0 END) AS D47,');
adoquery1.sql.Add('SUM(CASE 地区代码 WHEN D48 THEN 数量 ELSE 0 END) AS D48,');
ADOQUERY1.SQL.Add('FROM 各地车总数量 C , 车型代码 A');
Adoquery1.SQL.Add('c.月份<12');
Adoquery1.SQL.Add('AND A.车型代码 *= C.车型代码');
Adoquery1.SQL.Add('GROUP BY a.车型代码');
Adoquery1.ExecSQL;
end;