word文档在Access数据库的存取
哪位大哥能给我讲一下如何在Access数据库中存取Word文档源码或者例子有的讲下啊或者直接发我邮箱71340485@qq.com我是C#Winform开发。哥哥。。。别...
哪位大哥能给我讲一下如何在Access数据库中存取Word文档 源码或者例子有的讲下啊 或者直接发我邮箱71340485@qq.com 我是C# Winform开发。
哥哥。。。别来糊弄我撒。。。 展开
哥哥。。。别来糊弄我撒。。。 展开
1个回答
展开全部
首先把WORD文档放入OleContanier里面显示
OleContainer1.CreateObjectFromFile('C:\aa.doc',False);
OleContainer1.DoVerb(ovPrimary);
存入数据库为:
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
OleContainer1.SaveToStream(F);
F.Position:= 0;
ADOTable1.Append;
ADOTable1.FieldByName('name').AsString:= 'aa.doc';
TBlobField(ADOTable1.FieldByName('data')).LoadFromStream(F);
ADOTable1.Post;
end;
取出并显示为:
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('data')).SaveToStream(F);
F.Position := 0;
OleContainer1.LoadFromStream(F);
OleContainer1.DoVerb(ovPrimary);
end;
OleContainer1.CreateObjectFromFile('C:\aa.doc',False);
OleContainer1.DoVerb(ovPrimary);
存入数据库为:
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
OleContainer1.SaveToStream(F);
F.Position:= 0;
ADOTable1.Append;
ADOTable1.FieldByName('name').AsString:= 'aa.doc';
TBlobField(ADOTable1.FieldByName('data')).LoadFromStream(F);
ADOTable1.Post;
end;
取出并显示为:
var
F: TMemoryStream;
begin
F:= TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('data')).SaveToStream(F);
F.Position := 0;
OleContainer1.LoadFromStream(F);
OleContainer1.DoVerb(ovPrimary);
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |