검색(찾기)을 할려고 하는데 에러가 자꾸 뜨네요...
에러가 뜨면 확인을 누르고 F9를 다시 누르면 제가 찾고자 하는 레코드는
찾아지더라구요.
에러메시지만 없애면 될것 같습니다.
답변 부탁드립니다.
[에러내용 :]
Access violation at address 004875F2 in module 'pEquipSystem.ext'.Read of address 000000E0.
Proess stipped. Use step or Run to continue.
어떻게 디버그를 해야 돼는지요?
소스가 잘못된건지요?
[Source :]
edtSearch(TEdit)에서 KeyPress 활용
procedure TfrmEquip.edtSearchKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
button6.OnClick(sender);
end;
procedure TfrmEquip.Button6Click(Sender: TObject);
begin
//장비화면 찾기 버튼
with Query1 do begin
DatabaseName := 'Equip';
Query1.RequestLive := True;
close;
Sql.Clear;
Sql.Add('select * from 장비');
Sql.Add(' Where 장비코드 Like "'+ edtSearch.Text +'%" ');
if Prepared = false then prepare;
Query1.Open;
end;
end;
여기서 큰따옴표 대신 작은따옴표 두개로 바꿔주세요
==> Sql.Add(' Where 장비코드 Like '''+ edtSearch.Text +'%'' ');