procedure TForm1.createtableClick(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('create table '+Edit1.text+' (item varchar(10), num int)');
execsql;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into table '+edit1.text+'(item ,num)values("id1",select sum(id1) from test where id1=1)');
execsql;
end;
end;
程序意图:先建一个表格,再把select查询结果insert记录到表格中。
上面的程序可以运行,但按button1后,提示insert into 语法出错,也不知道是否能实现,请指教,小弟新手,不胜感激!
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('create table '+Edit1.text+' (item varchar(10), num int)');
execsql;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into table '+edit1.text+'(item ,num)values("id1",select sum(id1) from test where id1=1)');
execsql;
end;
end;
程序意图:先建一个表格,再把select查询结果insert记录到表格中。
上面的程序可以运行,但按button1后,提示insert into 语法出错,也不知道是否能实现,请指教,小弟新手,不胜感激!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货