with query5 do
begin
sql.clear;
sql.add(' insert into T00_04M ');
sql.add(' (N_OWNER, YY_GWASE, A_BASE, D_ACCT_SETT,R_RATE, AREA_BUD, ');
sql.add(' AREA_BIGWA, AREA_GWASE, DTL_NOTE, AREA_GWASE_ALL) ');
sql.add(' values (''' + MaskEdit9.TEXT + ''',' );
SQL.Add( ' ''' + COPY(MaskEdit2.TEXT, 1 ,4) + ''',' );
SQL.Add( ' ''' + '0' + ''',' );
SQL.Add( ' ''' + '' + ''',' );
SQL.Add( ' ''' + '1' + ''',' );
SQL.Add( ' ''' + '1' + ''',' );
SQL.Add( ' ''' + '0' + ''',' );
SQL.Add( ' ''' + '0' + ''',' );
SQL.Add( ' ''' + Edit4.TEXT + ''',' );
SQL.Add( ' ''' + '0' + ''')' );
ExecSQL;
END;
에러없이 잘넘어 가는데.. ㅜ.ㅠ 값은 하나도 안들어 가염...
우앙~ 머가 잘못되었나염.....
begin
sql.clear;
sql.add(' insert into T00_04M ');
sql.add(' (N_OWNER, YY_GWASE, A_BASE, D_ACCT_SETT,R_RATE, AREA_BUD, ');
sql.add(' AREA_BIGWA, AREA_GWASE, DTL_NOTE, AREA_GWASE_ALL) ');
sql.add(' values (:pOwner, :pYY_GWASE, :pA_BASE, ...');
ParamByName('pOwner').AsString := COPY(MaskEdit2.TEXT, 1 ,4) ;
ParamByName('pYY_GWASE').AsString := 어쩌구;
ParamByName('pA_BASE').AsInteger := 저쩌구;
try
ExecSQL;
DataBase1.Commit;
except
DataBase1.RollBack;
end;