한국 델파이 개발자 모임 - IBQuery문INSERT, 한단계전진은 했지만....

IBQuery문INSERT, 한단계전진은 했지만....

* 사용환경 : 인터베이스6

* 에러 메시지 : Dynamic sql error SQL error code = -104

Token unknown - line 2 , char -1 (혹은 line 1 , char 0)

한단계 진전이 있었습니다만 확실한 조언을 주신 고수님들이 안계시는군요..

도움을 바랍니다..(ParamBy('vno').AsString:=... 등등..소스방식을 바꾸어도 결과는 마찬가지입니다.)

with Ibquery1 do begin

Close;

SQL.Clear;

SQL.Add('select * from vcust ');

open;

append; //->insert대신 append명령을 써도 되는지요...(맨 끝줄에 자료추가시..)

showmessage( 'DB그리드에 빈줄 생기고 업데이트준비완료...' );//->성공했구요...

//insert;

FieldByName('vno').Value := regno;

FieldByName('vname').Value := regname;

FieldByName('vtel').Value := regtel;

FieldByName('v_jumin').Value := regjumin;

FieldByName('v_nick').Value := regnick;

FieldByName('post_no').Value := regpost;

FieldByName('add1').Value := regadd1;

FieldByName('add2').Value := regadd2;

FieldByName('family').Value := regfamily;

FieldByName('v_kind').Value := regkind;

FieldByName('v_point').Value := regpoint;

FieldByName('v_charge').Value := regcharge;

FieldByName('Regist_date').Value := regdate;

FieldByName('Last_visit').Value := regvisit;

FieldByName('v_s_money').Value := regmoney;

FieldByName('membership').Value := regmember;

showmessage( 'DB그리드 맨 아랬줄에 POst할 값들이 나타났습니다.' );// ->자료가 추가중인것이 디비그리드에 보입니다. 역시성공...

-------------------------------------여기까지는 잘 됩니다.

Post;

showmessage( 'Post에 성공 하였습니다.' );// -> 확실히 추가 되었습니다. 성공...

if ibtransaction1.InTransaction then

begin

showmessage( '트랜잭션 진입!!' );//->여기까지도 OK!!

try

showmessage( 'Try모드 진입!!' ); //-> Post 명령을 REM 시키면 이줄까지는 도착합니다.

applyupdates; // -> 이줄에서 다이나믹 에러, SQL Statement -104 어쩌구 하는 에러가 납니다.(IBQuery의 캐쉬모드는 True로 설정된 상태입니다.)

showmessage( 'commit전단계!!' );

ibtransaction1.commit;

showmessage( '기록성공!!' );->기록성공까지는 가지못하는군요...

---------------------------------------------------------------------------------

아래에 전체소스입니다.

무엇이 잘 못되었는지요...

procedure TForm1.Button8Click(Sender: TObject);

var

RegNo, RegName, RegTel, RegJumin, RegNick, RegPost:String;

RegAdd1, RegAdd2, RegKind, RegDate, Regvisit,RegMember : String;

Maxno, RegFamily, RegPoint, RegCharge, RegMoney: Integer;

begin

NoteBook1.PageIndex:=0;

with Ibquery1 do begin

Close;

SQL.Clear;

SQL.Add('select * from vcust ');

open;

append; //->insert대신 append명령을 써도 되는지요...(맨 끝줄에 자료추가시..)

showmessage( 'DB그리드에 빈줄 생기고 업데이트준비완료...' );//->성공했구요...

//insert;

FieldByName('vno').Value := regno;

FieldByName('vname').Value := regname;

FieldByName('vtel').Value := regtel;

FieldByName('v_jumin').Value := regjumin;

FieldByName('v_nick').Value := regnick;

FieldByName('post_no').Value := regpost;

FieldByName('add1').Value := regadd1;

FieldByName('add2').Value := regadd2;

FieldByName('family').Value := regfamily;

FieldByName('v_kind').Value := regkind;

FieldByName('v_point').Value := regpoint;

FieldByName('v_charge').Value := regcharge;

FieldByName('Regist_date').Value := regdate;

FieldByName('Last_visit').Value := regvisit;

FieldByName('v_s_money').Value := regmoney;

FieldByName('membership').Value := regmember;

showmessage( 'DB그리드 맨 아랬줄에 POst할 값들이 나타났습니다.' );// ->자료가 추가중인것이 디비그리드에 보입니다. 역시성공...

-------------------------------------여기까지는 잘 됩니다.

Post;

showmessage( 'Post에 성공 하였습니다.' );// -> 확실히 추가 되었습니다. 성공...

if ibtransaction1.InTransaction then

begin

showmessage( '트랜잭션 진입!!' );//->여기까지도 OK!!

try

showmessage( 'Try모드 진입!!' ); //-> Post 명령을 REM 시키면 이줄까지는 도착합니다.

applyupdates; // -> 이줄에서 다이나믹 에러, SQL Statement -104 어쩌구 하는 에러가 납니다.(IBQuery의 캐쉬모드는 True로 설정된 상태입니다.)

showmessage( 'commit전단계!!' );

ibtransaction1.commit;

showmessage( '기록성공!!' );->기록성공까지는 가지못하는군요...

Open;

except

ibtransaction1.rollback;

end;

end

else

showmessage('트랜잭션 모드가 아님!');

end ;

이 게시물을

1 COMMENTS

인터기초 • 2001.10.29 04:21

결국 나중에 테이블을 다시 열어보면 commit이 안되어 있습니다.

인터기초 wrote:

> * 사용환경 : 인터베이스6

> * 에러 메시지 : Dynamic sql error SQL error code = -104

> Token unknown - line 2 , char -1 (혹은 line 1 , char 0)

>

> 한단계 진전이 있었습니다만 확실한 조언을 주신 고수님들이 안계시는군요..

> 도움을 바랍니다..(ParamBy('vno').AsString:=... 등등..소스방식을 바꾸어도 결과는 마찬가지입니다.)

>

>

> with Ibquery1 do begin

> Close;

> SQL.Clear;

> SQL.Add('select * from vcust ');

> open;

>

> append; //->insert대신 append명령을 써도 되는지요...(맨 끝줄에 자료추가시..)

> showmessage( 'DB그리드에 빈줄 생기고 업데이트준비완료...' );//->성공했구요...

> //insert;

> FieldByName('vno').Value := regno;

> FieldByName('vname').Value := regname;

> FieldByName('vtel').Value := regtel;

> FieldByName('v_jumin').Value := regjumin;

> FieldByName('v_nick').Value := regnick;

> FieldByName('post_no').Value := regpost;

> FieldByName('add1').Value := regadd1;

> FieldByName('add2').Value := regadd2;

> FieldByName('family').Value := regfamily;

> FieldByName('v_kind').Value := regkind;

> FieldByName('v_point').Value := regpoint;

> FieldByName('v_charge').Value := regcharge;

> FieldByName('Regist_date').Value := regdate;

> FieldByName('Last_visit').Value := regvisit;

> FieldByName('v_s_money').Value := regmoney;

> FieldByName('membership').Value := regmember;

> showmessage( 'DB그리드 맨 아랬줄에 POst할 값들이 나타났습니다.' );// ->자료가 추가중인것이 디비그리드에 보입니다. 역시성공...

> -------------------------------------여기까지는 잘 됩니다.

> Post;

> showmessage( 'Post에 성공 하였습니다.' );// -> 확실히 추가 되었습니다. 성공...

>

> if ibtransaction1.InTransaction then

> begin

> showmessage( '트랜잭션 진입!!' );//->여기까지도 OK!!

>

> try

> showmessage( 'Try모드 진입!!' ); //-> Post 명령을 REM 시키면 이줄까지는 도착합니다.

> applyupdates; // -> 이줄에서 다이나믹 에러, SQL Statement -104 어쩌구 하는 에러가 납니다.(IBQuery의 캐쉬모드는 True로 설정된 상태입니다.)

>

>

> showmessage( 'commit전단계!!' );

> ibtransaction1.commit;

> showmessage( '기록성공!!' );->기록성공까지는 가지못하는군요...

> ---------------------------------------------------------------------------------

>

>

>

>

> 아래에 전체소스입니다.

> 무엇이 잘 못되었는지요...

>

>

> procedure TForm1.Button8Click(Sender: TObject);

> var

> RegNo, RegName, RegTel, RegJumin, RegNick, RegPost:String;

> RegAdd1, RegAdd2, RegKind, RegDate, Regvisit,RegMember : String;

> Maxno, RegFamily, RegPoint, RegCharge, RegMoney: Integer;

> begin

> NoteBook1.PageIndex:=0;

>

> with Ibquery1 do begin

> Close;

> SQL.Clear;

> SQL.Add('select * from vcust ');

> open;

>

> append; //->insert대신 append명령을 써도 되는지요...(맨 끝줄에 자료추가시..)

> showmessage( 'DB그리드에 빈줄 생기고 업데이트준비완료...' );//->성공했구요...

> //insert;

> FieldByName('vno').Value := regno;

> FieldByName('vname').Value := regname;

