怎样将WORD和EXCEL文档存入SQL SERVER数据库,在SQL中应使用什么类型的字段,IMAGE可以吗
解决方案 »
- 请教delphi自动填写表单问题
- 请大家介绍几个学delphi的网站
- mapx控件
- 如何知道是什么进程在使用一个无法删除的文件
- 怎么定义全局变量以及调用全局变量
- 在报表中,怎样判断是第二页了??急!
- 一个线程的问题,我是个新手,请大哥门帮忙,急急急急急急。
- 我執行select * from employee這個句子沒有問題,可以打開employee 這個表.可是改成這樣就有問題了.select employee_id,employee_name fro
- 终于解决了一个问题,现公布经验解决方法!!!!
- 求一个可以使用的代理(支持ftp和http)
- 问大家一个间单的问题。
- 如何做视频会议软件,NetMeeting的基本功能,控件也行
http://expert.csdn.net/Expert/topic/1879/1879680.xml?temp=.457348
procedure TForm1.Button1Click(Sender: TObject);
{}var
MS: TMemoryStream;
begin
RichEdit1.Font.Color := Clred;
MS:=TMemoryStream.create;
RichEdit1.Lines.LoadFromStream(MS);
MS.Position:=0;
ADOQuery1.Append;
TBlobField(ADOQuery1.FieldbyName
('Doc')).LoadFromStream(MS);
ADOQuery1.Post;
end; } with ADOQuery1 do
begin
Edit;
FieldByName('doc').AsString := RichEdit1.Text;
Post;
end; function blobcontenttostring(const filename: string):string;
begin
with tfilestream.create(filename,fmopenread) do
try
setlength(Result,size);
read(Pointer(Result)^,size);
finally
free;
end;
end;
//保存字段
var
sFileName : String;
begin
RichEdit1.Font.Color := ClRed;
RichEdit1.Lines.SaveToFile('C:\aaa.rtf');
if (opendialog1.execute) then
begin
sFileName:=OpenDialog1.FileName;
adoquery1.edit;
adoquery1.fieldbyname('doc').asstring:=Blobcontenttostring(sFileName);
adoquery1.post;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
MS: TStream;
begin
ADOQuery1.First;
with ADOQuery1 do
MS:=CreateBlobStream
(FieldbyName('Doc'),bmRead);
RichEdit2.Lines.LoadFromStream(MS);
MS.Free;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Next;
end;