수정시 사용하는 쿼린데여... 어디가 잘못됐는지...
자꾸 개채가 잘못정의 되었다는 에러가 나네여!!
Bedit.Caption := '수정';
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.ADD( ' update sawon ' );
ADOQuery2.SQL.ADD( ' set S_no = :S_no, ' );
ADOQuery2.SQL.ADD( ' S_name = :S_name, ' );
ADOQuery2.SQL.ADD( ' S_jikub = :S_jikub, ' );
ADOQuery2.SQL.ADD( ' S_hobong = :S_hobong, ' );
ADOQuery2.SQL.ADD( ' S_date = :S_date, ' );
ADOQuery2.SQL.ADD( ' S_date1 = :S_date1, ' );
ADOQuery2.SQL.ADD( ' S_date2 = :S_date2 ' );
ADOQuery2.SQL.ADD( ' where S_no = :S_no ' );
ADOQuery2.Parameters.ParamValues['S_no'] := strtoint(sabun.Text);
ADOQuery2.Parameters.ParamValues['S_name'] := trim(sawonname.Text);
ADOQuery2.Parameters.ParamValues['S_jikub'] := strtoint(jikub.Text);
ADOQuery2.Parameters.ParamValues['S_hobong'] := strtoint(hobong.Text);
ADOQuery2.Parameters.ParamValues['S_date'] := strtoint(indate.Text);
if jinkubdate.Text = '' then
jinkubdate.Text := '0';
ADOQuery2.Parameters.ParamValues['S_date1'] := strtoint(jinkubdate.Text);
if tdate.Text = '' then
tdate.Text := '0';
ADOQuery2.Parameters.ParamValues['S_date2'] := strtoint(tdate.Text);
ADOQuery2.ExecSQL;
> 수정시 사용하는 쿼린데여... 어디가 잘못됐는지...
> 자꾸 개채가 잘못정의 되었다는 에러가 나네여!!
>
>
> Bedit.Caption := '수정';
> ADOQuery2.Close;
> ADOQuery2.SQL.Clear;
> ADOQuery2.SQL.ADD( ' update sawon set ' );<===== 이렇게
> ADOQuery2.SQL.ADD( ' S_no = :S_no, ' ); <===== 삭제
> ADOQuery2.SQL.ADD( ' S_name = :S_name, ' );
> ADOQuery2.SQL.ADD( ' S_jikub = :S_jikub, ' );
> ADOQuery2.SQL.ADD( ' S_hobong = :S_hobong, ' );
> ADOQuery2.SQL.ADD( ' S_date = :S_date, ' );
> ADOQuery2.SQL.ADD( ' S_date1 = :S_date1, ' );
> ADOQuery2.SQL.ADD( ' S_date2 = :S_date2 ' );
> ADOQuery2.SQL.ADD( ' where S_no = :S_no ' );
> ADOQuery2.Parameters.ParamValues['S_no'] := strtoint(sabun.Text);
> ADOQuery2.Parameters.ParamValues['S_name'] := trim(sawonname.Text);
> ADOQuery2.Parameters.ParamValues['S_jikub'] := strtoint(jikub.Text);
> ADOQuery2.Parameters.ParamValues['S_hobong'] := strtoint(hobong.Text);
> ADOQuery2.Parameters.ParamValues['S_date'] := strtoint(indate.Text);
>
> if jinkubdate.Text = '' then
> jinkubdate.Text := '0';
>
> ADOQuery2.Parameters.ParamValues['S_date1'] := strtoint(jinkubdate.Text);
>
> if tdate.Text = '' then
> tdate.Text := '0';
>
> ADOQuery2.Parameters.ParamValues['S_date2'] := strtoint(tdate.Text);
>
> ADOQuery2.ExecSQL;
S_no 는 키값이기 대문에 Updata 대상이 아님니다
그럼...