> FieldByName('vtel').Value := regtel;

> FieldByName('v_jumin').Value := regjumin;

> FieldByName('v_nick').Value := regnick;

> FieldByName('post_no').Value := regpost;

> FieldByName('add1').Value := regadd1;

> FieldByName('add2').Value := regadd2;

> FieldByName('family').Value := regfamily;

> FieldByName('v_kind').Value := regkind;

> FieldByName('v_point').Value := regpoint;

> FieldByName('v_charge').Value := regcharge;

> FieldByName('Regist_date').Value := regdate;

> FieldByName('Last_visit').Value := regvisit;

> FieldByName('v_s_money').Value := regmoney;

> FieldByName('membership').Value := regmember;

> showmessage( 'DB그리드 맨 아랬줄에 POst할 값들이 나타났습니다.' );// ->자료가 추가중인것이 디비그리드에 보입니다. 역시성공...

> -------------------------------------여기까지는 잘 됩니다.

> Post;

> showmessage( 'Post에 성공 하였습니다.' );// -> 확실히 추가 되었습니다. 성공...

>

> if ibtransaction1.InTransaction then

> begin

> showmessage( '트랜잭션 진입!!' );//->여기까지도 OK!!

>

> try

> showmessage( 'Try모드 진입!!' ); //-> Post 명령을 REM 시키면 이줄까지는 도착합니다.

> applyupdates; // -> 이줄에서 다이나믹 에러, SQL Statement -104 어쩌구 하는 에러가 납니다.(IBQuery의 캐쉬모드는 True로 설정된 상태입니다.)

>

>

> showmessage( 'commit전단계!!' );

> ibtransaction1.commit;

> showmessage( '기록성공!!' );->기록성공까지는 가지못하는군요...

> Open;

> except

> ibtransaction1.rollback;

> end;

> end

> else

> showmessage('트랜잭션 모드가 아님!');

> end ;

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이지인
- 2001.10.29 18:28
- 0 COMMENTS
- /
- 0 LIKES
델파이 기본단위를 Pixel이 아닌 다른단위는??
- 이호림
- •
- 2001.10.29 17:58
- 1 COMMENTS
- /
- 0 LIKES
퍼스널 오라클 8.1.7에서 데이터베이스 시작시 비밀번호는 뭐에요?
- mafioso
  
  •
  
  2001.10.29 18:27
  
  아마 그게 internal/oracle 일겁니다. 이호림 wrote: > 방금 Win98용 퍼스널 오라클 8.1.7 버전을 ...
- 김태형
- •
- 2001.10.29 17:33
- 1 COMMENTS
- /
- 0 LIKES
[저장에관한거]초보질문좀..ㅡㅡ
- 델파이 탐 크르즈
  
  •
  
  2001.10.29 17:52
  
  김태형 wrote: > 저기여 > 제가 요즘 강좌를 보면서 델파이를 공부 하는데 > 거기서 > 버튼을 만들고 ...
- 김도성
- 2001.10.29 08:36
- 0 COMMENTS
- /
- 0 LIKES
폼 투명만드는거여~?
- 김두환
- •
- 2001.10.29 04:12
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요.. 꼭 아시는 분 답변 부탁드립니다.. SQL관련 질문입니다..
- bibic
  
  •
  
  2001.10.29 22:52
  
  sql 문장을 쓰실때 공백을 안주시고 이어서 쓰신거 같네여... 예를 들어서 'SELECT * FROM' + 'ADDRESS....
- 분홍
  
  •
  
  2001.10.29 07:40
  
  김두환 wrote: > SQL관련해서 프로그램을 짰는데요.. 에러 메세지가 발생하는 데 무엇과 관련된 에러인지 ...
- 인터기초
- •
- 2001.10.29 00:00
- 1 COMMENTS
- /
- 0 LIKES
IBQuery문INSERT, 한단계전진은 했지만....

* 사용환경 : 인터베이스6 * 에러 메시지 : Dynamic sql error SQL error code = -104 Token unknown - line 2 , char -1 (혹은 line 1 , char 0) 한단계 진전이 있었습니다만 확실한 조언을 주신 고수님들이 안계시는군요.. 도움을 바랍...
- 인터기초
  
  •
  
  2001.10.29 04:21
  
  결국 나중에 테이블을 다시 열어보면 commit이 안되어 있습니다. 인터기초 wrote: > * 사용환경 : ...
