안녕하세요.

인터베이스를 이용하였으며 아래의 코딩에서 에러가 발생하네요.



에러 메시지는 Database not assigned 입니다.

처음 접하는 에러라 뭔지 모르겠네요.

에러가 발생하는 부분은 Apply(ukModify);입니다.



with DBModule.UpBill do begin

ModifySQL.Clear;

ModifySQL.Add('Update Bill ');

ModifySQL.Add('Set B_JiSang = :A, ');

ModifySQL.Add(' B_OutDate = :B, ');

ModifySQL.Add(' B_OutYM = :C');

ModifySQL.Add('Where B_BillNo="' + EditBillNum.Text + '" ');

Query[ukModify].ParamByName('A').AsString := ComboSang.Text;

Query[ukModify].ParamByName('B').AsDateTime := EditJiDate.Date;

Query[ukModify].ParamByName('C').AsString := Copy(EditJiDate.Text, 1, 7);



Apply(ukModify);



if DBModule.Tran_1.InTransaction then begin

try

DBModule.QBill.ApplyUpdates;

DBModule.Tran_1.Commit;

except

DBModule.Tran_1.Rollback;

end;

end;

end;