Q&A
- sql문 이용하여 데이타 삽입시 에러....
DBgrid에 data를 삽입하려 하는데
Project Progect1.exe raised exception class EDBEngindError with
message 'Invalid use of keyword.
Token:insert
Line Number: 3'.Process stoppen.Use Step or Run to continue.
라는 에러가 납니다. coding은 아래에 있고 프로그램은 압축했습니다.
해결 좀 해주세요...
procedure TForm2.DB_Input;
begin
with form1 do
begin
//n, a, n, a, d
query1.ParamByName('N1').asstring := edit1.Text;
query1.ParamByName('N2').asstring := edit2.Text;
query1.ParamByName('N3').asstring := edit3.Text;
query1.ParamByName('N4').asstring := edit4.Text;
query1.ParamByName('N5').asstring := edit5.Text;
end;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '')
or (edit4.Text = '') or (edit5.Text='') then
begin
application.MessageBox('입력을 다시 확인 하세요!','입력오류',MB_OK);
end
else
begin
with form1 do
begin
query1.sql.Add('insert into 만화책');
query1.SQL.Add('(no, name, book, address, date)');
query1.sql.Add('values');
query1.sql.Add('( :N1,');
query1.sql.Add(' :N2,');
query1.sql.Add(' :N3,');
query1.sql.Add(' :N4,');
query1.sql.Add(' :N5)');
DB_Input;
end;
form1.Query1.ExecSQL;<=====이부분에서 error가 납니다. 해결 좀 해주세요
end;
end;
Project Progect1.exe raised exception class EDBEngindError with
message 'Invalid use of keyword.
Token:insert
Line Number: 3'.Process stoppen.Use Step or Run to continue.
라는 에러가 납니다. coding은 아래에 있고 프로그램은 압축했습니다.
해결 좀 해주세요...
procedure TForm2.DB_Input;
begin
with form1 do
begin
//n, a, n, a, d
query1.ParamByName('N1').asstring := edit1.Text;
query1.ParamByName('N2').asstring := edit2.Text;
query1.ParamByName('N3').asstring := edit3.Text;
query1.ParamByName('N4').asstring := edit4.Text;
query1.ParamByName('N5').asstring := edit5.Text;
end;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '')
or (edit4.Text = '') or (edit5.Text='') then
begin
application.MessageBox('입력을 다시 확인 하세요!','입력오류',MB_OK);
end
else
begin
with form1 do
begin
query1.sql.Add('insert into 만화책');
query1.SQL.Add('(no, name, book, address, date)');
query1.sql.Add('values');
query1.sql.Add('( :N1,');
query1.sql.Add(' :N2,');
query1.sql.Add(' :N3,');
query1.sql.Add(' :N4,');
query1.sql.Add(' :N5)');
DB_Input;
end;
form1.Query1.ExecSQL;<=====이부분에서 error가 납니다. 해결 좀 해주세요
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 별이
- •
- 1999.07.16 00:20
- 2 COMMENTS
- /
- 0 LIKES
-
손창근•1999.07.16 01:46안녕하세요... 오공이 입니다. keypress는 single character을 눌렀을때 나타나는 이벤트입니다.. 간단... -
정재홍•1999.07.16 01:38별이 께서 말씀하시기를... > 죄송합니다... > 버튼을 만든후...키를 누른후... > 이벤트가 발생되게 할...
-
- 한
- 1999.07.16 00:04
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 이룡
- 1999.07.15 23:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 이중락
- 1999.07.15 23:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 안류진
- •
- 1999.07.15 22:29
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.07.15 23:12안류진 께서 말씀하시기를... > 안녕하십니까? 저는 SQL SERVER와 SYSBASE를 사용하고 있습니다. > > ...
-
-
- 안류진
- •
- 1999.07.15 22:21
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.07.15 23:20안류진 께서 말씀하시기를... > 안녕하세요! 저는 현재 SQL SERVER,SYSBASE를 사용하고 있습니다. > > ...
-
- 김준선
- •
- 1999.07.15 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.07.15 22:51WM_SYSCOMMAND 메세지를 사용하세요. if M.WParam = SC_CLOSE then begin M.Result := 0; end e...
-
- 솔잎
- 1999.07.15 21:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 김장현
- •
- 1999.07.15 20:29
- 1 COMMENTS
- /
- 0 LIKES
-
글쎄요•1999.07.15 21:43여기에 가보셔요. 참고가 되실 겁니다. http://www.efg2.com/Lab/
-
- 김민오
- •
- 1999.07.15 20:11
- 1 COMMENTS
- /
- 0 LIKES
-
글쎄요•1999.07.15 21:35김민오 께서 말씀하시기를... > 변수의 값을 원하는 소숫점자리수 만큼 반올림하는 공식을 가르쳐 주세요....
-
- 김선호
- 1999.07.15 19:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 조복기
- •
- 1999.07.15 19:53
- 3 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.07.15 21:24안녕하세요. 팝업메뉴가 팝업될대는 절대적 위치의 값을 받습니다. 스피드버턴의 마우스다운에서 넘...
-
조복기•1999.07.15 22:52테스트는 아직 해보질않았지만 친절한 답변 감사합니다.. 좋은하루되세요..
-
글쎄요•1999.07.15 20:16GetCursorPos()함수를 사용하셔요. 그럼..
-
- 나금보
- 1999.07.15 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 베짱이
- 1999.07.15 10:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종환
- •
- 1999.07.15 10:31
- 2 COMMENTS
- /
- 0 LIKES
-
이창남•1999.07.15 18:16김종환 께서 말씀하시기를... > 스트링 그리드에서 마우스로 선택한, 즉 포커스를 가지고 있는 셀의 > 내...
-
김종환•1999.07.15 19:41감사 합니다. -----------------------답변에 내이름이 많이 오르는 그날을 위해-----
-
- 이용일
- •
- 1999.07.15 10:30
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.07.15 19:25정수형 숫자를 스트링으로 바꾸는것~ IntToStr 그반대는 StrToInt 실수형(소수점)숫자를 ...
-
- 배동진
- •
- 1999.07.15 08:24
- 1 COMMENTS
- /
- 0 LIKES
-
김상영•1999.07.15 10:28배동진 께서 말씀하시기를... > query를(데이타입력시) 사용후 자동으로 db의 데이타번호를 자동으로 삽입...
-
- 배동진
- •
- 1999.07.15 08:13
- 1 COMMENTS
- /
- 0 LIKES
DBgrid에 data를 삽입하려 하는데 Project Progect1.exe raised exception class EDBEngindError with message 'Invalid use of keyword. Token:insert Line Number: 3'.Process stoppen.Use Step or Run to continue. 라는 에러가 납니다...-
조복기•1999.07.15 19:02안녕하세요..조복기입니다.. 비가 오니까 시원해서 좋네요.. 제생각엔 sql.add만 있고 그전에 clear...
안녕하세요..조복기입니다..
비가 오니까 시원해서 좋네요..
제생각엔 sql.add만 있고 그전에 clear문장이 없어서 에러가
난것같기도 하고.. (여러번 수행하면 SQL문이 쌓여서..)
만약 같은에러가 난다면
sql문을 변수에 담아두고 한번에 add를 시켜서 실행해보세요..
그전에 변수값을 디버깅과정을 통해 어떻게 sql문이
완성되었는지도 확인하시구요..
그리고 Execsql작업하기전에 Try..Except(예외처리) 시켜주시면
좋겠죠?...
좋은하루되세요..
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '')
or (edit4.Text = '') or (edit5.Text='') then
begin
application.MessageBox('입력을 다시 확인 하세요!','입력오류',MB_OK);
exit;
end;
with Query1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('insert into 만화책');
SQL.Add('(no, name, book, address, date)');
SQL.Add('values');
SQL.Add('( :N1,:N2,:N3,:N4,:N5)');
ParamByName('N1').asstring := Trim(edit1.Text);
ParamByName('N2').asstring := Trim(edit2.Text);
ParamByName('N3').asstring := Trim(edit3.Text);
ParamByName('N4').asstring := Trim(edit4.Text);
ParamByName('N5').asstring := Trim(edit5.Text);
ExecSQL;
end;
end;
배동진 께서 말씀하시기를...
> DBgrid에 data를 삽입하려 하는데
> Project Progect1.exe raised exception class EDBEngindError with
> message 'Invalid use of keyword.
> Token:insert
> Line Number: 3'.Process stoppen.Use Step or Run to continue.
> 라는 에러가 납니다. coding은 아래에 있고 프로그램은 압축했습니다.
> 해결 좀 해주세요...
>
> procedure TForm2.DB_Input;
> begin
> with form1 do
> begin
> //n, a, n, a, d
> query1.ParamByName('N1').asstring := edit1.Text;
> query1.ParamByName('N2').asstring := edit2.Text;
> query1.ParamByName('N3').asstring := edit3.Text;
> query1.ParamByName('N4').asstring := edit4.Text;
> query1.ParamByName('N5').asstring := edit5.Text;
> end;
> end;
>
> procedure TForm2.BitBtn1Click(Sender: TObject);
> begin
> if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '')
> or (edit4.Text = '') or (edit5.Text='') then
> begin
> application.MessageBox('입력을 다시 확인 하세요!','입력오류',MB_OK);
> end
> else
> begin
> with form1 do
> begin
> query1.sql.Add('insert into 만화책');
> query1.SQL.Add('(no, name, book, address, date)');
> query1.sql.Add('values');
> query1.sql.Add('( :N1,');
> query1.sql.Add(' :N2,');
> query1.sql.Add(' :N3,');
> query1.sql.Add(' :N4,');
> query1.sql.Add(' :N5)');
> DB_Input;
> end;
> form1.Query1.ExecSQL;<=====이부분에서 error가 납니다. 해결 좀 해주세요
> end;
>
> end;
>
>