참신 wrote:

> 안녕하십니까..

> 메모필드를 DB에 저장할 경우 문제가 발생 하여 이렇게 도움을 청합니다.

>

> 메모필드 내용을 DB에 저장하는경우(DB는 MS-SQL)

>

> Params[11].AsString := Memo1.Lines.Text;

> Params[12].AsString := Memo2.Lines.Text;

> ; 등록내용이 많은경우 글자가 깨짐

>

> Params[11].AsMemo := Memo1.Lines.Text;

> Params[12].AsMemo := Memo2.Lines.Text;

> ; 등록되나 Memo1의 내용이 Memo2의 내용으로 변경됨

>

>

> Memo1.Lines.Strings[0] := FieldByName('memo1').AsString;

> ; DB내용을 화면에 표시할때 사용

>

> 상기의 문제를 해결 하고 시퍼서 이글을 올립니다

>

>

안녕하세요. 홍세빕니다.

메모의 내용을 저장하시려면 아래와 같이 해보세요.



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

with Query1 do begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO EXAM1 ');

SQL.Add('(Name, Alias, Memo, Photo) ');

SQL.Add('VALUES ');

SQL.Add('(:p1, :p2, :p3, :p4)');

ParamByName('p1').AsString := Edit1.Text;

ParamByName('p2').AsString := Edit2.Text;

ParamByName('p3').Assign(Memo1.Lines); // 메모내용 저장

ParamByName('p4').LoadFromFile(Openp.FileName,ftGraphic); // 이미지 저장

ExecSQL;

end;

end;



자알 될 겁니다.



놀러오세요.

http://myhome.netsgo.com/parkhs98