sql语句保存stringgrid表数据

Question

for k:=1 to stringgrid1.RowCount-1 do
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='insert into putindl(编号,编码) values('''+putincode+''','''+stringgrid1.Cells[1,k]+''')';
    ADOQuery1.ExecSQL;一个问题是循环不起来,,第二是读不出表格的数据

Answer 1

1、加个begin 
end;在确定循环代码。
2、确定l的值。

Answer 2

 begin
   for k:=1 to stringgrid1.RowCount-1 do
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='insert into putindl(编号,编码) values('''+putincode+''','''+stringgrid1.Cells[1,k]+''')';
    ADOQuery1.ExecSQL;
   end;加了的,,,stringgrid1.Cells[1,k],,,列是  1不是i

Answer 3

 begin
   for k:=1 to stringgrid1.RowCount-1 do
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='insert into putindl(编号,编码) values('''+putincode+''','''+stringgrid1.Cells[1,k]+''')';
    ADOQuery1.ExecSQL;
   end;
不是这样加的，改为这样
for k:=1 to stringgrid1.RowCount-1 do
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='insert into putindl(编号,编码) values('''+putincode+''','''+stringgrid1.Cells[1,k]+''')';
  ADOQuery1.ExecSQL;
  inc(k);//这里加个自增
end;