파라메터인 ymd1을 찾을수 없다네요..혹시 아시는분 지적좀 찾아주세요
허접해서 잘 모르겠네요...서로다른 db에 데이타를 a->b로 insert해주는
프로그램입니다 그런데 a.b테이블의 필드가 조금 달라요..
특정 날짜의 테이타를 가져와서 insert해주는건데..영..^^;.
봐주세요.. 부탁합니다

그리고 혹시 쿼리의 insert부분이나 맨 마지막 부분에 파라메터에 값을
넣는부분이 잘못된건 없나요? 고치고 실행하니 다쉬 invalid field name이
뜨네요 형식이 잘못된곳이 있나요?

procedure TForm1.Button3Click(Sender: TObject);

var
ymd1, ymd2 : string;
begin
ymd1 := datetostr(datetimepicker1.date);
ymd1 := copy(ymd1,1,4)+copy(ymd1,6,2)+copy(ymd1,9,2);
ymd2 := datetostr(datetimepicker1.date);
ymd2 := copy(ymd2,1,4)+copy(ymd2,6,2)+copy(ymd2,9,2);

  query2.close;
  query1.ParamByName('ymd1').asstring := ymd1;
  query1.ParamByName('ymd2').asstring := ymd2;
  query2.sql.clear;
  query2.sql.add(' insert into ms_member ( cd_ch_office, no_member,nm_member,no_tel) ');
  query2.sql.add(' ,no_post,ct_addr1,ct_addr2,no_co_post,ct_co_addr,ct_co_addr2,dt_entr)' );
  query2.sql.add('       values( :cn1,cn2,na,te,zi,ah1,ah2,zj,aj1,aj2,yj)  ');

  begin
     query1.close;
     query1.sql.clear;
     query1.sql.add( ' select * from ur_mem ');
     query1.sql.add( ' where cd_bizpl_join = "88" ');
     query1.sql.add( ' and ymd_join between :ymd1 and :ymd2 ');

     query1.Open;
     while not query2.eof do
     begin
        query2.ParamByName('cn1').AsString := copy(query1.fieldbyname('nm_mem_card').Asstring,1,6);
        query2.ParamByName('cn2').AsString := copy(query1.fieldbyname('nm_mem_card').asstring,7,7);
        query2.ParamByName('na').AsString := query1.fieldbyname('nm_mem').Asstring;
        query2.ParamByName('te').AsString := query1.fieldbyname('no_tel_home').asstring;
        query2.parambyname('zi').asstring := query1.fieldbyname('nm_zip_home1||nm_zip_home').Asstring;
        query2.ParamByName('ah1').AsString := query1.fieldbyname('addr_home1').Asstring;
        query2.ParamByName('ah2').AsString := query1.fieldbyname('addr_home2').Asstring;
        query2.ParamByName('zj').AsString := query1.fieldbyname('no_zip_job1||no_zip_job2').Asstring;
        query2.ParamByName('aj1').AsString := query1.fieldbyname('addr_job1').Asstring;
        query2.ParamByName('aj2').AsString := query1.fieldbyname('addr_job2').Asstring;
        query2.ParamByName('yj').AsString := query1.fieldbyname('ymd_join').Asstring;
       query2.execsql;
     end;
  end;

end;

end.