如何将excel作为附件保存到sql数据库中 ( 积分: 50 )

请问delphi如何将excel作为附件保存到sql数据库中,用什么代码可以实现，在保存后，如何能将其显示出来

1、请问delphi如何将excel作为附件保存到sql数据库中,用什么代码可以实现，在保存后，如何能将其显示出来
2、如何将excel多行数据直接复制粘贴到dbgrideh中

我也想得到答案，期待答案揭晓。

var
loc_obj_stream : TMemorystream;
query1 : Tquery;
loc_obj_field : Tblobfield;
begin
loc_obj_stream := TMemoryStream.Create;
loc_obj_stream.LoadFromFile('c:/Book1.xls');
query1 := TQuery.Create(nil);
query1.DatabaseName := 'fszjz';
query1.RequestLive := true;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from tablename');
query1.Open;
query1.Insert;
loc_obj_field := (query1.FieldByName('text1') as Tblobfield);
loc_obj_field.LoadFromStream(loc_obj_stream);
query1.Post;

end;
这是把文件存入数据库

var
loc_obj_stream : TMemoryStream;
query1 : Tquery;
begin
query1 := Tquery.Create(nil);
query1.DatabaseName := 'fszjz';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from tablename where id=1');
query1.Open;
if not query1.IsEmpty then
begin
loc_obj_stream := TMemoryStream.Create;
(query1.FieldByName('text1') as TBlobField).SaveToStream(loc_obj_stream);
loc_obj_stream.SaveToFile('c:/yyyy.xls');
end;
end;
这是读数据库image字段，生成文件...
要显示，另外还得对excel进行操作

var
excelApp:Variant;
varWorkbook:Variant;
begin
//初始化OLE
Succeeded(CoInitialize(nil));
//创建OLE对象Excel Application与 WorkBook
excelApp := CreateOleObject('Excel.Application');
excelApp.visible:=true;
//打开Excel文件
varWorkbook := excelApp.WorkBooks.Open('c:/books.xls');
end;
以上是操作excel 再往下操作，你自己想吧，怎么读，都是你的事了，

大懒虫！！
你好好好好好好好好好。。。。

接受答案了.