Advstringgrid에 있는 값들을 insert하려고 합니다.
그리드에 뿌려진 모든 row를 insert해주려고 하는데
아래처럼 하니 첫번째 row만 insert 됩니다..
어디를 고쳐야 할지 알려주세요..~
\\\\\\\\\\\\\\\\\\
for i:= 1 to AdvGrid2.Rowcount -1 do
begin
with MastData.InsertQuery do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO FNB_RECIPE_D '+
' (menu_code,mtr_code,ing_need) '+
'VALUES '+
' (:menu_code,:mtr_code,:ing_need) ');
ParamByName('menu_code').AsString := ASBLabel_mcode.Caption;
ParamByName('mtr_code').AsString := AdvGrid2.Cells[1,AdvGrid2.row];
ParamByName('ing_need').AsString := AdvGrid2.Cells[4,AdvGrid2.row];
ExecSql;
end;
계속 루프 돌면서 똑같은 값만 반복 처리 할 거 같은데요?
ParamByName('mtr_code').AsString := AdvGrid2.Cells[1,AdvGrid2.row];
ParamByName('ing_need').AsString := AdvGrid2.Cells[4,AdvGrid2.row];
요 부분을,
ParamByName('mtr_code').AsString := AdvGrid2.Cells[1,i];
ParamByName('ing_need').AsString := AdvGrid2.Cells[4,i];
요런 식으로 바꿔줘야 하지 않을까요?