如何批量增加纪录

Question

表biao（access）
id  no1 no2  typeno1: memo1中lines中动态添加；
no2: memo2中lines中动态添加；
type: memo3中lines中动态添加；
例：
memo1中内容为：
  1
  2
memo2中内容为：
  111
  222
memo3中内容为：
  语文
  结果数据库中添加为：
id  no1 no2  type
1    1  111  语文
2    1  222  语文
3    2  111  语文
4    2  222  语文如何批量增加纪录？

Answer 1

无非就是append,post,insert之类嘛，灵活应用就是了

Answer 2

1 在delphi中用循环判断和insert/append
2 讲memo中的记录存入临时表，然后执行（id是自增的吧）
insert into table
(no1, no2,  type)
select #a.* , #b.* , #c.*
from #a,#b,#c

Answer 3

在delphi中用循环判断如何用啊，能否写段代码，我会加分！

Answer 4

for i:=1 to Mm1.Items.Count do
         begin
           for j:=1 to Mm2.Items.Count do
           begin
              :=Mm1.Items.Strings[i]
              :=Mm2.Items.Strings[j]
           end;
         end;

Answer 5

使用批量更新
ith ADODataSet1 do begin
  CursorLocation := clUseClient;
  CursorType := ctStatic;
  LockType := ltBatchOptimistic;
  CommandType := cmdText;
  CommandText := 'SELECT * FROM Employee';
  Open;
end;
....
ADODataSet1.UpdateBatch(arCurrent);

Answer 6

for i:=1 to Mm1.Items.Count do
begin
    for j:=1 to Mm2.Items.Count do
     begin
       for k:=1 to Mm3.Items.Count do
       begin
              :=Mm1.Items.Strings[i]
              :=Mm2.Items.Strings[j]
              :=Mm3.Items.Strings[k]
       end;
     end;
end;

Answer 7

to: shenjhshen(公子)procedure Tadd.Button3Click(Sender: TObject);
var
  i,j,k,l: Integer;
  v1,v2,v3,v4:string;
beginfor i:=1 to Mm1.lines.Count do
begin
    for j:=1 to Mm2.lines.Count do
     begin
       for k:=1 to Mm3.lines.Count do
       begin
       for l:=1 to mm4.lines.Count do
       begin
           v1:=Mm1.lines.Strings[i];        
           v2:=Mm2.lines.Strings[j];
           v3:=Mm3.lines.Strings[k];
           v4:=mm4.lines.Strings[l];
        query1.SQL.Clear ;
       query1.SQL.Add('insert into biao(no1,no2,no3,no4) values（'''+v1+''','''+v2+''','''+v3+''','''+v4+''') ');
        query1.Open ;
       end;
       end;
     end;
end;
end;运行时提示：insert into 不对，如何调整？

Answer 8

呵呵，你这样频繁的打开，关闭数据库是不好的，如果条目多了效率很低
你的query1.Open错了

Answer 9

query1.SQL.Clear ;
query1.SQL.add(select * from ;;;;);
query1.open;
for i:=1 to Mm1.lines.Count do
begin
    for j:=1 to Mm2.lines.Count do
     begin
       for k:=1 to Mm3.lines.Count do
       begin
       for l:=1 to mm4.lines.Count do
       begin
           v1:=Mm1.lines.Strings[i];        
           v2:=Mm2.lines.Strings[j];
           v3:=Mm3.lines.Strings[k];
           v4:=mm4.lines.Strings[l];        query1.insert;
         query1.fieldbyname('').asstring:=   ;        query1.post;
       end;
       end;
     end;
end;
end;

Answer 10

query1.SQL.Clear ;
query1.SQL.add(select top 1 * from biao);
query1.open;
for i:=1 to Mm1.lines.Count do
begin
    for j:=1 to Mm2.lines.Count do
     begin
       for k:=1 to Mm3.lines.Count do
       begin
       for l:=1 to mm4.lines.Count do
       begin
           v1:=Mm1.lines.Strings[i];        
           v2:=Mm2.lines.Strings[j];
           v3:=Mm3.lines.Strings[k];
           v4:=mm4.lines.Strings[l];        query1.insert;
         query1.fieldbyname('no1').asstring:=v1;
         query1.fieldbyname('no2').asstring:=v2;
         query1.fieldbyname('no3').asstring:=v3;
         query1.fieldbyname('no4').asstring:=v4;
        query1.post;
       end;
       end;
     end;
end;
end;