걍 그러려니 하구 사용해 왔는데 이번에 프로젝트를 진해하다보니
테스트할 일이 생겨서 테스트를 했더랬습니다..
디비는 MSSQL 7.0 이구 BDE를 통해서 통신을 합니다
물론 SQL 클라이언트는 설치되어 있습니다
테이블 구조는
create table test_tbl (
code char(2) not null,
vtext varchar(4000)
)
alter tabel test_tbl
add primary key(code)
일케 만들어져 있구요..
SqlStr := 'insert into test_tbl (code, vtext) '
+ 'values (''' + Edit1.Text + ''', '
+ ' ''' + StringReplace(Memo1.Text, #39, #39#39, [rfReplaceAll]) + ''') ';
Database1.StartTransaction;
with Query2 do
begin
Close;
Sql.Clear;
Sql.add(SqlStr);
ExecSql;
end;
Database1.Commit;
요로케 저장을 합니다
Memo에는 글자가 보통 1000자이상 들어갑니다
저장은 되는디 불러 올리지를 못하는군요..ㅜ.ㅜ
누구 아시는분 없나여?
Sql.add()에 직접 널수 있는 데이터는 한계가 있습니다.
SqlStr := 'insert into test_tbl (code, vtext) '
+ 'values (:code, :vtext) ';
Database1.StartTransaction;
with Query2 do
begin
Close;
Sql.Clear;
Sql.add(SqlStr);
ParamByName.('code').AsString :=Edit1.Text;
ParamByName.('vtext').AsString :=StringReplace(Memo1.Text, #39, #39#39, [rfReplaceAll]);
ExecSql;
end;
Database1.Commit;