2,507
社区成员




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;