Q&A
- 스트링그리드에서 updatesql를 코딩에서 사용하는 방법
for i := stringgrid1.rowcount - 1 to 1 do
begin
query1.UpdateObject := UpdateSQL1;
query1.sql.BeginUpdate;
query1.SQL.Add('update dsclgo set sc_outnumber = :number,');
query1.sql.add('sc_item = :item, sc_qty = :qty, sc_dan = :dan,');
query1.sql.add('sc_amt = :amt');
query1.sql.add('where sc_outnumber =' + cmboutnumber.text );
query1.SQL.EndUpdate;
query1.ParamByName('number').DataType := ftString;
query1.ParamByName('number').Value := trim(cmboutnumber.Text);
query1.ParamByName('item').DataType := ftstring;
query1.parambyname('item').value := stgrdout.Cells[0,i];
query1.ParamByName('qty').DataType := ftstring;
query1.parambyname('qty').value := stgrdout.Cells[1,i];
query1.parambyname('dan').datatype := ftString;
query1.parambyname('dan').value := stgrdout.cells[2,i];
query1.parambyname('amt').datatype := ftstring;
query1.parambyname('amt').value := stgrdout.cells[3,i];
query1.Prepare;
query1.ApplyUpdates;
end;
코딩을 위와 같이 했습니다.
콤보박스로 선택되어진 데이터들을 스트링그리드로 뿌리고 난다음
그 상태에서 편집버튼을 클릭합니다. 그리고 나서 스트링 그리드에서 데이타들을 수정하고 난 다음 저장버튼을 눌렀을때 데이터가 수정이 되지 않습니다. 코드는 위와 같이 했구요 updatesql을 사용하는 방법을 잘 모릅니다.
질문 1) updatesql을 동적으로 사용하는 방법
: 연결되어진 query1가 동적으로 연결되기 때문
2) 위의 코딩에 문제가 있으면 알려주시기를 바랍니다.
begin
query1.UpdateObject := UpdateSQL1;
query1.sql.BeginUpdate;
query1.SQL.Add('update dsclgo set sc_outnumber = :number,');
query1.sql.add('sc_item = :item, sc_qty = :qty, sc_dan = :dan,');
query1.sql.add('sc_amt = :amt');
query1.sql.add('where sc_outnumber =' + cmboutnumber.text );
query1.SQL.EndUpdate;
query1.ParamByName('number').DataType := ftString;
query1.ParamByName('number').Value := trim(cmboutnumber.Text);
query1.ParamByName('item').DataType := ftstring;
query1.parambyname('item').value := stgrdout.Cells[0,i];
query1.ParamByName('qty').DataType := ftstring;
query1.parambyname('qty').value := stgrdout.Cells[1,i];
query1.parambyname('dan').datatype := ftString;
query1.parambyname('dan').value := stgrdout.cells[2,i];
query1.parambyname('amt').datatype := ftstring;
query1.parambyname('amt').value := stgrdout.cells[3,i];
query1.Prepare;
query1.ApplyUpdates;
end;
코딩을 위와 같이 했습니다.
콤보박스로 선택되어진 데이터들을 스트링그리드로 뿌리고 난다음
그 상태에서 편집버튼을 클릭합니다. 그리고 나서 스트링 그리드에서 데이타들을 수정하고 난 다음 저장버튼을 눌렀을때 데이터가 수정이 되지 않습니다. 코드는 위와 같이 했구요 updatesql을 사용하는 방법을 잘 모릅니다.
질문 1) updatesql을 동적으로 사용하는 방법
: 연결되어진 query1가 동적으로 연결되기 때문
2) 위의 코딩에 문제가 있으면 알려주시기를 바랍니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- Help Me*^^*
- 2001.10.05 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- kirra
- 2001.10.05 19:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 만성
- •
- 2001.10.05 19:37
- 2 COMMENTS
- /
- 0 LIKES
-
코스엑스•2001.10.05 20:24만성 wrote: > 스트링그리드를 쓰게되면 상단과 좌단에 타이틀칼럼이 있지 않습니까? > 경우에 따라 제목...
-
만성•2001.10.06 08:43코스엑스 wrote: > 만성 wrote: > > 스트링그리드를 쓰게되면 상단과 좌단에 타이틀칼럼이 있지 않습니까...
-
-
- sonny
- •
- 2001.10.05 19:21
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.06 10:43해당 서버의 command 환경에서 svrmgrl을 실행시켜서 connect internal을 통해 접속하시면 sys user로 접...
-
델 초보(아줌마)•2001.10.06 04:10sonny wrote: > internal로 접속하고자하는데 어케하져... > 보통 오라클접속시 internal하면 패스워드 ...
-
- 전영진
- 2001.10.05 10:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 목동
- •
- 2001.10.05 10:20
- 7 COMMENTS
- /
- 0 LIKES
-
돌파리•2001.10.06 02:07목동 wrote: > 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^ > 아래 두분께서 도와 주신대로 코딩...
-
코스엑스•2001.10.05 11:41목동 wrote: > 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^ > 아래 두분께서 도와 주신대로 코딩...
-
자유지역•2001.10.05 10:22sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서 "1" 을 ""를 지우...
-
목동•2001.10.05 10:31자유지역 wrote: > sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서 ...
-
자유지역•2001.10.05 10:55access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 맞질 않거나 해서 생...
-
목동•2001.10.05 11:01자유지역 wrote: > access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 ...
-
목동•2001.10.05 10:16꾸벅 감사 합니다.. 저도 금방 발견했는데요.. 그 부분은 고쳤네요.. 게시판에 올려 놓고 보니까 눈에 안 ...
-
- 자유지역
- •
- 2001.10.05 10:58
- 3 COMMENTS
- /
- 0 LIKES
-
irookie•2001.10.05 16:43exit대신 break를 사용해 보세요. 제가 알기에는 exit는 폼(프로그램)을 끝내는 걸루 알고 있습니다. ...
-
자유지역•2001.10.05 17:26답변 감사합니다. 하지만 break나 continue 문은 루프에서만 사용이 가능한걸로 알고 있는데.. 그리고 한...
-
코스엑스•2001.10.05 18:30자유지역 wrote: > 답변 감사합니다. > 하지만 break나 continue 문은 루프에서만 사용이 가능한걸로 알...
-
- 목동
- •
- 2001.10.05 09:06
- 2 COMMENTS
- /
- 0 LIKES
-
자유지역•2001.10.05 10:06요구하시는게 이것인지 모르겠군여.. DBGrid1.Fields[0].AsString; //DBGrid의 선택된 첫번째 필드 값입...
-
코스엑스•2001.10.05 09:45목동 wrote: > 안녕하세요? 서울의 목동입니다.. > 한가지 궁금한 것이 있어서 지난 게시물을 찾아 보고...
-
- 안영훈
- •
- 2001.10.05 07:33
- 1 COMMENTS
- /
- 0 LIKES
-
stoney•2001.10.05 08:13RichEdit에서 원하는 Syntex를 색깔을 바꾸는 방법이니까 응용해보세요.. procedure TForm1.Button1Clic...
-
- 이상환
- •
- 2001.10.05 06:43
- 1 COMMENTS
- /
- 0 LIKES
-
코스엑스•2001.10.05 09:46이상환 wrote: > 오라클 DB 테이블에 설계된 필드 길이보다 긴 데이터를 무조건 입력하고자 합니다. > 방...
-
- green15
- •
- 2001.10.05 05:39
- 1 COMMENTS
- /
- 0 LIKES
for i := stringgrid1.rowcount - 1 to 1 do begin query1.UpdateObject := UpdateSQL1; query1.sql.BeginUpdate; query1.SQL.Add('update dsclgo set sc_outnumber = :number,'); query1.sql.add('sc_item = :item, sc_qty = :qty, sc_da...-
코스엑스•2001.10.05 09:53green15 wrote: > for i := stringgrid1.rowcount - 1 to 1 do > begin > query1.UpdateObje...
-
- 이인수
- 2001.10.05 06:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김철수
- 2001.10.05 04:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.10.05 03:46
- 2 COMMENTS
- /
- 0 LIKES
-
stoney•2001.10.05 08:18이런 식으로 하면 될꺼 같네요. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); be...
-
강인규•2001.10.05 04:16스트링의 첫번째 문자는 var S : String; 이라 하면 S[1] 하시면 됩니다.. 숫자 특수문자가 ...
-
- 초보
- 2001.10.05 03:45
- 0 COMMENTS
- /
- 0 LIKES
-
- dasam4
- •
- 2001.10.05 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
major•2001.10.05 04:07dasam4 wrote: > 현재 저의 회사에서 프로그램을 개발한 것은 델파이 3입니다... > 예전부터 작업을 델파...
-
-
- 델파이3.0
- 2001.10.05 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 미친닭
- 2001.10.05 02:31
- 0 COMMENTS
- /
- 0 LIKES
> for i := stringgrid1.rowcount - 1 to 1 do
> begin
> query1.UpdateObject := UpdateSQL1;
> // 필요없음 query1.sql.BeginUpdate;
> query1.SQL.Add('update dsclgo set sc_outnumber = :number,');
> query1.sql.add('sc_item = :item, sc_qty = :qty, sc_dan = :dan,');
> query1.sql.add('sc_amt = :amt');
> query1.sql.add('where sc_outnumber =' + cmboutnumber.text );
> // 필요없음 query1.SQL.EndUpdate;
>
>// query1.ParamByName('number').DataType := ftString;
>// query1.ParamByName('number').Value := trim(cmboutnumber.Text);
// 밑에처럼 한줄로 Optimize
query1.ParmaByName('number').asString := trim(cmboutnumber.Text);
> query1.ParamByName('item').DataType := ftstring;
> query1.parambyname('item').value := stgrdout.Cells[0,i];
> query1.ParamByName('qty').DataType := ftstring;
> query1.parambyname('qty').value := stgrdout.Cells[1,i];
> query1.parambyname('dan').datatype := ftString;
> query1.parambyname('dan').value := stgrdout.cells[2,i];
> query1.parambyname('amt').datatype := ftstring;
> query1.parambyname('amt').value := stgrdout.cells[3,i];
>
>
> query1.Prepare;
> // query1.ApplyUpdates; ApplyUpdates 란 Transaction 을 쓸때
// 쓰는거지..이런식으로 쓰는것이 아님다.
query1.ExecSQL;
>
>
> end;
>
> 코딩을 위와 같이 했습니다.
> 콤보박스로 선택되어진 데이터들을 스트링그리드로 뿌리고 난다음
> 그 상태에서 편집버튼을 클릭합니다. 그리고 나서 스트링 그리드에서 데이타들을 수정하고 난 다음 저장버튼을 눌렀을때 데이터가 수정이 되지 않습니다. 코드는 위와 같이 했구요 updatesql을 사용하는 방법을 잘 모릅니다.
> 질문 1) updatesql을 동적으로 사용하는 방법
> : 연결되어진 query1가 동적으로 연결되기 때문
> 2) 위의 코딩에 문제가 있으면 알려주시기를 바랍니다.
>