파이어버드1.5(클래식) 과 인터베이스를 쓰고 있습니다
간단히 테이블셋의 값을 바꾸어 보려고 하는데, 정말 어렵네요..
이제 배우기 시작하는 초보인데, 조금 가르쳐 주세요.. (-- ) (_ _ );;
[테이블명은 TEST_TB이고, TEST1 이라는 필드를 기준으로 TEST2 에 있는 내용을 변경하고자 합니다.]
[꺼내놓은 컴포넌트-> TIBdatabase, TIBTransaction, IBQuery, TIBUpdataSQL, TDataSource) ]
<!--CodeS-->
procedure TForm1.Button2Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.Sql.Clear;

IBQuery1.Sql.text:=
'update TEST_TB' +
' set TEST2=:TEST2 WHERE TEST1=:TEST1';

IBQuery1.Edit;
IBQuery1.Open;
IBQuery1.ParamByName('TEST1').value := 'AAB';
IBQuery1.ParamByName('TEST2').value := '99';

IBQuery1.Post;
IBQuery1.Applyupdates;
IBtransaction1.StartTransaction;
IBtransaction1.Commit;
IBQuery1.Close;
end;
<!--CodeE-->