컴파일을 하고
입력을 다한후 저장을 하려니깐
''project icustomer.exe raised exception class EDBEngineError with Message
'General SQL error,
unclosed quotation mark before the character string '?)',
line 3:incorrect syntax near '?)',',procsee stopped.
use step or Run to Continue.''
라는 에러가 뜨는데
<<저장 루틴>>
with TbCuStom do begin
if FindKey([edtF01.Text,EdtF02.text]) then Edit
else begin
Append;
FieldByName('CusTomil').AsString := edtF01.Text;
FieldByName('CusTomNo').AsString := edtF02.Text;
end;
FieldByName('Chco').AsString := edtF03.Text;
FieldByName('Model').AsString := edtF04.Text;
FieldByName('Rev').AsString := edtF041.Text;
FieldByName('DamDang').AsString := edtF05.Text;
FieldByName('JaeJo').AsString := edtF06.Text;
FieldByName('Surang').asFloat := vfgSToD(edtF07.text);
FieldByName('ReqMemo').AsString := edtF08.Text;
FieldByName('JoChiMemo').AsString := edtF09.Text;
FieldByName('Bigo').AsString := edtF10.Text;
FieldByName('SaBun').AsString := edtF11.Text;
FieldByName('Wan').AsString := edtF12.Text;
Post;
refresh;
end;
어떻게야 하죠???
꼭 부탁드립니당
델파이 초보인데요. 그냥 잘 못된 부분이 눈에 띄어서 이렇게 염치불구하고 글을
씁니다.
두가지로 생각할수있는데요.
첫째, 조건문에서 findkey되려는필드가 Index로 잡혀있어야하는데, 어떤지요?
둘째, 3번째줄 FieldByName('CusTomNo').AsString := edtF02.Text; 에서
값이 확실히 Integer형이 String로 바뀔때 에러가 없었는지 확인해보세요.
그럼 이만.....
엔젤조 wrote:
> 컴파일을 하고
>
> 입력을 다한후 저장을 하려니깐
>
> ''project icustomer.exe raised exception class EDBEngineError with Message
> 'General SQL error,
> unclosed quotation mark before the character string '?)',
> line 3:incorrect syntax near '?)',',procsee stopped.
> use step or Run to Continue.''
>
> 라는 에러가 뜨는데
>
> <<저장 루틴>>
> with TbCuStom do begin
> if FindKey([edtF01.Text,EdtF02.text]) then Edit
> else begin
> Append;
> FieldByName('CusTomil').AsString := edtF01.Text;
> FieldByName('CusTomNo').AsString := edtF02.Text;
> end;
> FieldByName('Chco').AsString := edtF03.Text;
> FieldByName('Model').AsString := edtF04.Text;
> FieldByName('Rev').AsString := edtF041.Text;
> FieldByName('DamDang').AsString := edtF05.Text;
> FieldByName('JaeJo').AsString := edtF06.Text;
> FieldByName('Surang').asFloat := vfgSToD(edtF07.text);
> FieldByName('ReqMemo').AsString := edtF08.Text;
> FieldByName('JoChiMemo').AsString := edtF09.Text;
> FieldByName('Bigo').AsString := edtF10.Text;
> FieldByName('SaBun').AsString := edtF11.Text;
> FieldByName('Wan').AsString := edtF12.Text;
> Post;
> refresh;
> end;
>
> 어떻게야 하죠???
> 꼭 부탁드립니당