Q&A
- SQL 소스의 실행 이상 원인을 찾아주세요. (파라미터(Parameter) 사용)
이것 좀 봐주세영.. 모가 틀린거졍...
파라미터에 name이란것을 찾을수강 없다궁 에러가 나영...
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit2.text = '' then
begin
showMessage('수정할 고객 이름을 입력하세여');
exit;
end;
with Query1 do
begin
close;
sql.clear;
SQL.add('update chan');
sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: depart');
sql.add('where no =: "'+edit1.text+'"');
parambyname('no').asstring := edit1.text;
parambyname('name').asstring := edit2.text;
parambyname('jumin').asstring := maskedit1.text;
parambyname('tel').asstring := edit3.text;
parambyname('depart').asstring := edit4.text;
execsql;
open;
showmessage('고객정보를 수정하였숩나더.');
end;
guest_clear;
Query_list;
edit1.setfocus;
procedure query_list;
begin
with form1.Query1 do
begin
sql.clear;
sql.add('select * from chan');
open;
active := true;
end;
end;
procedure guest_clear;
begin
form1.Edit1.clear;
form1.Edit2.clear;
form1.maskEdit1.clear;
form1.Edit3.clear;
form1.Edit4.clear;
end;
그리구영.. 이 프로그램은여.. 수정할 사람을 디비그리드안에서 선택해서...
에디트에 수정할것을 적은다멩.. 수정버튼을 누르면 수정되는 프로그램인데...
수정버튼을 누른다음에 그 사람의 고유번호를 고르고...
갱신버튼을 누르는 프로그램을 구현하려면..
어떻게 해야하는징.. 갈켜주세영...
이은혜 평생 잊지 않겠습니당..
파라미터에 name이란것을 찾을수강 없다궁 에러가 나영...
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit2.text = '' then
begin
showMessage('수정할 고객 이름을 입력하세여');
exit;
end;
with Query1 do
begin
close;
sql.clear;
SQL.add('update chan');
sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: depart');
sql.add('where no =: "'+edit1.text+'"');
parambyname('no').asstring := edit1.text;
parambyname('name').asstring := edit2.text;
parambyname('jumin').asstring := maskedit1.text;
parambyname('tel').asstring := edit3.text;
parambyname('depart').asstring := edit4.text;
execsql;
open;
showmessage('고객정보를 수정하였숩나더.');
end;
guest_clear;
Query_list;
edit1.setfocus;
procedure query_list;
begin
with form1.Query1 do
begin
sql.clear;
sql.add('select * from chan');
open;
active := true;
end;
end;
procedure guest_clear;
begin
form1.Edit1.clear;
form1.Edit2.clear;
form1.maskEdit1.clear;
form1.Edit3.clear;
form1.Edit4.clear;
end;
그리구영.. 이 프로그램은여.. 수정할 사람을 디비그리드안에서 선택해서...
에디트에 수정할것을 적은다멩.. 수정버튼을 누르면 수정되는 프로그램인데...
수정버튼을 누른다음에 그 사람의 고유번호를 고르고...
갱신버튼을 누르는 프로그램을 구현하려면..
어떻게 해야하는징.. 갈켜주세영...
이은혜 평생 잊지 않겠습니당..
3
COMMENTS
-
-
붙여봤더니 이번엔 또 다른 에러가 뜨네여...
수정부분에서...
open...부분...
어떻게 좀 해주세영
윤유섭 wrote:
> sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart
> ^
> 이 부분에 공백이 있네요 이것때문인것 같은데...?
>
>
>
>
> 박찬희 wrote:
> > 이것 좀 봐주세영.. 모가 틀린거졍...
> >
> > 파라미터에 name이란것을 찾을수강 없다궁 에러가 나영...
> >
> > procedure TForm1.Button2Click(Sender: TObject);
> > begin
> > if edit2.text = '' then
> > begin
> > showMessage('수정할 고객 이름을 입력하세여');
> > exit;
> > end;
> > with Query1 do
> > begin
> > close;
> > sql.clear;
> > SQL.add('update chan');
> > sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: depart');
> > sql.add('where no =: "'+edit1.text+'"');
> >
> > parambyname('no').asstring := edit1.text;
> > parambyname('name').asstring := edit2.text;
> > parambyname('jumin').asstring := maskedit1.text;
> > parambyname('tel').asstring := edit3.text;
> > parambyname('depart').asstring := edit4.text;
> > execsql;
> > open;
> > showmessage('고객정보를 수정하였숩나더.');
> > end;
> > guest_clear;
> > Query_list;
> > edit1.setfocus;
> >
> > procedure query_list;
> > begin
> > with form1.Query1 do
> > begin
> > sql.clear;
> > sql.add('select * from chan');
> > open;
> > active := true;
> > end;
> > end;
> >
> >
> > procedure guest_clear;
> > begin
> > form1.Edit1.clear;
> > form1.Edit2.clear;
> > form1.maskEdit1.clear;
> > form1.Edit3.clear;
> > form1.Edit4.clear;
> >
> > end;
> >
> > 그리구영.. 이 프로그램은여.. 수정할 사람을 디비그리드안에서 선택해서...
> >
> > 에디트에 수정할것을 적은다멩.. 수정버튼을 누르면 수정되는 프로그램인데...
> >
> > 수정버튼을 누른다음에 그 사람의 고유번호를 고르고...
> >
> > 갱신버튼을 누르는 프로그램을 구현하려면..
> >
> > 어떻게 해야하는징.. 갈켜주세영...
> >
> > 이은혜 평생 잊지 않겠습니당..
> >
> >
-
SQL.add('update chan');
sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: depart');
--> set no = :no, name = :name, jumin =:jumin, tel = :tel, depart = :depart
--> :과 parameter사이에 떨어지면 안되요.
--> : name -> :name : depart -> :depart
sql.add('where no =: "'+edit1.text+'"');
--> no =: -> no =로 바꾸시고요
--> no가 Char, VarChar2값인가요 확인해보세요 숫자면 "도 빼시구
parambyname('no').asstring := edit1.text;
parambyname('name').asstring := edit2.text;
parambyname('jumin').asstring := maskedit1.text;
parambyname('tel').asstring := edit3.text;
parambyname('depart').asstring := edit4.text;
(NOTICE) You must be logged in to comment on this post.
-
- 이경환
- •
- 2000.08.21 23:13
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.21 23:46이경환 wrote: > treeview의 항목을 선택하면 해당 항목에 대하여 hint(?) > ex)한국이라는 항목을 선...
-
- 전성훈
- 2000.08.21 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 31-7
- •
- 2000.08.22 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.22 01:0831-7 wrote: > 안녕하세요. 비트맵파일을 프린트로 출력하는 과정을 하고 있는데요, TPrinter로 인쇄를 ...
-
- 양중모
- 2000.08.21 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 동형이
- 2000.08.21 22:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 한미르
- •
- 2000.08.22 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
장성호•2000.08.22 04:15한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
윤•2000.08.22 04:16한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
- jeyun
- •
- 2000.08.21 21:42
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:14jeyun wrote: > 저의 질문에 빠른 답변을 주시는 분들께 감사드리구요. > 오늘도 또 질문하나 하겠습니다...
-
jeyun•2000.08.22 00:22dbgrid에서 한 셀을 선택해서 sql로 select를 수행하면 dbgrid에 있던 데이타들이 없어져 보이지 않습니다....
-
- 심효찬
- 2000.08.21 21:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 장성호
- •
- 2000.08.21 21:11
- 3 COMMENTS
- /
- 0 LIKES
-
조복기•2000.08.22 03:52안녕하세요~ 변수선언을 통해서 넘겨도 되지만 바로 파라미터로 넘기시면 더 편하지않을까 생각되네여....
-
정지호•2000.08.21 22:13sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. 아래처럼요... 도움이 되셨길 바랍니다 .... ..... ...
-
장성호•2000.08.22 01:11정지호 wrote: > sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. > 아래처럼요... > 도움이 되셨길 ...
-
- 용가리
- •
- 2000.08.21 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:25용가리 wrote: > > > 삼성레이져5050G에서 인쇄가 안돼요!!!! > > 다른 프린터(삼성 마이젯900...
-
- 곽경남
- •
- 2000.08.21 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
정지호•2000.08.21 22:16곽경남 wrote: > 안녕하세요? > 델파이 초보 곽경남입니다. > > 프로그램 중에 함수명 앞에 procedure...
-
- hnc
- •
- 2000.08.21 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
윤•2000.08.21 20:18제가 아는바로는 PreView이전에 몇페이지인지 알 수 있는 함수로 알고 있습니다. 맞는지 정확하지는 않...
-
- 박찬희
- •
- 2000.08.22 04:18
- 3 COMMENTS
- /
- 0 LIKES
이것 좀 봐주세영.. 모가 틀린거졍... 파라미터에 name이란것을 찾을수강 없다궁 에러가 나영... procedure TForm1.Button2Click(Sender: TObject); begin if edit2.text = '' then begin showMessage('수정할 고객 이름을 입력하세여'); ...-
윤유섭•2000.08.22 04:18sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart ...
-
박찬희•2000.08.22 04:19붙여봤더니 이번엔 또 다른 에러가 뜨네여... 수정부분에서... open...부분... 어떻게 좀 해주세...
-
윤유섭•2000.08.22 04:19SQL.add('update chan'); sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: dep...
-
- 김성일
- 2000.08.21 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 송병철
- •
- 2000.08.21 19:43
- 2 COMMENTS
- /
- 0 LIKES
-
Windboy•2000.08.21 20:10원하시는 내용인지는 모르겠으나 옛 통합 게시판 Q&A의 5037을 보면 스트링그리드의 내용을 QuickReport...
-
윤유섭•2000.08.21 20:09QuickReport의 QRBang의 OnNeedData Event를 이용하면 StringGrid의 자료를 쉽게 출력할 수 있습니다. ...
-
- 이채성
- •
- 2000.08.21 19:34
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2000.08.22 23:46자답이네요.. 관련된 소스와 자료를 구하였습니다. 참고하시기 바랍니다. 그리고 소스는 자료실에 올려놓...
-
- 윤준호
- •
- 2000.08.21 19:31
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.08.22 18:42에고 이벤트 몇개가 빠졌네요 새로운 Form위에 Button 3개와 StringGrid 1개를 올려놓으세요 1번째 ...
-
윤유섭•2000.08.21 20:15어딘가서 본 자료인데 도움이 될련지... // StringGrid에 CheckBox와 RadioButton을 만들어 주는 부분. ...
-
윤준호•2000.08.22 06:16안되는데요. 다시 한번 갈쳐주셨으면 감사하겠구요, 그 원리도 설명해 주세여
-
- 왕초보
- •
- 2000.08.21 18:52
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.21 19:17왕초보 wrote: > Access DB를 ADO로 쓰고 있는데요. > Delet 후에도 DB Size가 줄어들지를 않습니다. > ...
-
- 사발우성
- •
- 2000.08.23 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
주경래•2000.08.23 18:34사발우성 wrote: > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,조처결과,검사결과,...
-
사발우성•2000.08.21 20:19주경래 wrote: > 사발우성 wrote: > > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,...
-
- 임호빈
- •
- 2000.08.22 04:38
- 1 COMMENTS
- /
- 0 LIKES
-
한근수•2000.08.22 04:38임호빈 wrote: > 안녕하세요 > 문의 사항은 오라클에서 디비를 생성한다음 델파이에있는 데이터 데스크탑...
^
이 부분에 공백이 있네요 이것때문인것 같은데...?
박찬희 wrote:
> 이것 좀 봐주세영.. 모가 틀린거졍...
>
> 파라미터에 name이란것을 찾을수강 없다궁 에러가 나영...
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> if edit2.text = '' then
> begin
> showMessage('수정할 고객 이름을 입력하세여');
> exit;
> end;
> with Query1 do
> begin
> close;
> sql.clear;
> SQL.add('update chan');
> sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: depart');
> sql.add('where no =: "'+edit1.text+'"');
>
> parambyname('no').asstring := edit1.text;
> parambyname('name').asstring := edit2.text;
> parambyname('jumin').asstring := maskedit1.text;
> parambyname('tel').asstring := edit3.text;
> parambyname('depart').asstring := edit4.text;
> execsql;
> open;
> showmessage('고객정보를 수정하였숩나더.');
> end;
> guest_clear;
> Query_list;
> edit1.setfocus;
>
> procedure query_list;
> begin
> with form1.Query1 do
> begin
> sql.clear;
> sql.add('select * from chan');
> open;
> active := true;
> end;
> end;
>
>
> procedure guest_clear;
> begin
> form1.Edit1.clear;
> form1.Edit2.clear;
> form1.maskEdit1.clear;
> form1.Edit3.clear;
> form1.Edit4.clear;
>
> end;
>
> 그리구영.. 이 프로그램은여.. 수정할 사람을 디비그리드안에서 선택해서...
>
> 에디트에 수정할것을 적은다멩.. 수정버튼을 누르면 수정되는 프로그램인데...
>
> 수정버튼을 누른다음에 그 사람의 고유번호를 고르고...
>
> 갱신버튼을 누르는 프로그램을 구현하려면..
>
> 어떻게 해야하는징.. 갈켜주세영...
>
> 이은혜 평생 잊지 않겠습니당..
>
>