delphi的memo问题,怎么将在memo中输入换行后的多行数据都保存到数据库的一个字段下面
delphi的memo问题,怎么将在memo中输入换行后的多行数据都保存到数据库的一个字段下面
我的代码如下:
if not SameText(trim(Memo2.Lines.Text),'') then
begin
rzms:=Memo2.Lines.Text;//Memo2是在界面上接收输入的数据
rzID:='R'+FormatDateTime('yyyymmddhhmmss',Now());
With ADOQuery2 do
begin
Close;
SQL.Clear;
sqlstr:='insert into hrp_rwrz values('''+rzID+''','''+s+''','''+rwsxbs+''','''+datetimetostr(now)+''','''+rzms+''')';
SQL.Add(sqlstr);
ExecSQL;
end;
end;
在memo2中我输入以下数据:
a(回车后换行)
b
结果只要a被保存了,但是b没有被保存到这个数据库的nvarchar字段下
我按一位大哥的意思修改如下:
if not SameText(trim(Memo2.Lines.Text), '') then
begin
rzms := Memo2.Lines.Text; //Memo2是在界面上接收输入的数据
rzID := 'R' + FormatDateTime('yyyymmddhhmmss', Now());
with ADOQuery2 do
begin
Close;
SQL.Clear;
sqlstr := 'insert into hrp_rwrz values(''' + rzID + ''',''' + s + ''',''' + rwsxbs + ''',''' + datetimetostr(now) + ''',:rzms)';
SQL.Add(sqlstr);
Parameters.ParamByName('rzms').Value := rzms;
ExecSQL;
end;
end;
但是出现以下问题:
下面这句话执行怎么有错误啊,
Parameters.ParamByName('rzms').Value := rzms;
说rzms找不到
我已经声明定义rzms:string;
数据库里面这个字段是:ms
但我换了还不行啊