아래의 소스대로 db에 저장할려고 할때
3줄까지는 아무이상 없이 저장이 잘됩니다 그러나 3줄이상 넘어가면
저장한 부분이 없어져버리고 그냥실행됨니다.
그 원인을 모르겠네요!!!!!
혹시 memo의 저장방법이 다른지
제가 db쪽에 이상이 있나해서 stext의 필드 자리수를 vcart 5000 정도로 여유 있게 잡아 놓았지만 데이타가 들어가지 않는 이유가 무엇인지 모르겠군요!!!
고수님 제발 좀.......
STEMP_HOTISSUENO := EDHOTISSUENO.Text;
STEMP_TITLE := EDTITLE.Text;
STEMP_FROMDATE := EDFROMDATE.Text ;
STEMP_TODATE := EDTODATE.Text;
STEMP_STEXT := EDSTEXT.text ; ........이부분이 memo 컴포넌트입니다
// stemp_new := 'N';
//Y=insert n=edit
if stemp_new = 'Y' then
begin
UPDATEHOTISSUE.DataSet.Insert ;
end;
if stemp_new = 'N' then
begin
UPDATEHOTISSUE.DataSet.Edit ;
end;
if STEMP_TITLE = '' then
begin
showmessage('제목은 필수 입력항목 입니다.');
exit;
end;
if STEMP_STEXT = '' then
begin
showmessage('HOTISSUE 내역는 필수 입력항목 입니다.');
exit;
end;
UPDATEHOTISSUE.DataSet.FieldByName('HOTISSUENO').asstring := STEMP_HOTISSUENO ;
UPDATEHOTISSUE.DataSet.FieldByName('TITLE').AsString := STEMP_TITLE;
UPDATEHOTISSUE.DataSet.FieldByName('STEXT') := STEMP_STEXT;..이부분이 memo
UPDATEHOTISSUE.DataSet.FieldByName('FROMDATE').AsString := STEMP_FROMDATE;
UPDATEHOTISSUE.DataSet.FieldByName('TODATE').AsString := STEMP_TODATE;
UPDATEHOTISSUE.DataSet.ApplyUpdates ;
델love wrote:
> 아래의 소스대로 db에 저장할려고 할때
> 3줄까지는 아무이상 없이 저장이 잘됩니다 그러나 3줄이상 넘어가면
> 저장한 부분이 없어져버리고 그냥실행됨니다.
> 그 원인을 모르겠네요!!!!!
> 혹시 memo의 저장방법이 다른지
> 제가 db쪽에 이상이 있나해서 stext의 필드 자리수를 vcart 5000 정도로 여유 있게 잡아 놓았지만 데이타가 들어가지 않는 이유가 무엇인지 모르겠군요!!!
> 고수님 제발 좀.......
> STEMP_HOTISSUENO := EDHOTISSUENO.Text;
> STEMP_TITLE := EDTITLE.Text;
> STEMP_FROMDATE := EDFROMDATE.Text ;
> STEMP_TODATE := EDTODATE.Text;
> STEMP_STEXT := EDSTEXT.text ; ........이부분이 memo 컴포넌트입니다
> // stemp_new := 'N';
>
> //Y=insert n=edit
> if stemp_new = 'Y' then
> begin
> UPDATEHOTISSUE.DataSet.Insert ;
> end;
> if stemp_new = 'N' then
> begin
> UPDATEHOTISSUE.DataSet.Edit ;
> end;
>
> if STEMP_TITLE = '' then
> begin
> showmessage('제목은 필수 입력항목 입니다.');
> exit;
> end;
>
>
> if STEMP_STEXT = '' then
> begin
> showmessage('HOTISSUE 내역는 필수 입력항목 입니다.');
> exit;
> end;
>
>
> UPDATEHOTISSUE.DataSet.FieldByName('HOTISSUENO').asstring := STEMP_HOTISSUENO ;
> UPDATEHOTISSUE.DataSet.FieldByName('TITLE').AsString := STEMP_TITLE;
> UPDATEHOTISSUE.DataSet.FieldByName('STEXT') := STEMP_STEXT;..이부분이 memo
> UPDATEHOTISSUE.DataSet.FieldByName('FROMDATE').AsString := STEMP_FROMDATE;
> UPDATEHOTISSUE.DataSet.FieldByName('TODATE').AsString := STEMP_TODATE;
> UPDATEHOTISSUE.DataSet.ApplyUpdates ;
>