sql로 선택한 데이타를 edit box에 하나씩 보여주는데..
현재 보여지는 자료만을 수정하려고 합니다.
그런데
SQL.Add('Update Gas_station');
SQL.Add(' Set BIZ_NAME=:BIZ_NAME,ZIPCODE=:ZIPCODE, PHONE1=:PHONE1, '+
'PHONE2=:PHONE2, PHONE3=:PHONE3, ADDRESS=:ADDRESS, L_JIBUN=:L_JIBUN, ' +
'S_JIBUN=:S_JIBUN, S_NM=:S_NM, F_RP_S_CD=:F_RP_S_CD');
EditDataInput;
ExecSQL;
procedure TFormTable.EditDataInput;
begin
with DM.qryEdit do
begin
ParamByName('BIZ_NAME').AsString := Edit1.Text;
ParamByName('ZIPCODE').AsString := Edit2.Text;
ParamByName('PHONE1').AsString := Edit3.Text;
ParamByName('PHONE2').AsString := Edit4.Text;
ParamByName('PHONE3').AsString := Edit5.Text;
ParamByName('ADDRESS').AsString := Edit6.Text;
ParamByName('L_JIBUN').AsString := Edit7.Text;
ParamByName('S_JIBUN').AsString := Edit8.Text;
ParamByName('S_NM').AsString := cmbName.Text;
ParamByName('F_RP_S_CD').AsInteger := StrToInt(cmbCode.Text);
end;
end;
이렇게 수정을 했더니 데이타 전체가 하나의 값으로 바뀌어 버려서요..
현재 보여지는 데이타에 대해서만 수정을 하려면 어떻게 해야 되는지...
where절을 추가하세요..
위의 예를 들면..
SQL.Add('Update Gas_station');
SQL.Add(' Set BIZ_NAME=:BIZ_NAME,ZIPCODE=:ZIPCODE, PHONE1=:PHONE1, '+
'PHONE2=:PHONE2, PHONE3=:PHONE3, ADDRESS=:ADDRESS, L_JIBUN=:L_JIBUN, ' +
'S_JIBUN=:S_JIBUN, S_NM=:S_NM, F_RP_S_CD=:F_RP_S_CD');
//여기에
SQL.Add('where BIZ_NAME= :BIZ_NAME); // 이렇게요..
EditDataInput;
ExecSQL;