간단히 구성해 본내용입니다.
동적 쿼리에서 필드명을 자동으로만들기 예제입니다.
Bold체를 눈여겨 보시면 될듯.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
with DBISAMQuery2 do begin Close; SQL.Clear; SQL.Text := 'Select * from Clean_Drop'; Open; S := ''; S1 := ''; for I := 0 to FieldCount - 1 do begin S := S + Fields[I].FieldName + ','; S1 := S1 + ':' + Fields[I].FieldName + ','; end; S := Copy(S, 1, length(S) - 1) + ') Values ( '; S1 := Copy(S1, 1, length(S1) - 1) + ') '; DBISAMQuery3.Close; DBISAMQuery3.SQL.Clear; DBISAMQuery3.SQL.Text := 'Insert into Temp_Clean_Drop (' + S + S1; while not Eof do begin for I := 0 to FieldCount - 1 do DBISAMQuery3.Params[I].Assign(Fields[I]); DBISAMQuery3.ExecSQL; next; end; end; |
참고만 하세요.
최신 댓글