2,497
社区成员
发帖
与我相关
我的任务
分享
strSql :='INSERT INTO MyTable (id,data1)'+#13;
for I :=0 to 99 do
strSql := strSql+'SELECT'+ IntToStr(I)+','+ floattostr(1.1)+' UNION ALL'+ #13;
strSql := strSql+'SELECT'+ IntToStr(100)+','+ floattostr(5.5);
query.close;
query.sql.clear;
query.sql.add(strSql);
query.execsql;