有两种方法解决,第二种要麻烦点,但保险些1。不能用ASSTRING,因为已经不是用这种类型在处理了 query.SQL.Add('insert table (Content) values (:sContent) '); parambyname('qq').assign(memo1.lines);2。这是我的一部分程序,其中QQ为QUERY中TEXT参数名,你自己的根据实际情况修改 var buffer : TMemoryStream; begin buffer:=TMemoryStream.create; memo1.Lines.SaveToStream(buffer); with query2 do begin close; parambyname('qq').LoadFromStream(buffer,ftMemo); execsql; end; buffer.Free; end;
有两种方法解决,第二种要麻烦点,但保险些1。不能用ASSTRING,因为已经不是用这种类型在处理了 query.SQL.Add('insert table (Content) values (:sContent) '); parambyname('qq').assign(memo1.lines);2。这是我的一部分程序,其中QQ为QUERY中TEXT参数名,你自己的根据实际情况修改 var buffer : TMemoryStream; begin buffer:=TMemoryStream.create; memo1.Lines.SaveToStream(buffer); with query2 do begin close; parambyname('qq').LoadFromStream(buffer,ftMemo); execsql; end; buffer.Free; end;
query.ParamByName('sContent').AsString:=memo.Text;
这样子写还是不行啊~~~
query.SQL.Add('insert table (Content) values (:sContent) ');
parambyname('qq').assign(memo1.lines);2。这是我的一部分程序,其中QQ为QUERY中TEXT参数名,你自己的根据实际情况修改
var buffer : TMemoryStream;
begin
buffer:=TMemoryStream.create;
memo1.Lines.SaveToStream(buffer);
with query2 do
begin
close;
parambyname('qq').LoadFromStream(buffer,ftMemo);
execsql;
end;
buffer.Free;
end;
query.SQL.Add('insert table (Content) values (:sContent) ');
parambyname('qq').assign(memo1.lines);2。这是我的一部分程序,其中QQ为QUERY中TEXT参数名,你自己的根据实际情况修改
var buffer : TMemoryStream;
begin
buffer:=TMemoryStream.create;
memo1.Lines.SaveToStream(buffer);
with query2 do
begin
close;
parambyname('qq').LoadFromStream(buffer,ftMemo);
execsql;
end;
buffer.Free;
end;