Q&A

  • Advstringgrid에 있는 값들을 insert하려고 합니다.
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;        

1  COMMENTS
  • Profile
    김지엽 2002.12.03 00:47
    그리드에서 NEXT 를 안하셨네요.
    계속 루프 돌면서 똑같은 값만 반복 처리 할 거 같은데요?

    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];

    요런 식으로 바꿔줘야 하지 않을까요?