想问下关于ado操作access的备注字段的正确操作方法。
显示组件用memo,把memo的字符保存入access的备注字段,但用ACCESS打开后都是乱码。
以下是我写的代码:(要保存的数据都是文字,没有图片)
var str:TstringStream;
begin
try
str:=tstringStream.Create;
memo1.Lines.SaveToStream(str);
str.Position := 0;
with qbadd do
begin
close;
sql.Clear;
sql.Add('insert into fbook(fsort,ftitle,fbook) Values (:psort,:ptitle,:pbook)');
parameters.ParamByName('psort').Value := Trim(fsort.Text);
parameters.ParamByName('ptitle').Value :=Trim(ftitle.Text);
Parameters.ParamByName('pbook').LoadFromStream(str,ftblob);
execSQl;
end;
finally
str.Free;
end;
end;用流读取到memo组件里,显示都是乱码。
初次操作access的备注字段,不知道是不是写入时就出现问题还是读取时没有处理好。
读取数据后得到的都是以下这些乱码:
楷桴?佄畑牥?搠?敢楧???潬敳??匠汱?敬牡??匠??摤?敳敬瑣?映潲?穧汪眠敨敲爠?琺浥?湡?捧?琺浥杰獣???倠牡浡瑥牥?慐慲?乹希望各位指教,谢谢!
显示组件用memo,把memo的字符保存入access的备注字段,但用ACCESS打开后都是乱码。
以下是我写的代码:(要保存的数据都是文字,没有图片)
var str:TstringStream;
begin
try
str:=tstringStream.Create;
memo1.Lines.SaveToStream(str);
str.Position := 0;
with qbadd do
begin
close;
sql.Clear;
sql.Add('insert into fbook(fsort,ftitle,fbook) Values (:psort,:ptitle,:pbook)');
parameters.ParamByName('psort').Value := Trim(fsort.Text);
parameters.ParamByName('ptitle').Value :=Trim(ftitle.Text);
Parameters.ParamByName('pbook').LoadFromStream(str,ftblob);
execSQl;
end;
finally
str.Free;
end;
end;用流读取到memo组件里,显示都是乱码。
初次操作access的备注字段,不知道是不是写入时就出现问题还是读取时没有处理好。
读取数据后得到的都是以下这些乱码:
楷桴?佄畑牥?搠?敢楧???潬敳??匠汱?敬牡??匠??摤?敳敬瑣?映潲?穧汪眠敨敲爠?琺浥?湡?捧?琺浥杰獣???倠牡浡瑥牥?慐慲?乹希望各位指教,谢谢!
解决方案 »
- 类似 站次 排队 问题
- 关于PaintBox的问题·!~来看看啊
- 请教有关DataTimePicker计算天数的方法。
- string和char怎么互相转换?
- CreatePipe在Delphi中没有用?!
- 菜鸟有意在数据库方面发展,请各位大虾指点迷津!!!
- 哪位熟悉C语言和Delphi语言的高手帮我翻译一下?有点难度!
- 如何控制被调用的应用程序的最大化和最小化??
- 请问delphi6 ADO升级文件下载地址,都是哪些文件,如何升级?
- 100奉送!关于使用HP LaserJet 1000 打印机碰到的问题!!!up也有分!
- 请教。一个排序的问题。???谢谢、
- 如何用DEPPHI类似DBGRID中实现查询
.value:=memo.text;