- 델파이를 차차 알아가
- 2001.10.28 23:15
- 0 COMMENTS
- /
- 0 LIKES
[급질문]소스와오류메세지를 올리겠습니다.봐주세요[급질문]
- oranzi
- •
- 2001.10.28 19:42
- 2 COMMENTS
- /
- 0 LIKES
DB에서 읽어오는게 안되요~(소스첨부)
- 델 초보(아줌마)
  
  •
  
  2001.10.29 18:33
  
  oranzi wrote: > 아래가 제가 짠 소스구요.. > > Query1.Close; > Query1.Sql.Clear; > Query...
- 성더기
  
  •
  
  2001.10.29 11:48
  
  그리드에 표시할 수 있는 문자열의 길이는 255자가 최대입니다 그이상이 넘어가는 필드는 전부 메모로 보...
- 111
- •
- 2001.10.28 19:12
- 1 COMMENTS
- /
- 0 LIKES
3번짼데 아무두 모르시나...stringgrid에서hint사용방법
- 조규춘
  
  •
  
  2001.10.29 02:38
  
  111 wrote: > 안녕하세여. > 스트링그리드의 각셀에 마우스를 가져갈때 각각의 셀에 대한 자세한 > 정보...
- 궁금이
- •
- 2001.10.28 19:01
- 3 COMMENTS
- /
- 0 LIKES
mouse over로 버튼 이미지 바꾸기??
- 조규춘
  
  •
  
  2001.10.29 02:43
  
  반갑습니다. 이런거에 대한 예제를 보내드리지요.. 아래의 주소입니다. http://user.chollian....
- 궁금이
  
  •
  
  2001.10.29 04:32
  
  아래 파일을 풀고 델파이에서 여니까 stream에러가 나네요 form이 안보여요 조규춘 wrote: > > 반갑...
- 조규춘
  
  •
  
  2001.10.29 13:52
  
  보니깐.. 지금 그 압축파일을 푸니... 읽기전용으로 되었있어서... *.dcu를 만들지 못한다는 에러...
- 한상훈
- 2001.10.28 08:34
- 0 COMMENTS
- /
- 0 LIKES
RadioGroup 의 wordwrap
- 모르겠당
- •
- 2001.10.28 06:41
- 1 COMMENTS
- /
- 0 LIKES
델파이 FTP의 protocol
- 이경문
  
  •
  
  2001.10.29 06:22
  
  질문인가요, 리포트인가요? 모르겠당 wrote: > "FTP의 protocol 조사" > > 입니다. > 장황하게 할 ...
- bogi
- 2001.10.28 03:54
- 0 COMMENTS
- /
- 0 LIKES
Data수정이 안됩니다.(오류메세지는 안뜨는데...)
- 델파이 대빵초보
- 2001.10.28 02:56
- 0 COMMENTS
- /
- 0 LIKES
디비와 엑셀 조건 검색해서 스트링그리드에 뿌리는 법...급합니다...
- 배추벌레
- 2001.10.28 02:15
- 0 COMMENTS
- /
- 0 LIKES
TeeChart install 방법줌.. ㅠㅠ
- 인터기초
- •
- 2001.10.28 00:53
- 1 COMMENTS
- /
- 0 LIKES
IBsql문의 SQL error = code -104 Token unknown - line
- 김훈
  
  •
  
  2001.10.28 15:49
  
  전반적으로 코드자체에 문제가 있는 거 같습니다. 알고리즘(?) 은 대강 이렇습니다. TIBTransaction ...
- 운풍
- 2001.10.27 22:34
- 0 COMMENTS
- /
- 0 LIKES
델파이에서 Stored Procedure 사용법
- 3년째 델초
- •
- 2001.10.27 22:26
- 2 COMMENTS
- /
- 0 LIKES
[급합니다! 간절희 부탁해요] 뭣 때문인지?
- 운풍
  
  •
  
  2001.10.27 22:38
  
  3년째 델초 wrote: > 기존 프로그램을 수정하는데 The qrptMyoungBeforePrint method referenced by qrptM...
- 3년째 델초
  
  •
  
  2001.10.29 20:53
  
  운풍 wrote: > 3년째 델초 wrote: > > 기존 프로그램을 수정하는데 The qrptMyoungBeforePrint method re...
- dns
- •
- 2001.10.27 22:09
- 1 COMMENTS
- /
- 0 LIKES
혹시 이거 아시는분 계신가여?
- 최용일
  
  •
  
  2001.10.27 22:55
  
  안녕하세요. 최용일입니다. 컴파일(Compile)하신것이 아니라 실행(Run)하신것 같네요... Control-F9...
- 찬
- 2001.10.27 21:23
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.

인터기초
2001/10/29 00:00
Views247

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1521 1522 1523 1524 1525 1526 1527 1528 1529 1530

Last Page→