동적쿼리 Archives

DBISAM 동적 쿼리에서 필드명을 자동으로만들기 예제.

간단히 구성해 본내용입니다. 동적 쿼리에서 필드명을 자동으로만들기 예제입니다. Bold체를 눈여겨 보시면 될듯.

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;

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;

참고만 하세요.

EagleSoft

[태그:] 동적쿼리

DBISAM 동적 쿼리에서 필드명을 자동으로만들기 예제.

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글