|
delphi的memo問(wèn)題，怎么將在memo中輸入換行后的多行數(shù)據(jù)都保存到數(shù)據(jù)庫(kù)的一個(gè)字段下面 我的代碼如下： if not SameText(trim(Memo2.Lines.Text),'') then begin rzms:=Memo2.Lines.Text;//Memo2是在界面上接收輸入的數(shù)據(jù) 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中我輸入以下數(shù)據(jù)： a（回車后換行） b 結(jié)果只要a被保存了，但是b沒有被保存到這個(gè)數(shù)據(jù)庫(kù)的nvarchar字段下 我按一位大哥的意思修改如下： if not SameText(trim(Memo2.Lines.Text), '') then begin rzms := Memo2.Lines.Text; //Memo2是在界面上接收輸入的數(shù)據(jù) 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; 但是出現(xiàn)以下問(wèn)題： 下面這句話執(zhí)行怎么有錯(cuò)誤啊， Parameters.ParamByName('rzms').Value := rzms; 說(shuō)rzms找不到 我已經(jīng)聲明定義rzms：string; 數(shù)據(jù)庫(kù)里面這個(gè)字段是：ms 但我換了還不行啊 |
|
|
來(lái)自： 佚名2016 > 《編程設(shè)計(jì)》
