我用的sqlserver的数据库,把excel存在字段里,请问如何打开字段里的excel文件 不许将字段里的excel导回硬盘再打开 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以放一OLE控件,类型为EXCEL,然后从数据库中读取此二进制,把它弄进OLE中 那就用ole动态输出到excel中吧 try x:=createoleobject('excel.application'); except begin showmessage('不能打开Mircrosoft Excel'+#13+'请检查是否已经安装Office 97'); closeq; abort; end; end; x.workbooks.add(pchar(path)+'\excel.xls'); sheet:=x.workbooks[wbk].worksheets['测试']; sheet.cells[3,1]:='1111'; sheet.cells[3,6]:='2222'; table1.close; table1.TableName:='excel表'; //表1-1 table1.open; sdm.table1.first; i:=8; while not sdm.table1.eof do begin ..... end; sdm.table1.next; i:=i+1; end;具体关于ole的用法请参考别的书籍 polugen(独孤狂客)可否提供代码 请问怎么把文字插入word的文本框 在DelpHi中怎样发送电子邮件?(急) fastreport页数问题? 计算商品存量的想法, 大家讨论一下!!我写了一段相关代码但有二个问题.请大家帮忙解决! 关于打印图片和文字 请问下B/S开发的问题 做报表 delphi例子程序,运行时出错,为什么? 数据是否重复,如何处理比较好! 为什么我写入的记录不能定位到数据库的最后一行呢?????? Tcombobox的小问题 如何用delphi给excel添加字段?!
try
x:=createoleobject('excel.application');
except
begin
showmessage('不能打开Mircrosoft Excel'+#13+'请检查是否已经安装Office 97');
closeq;
abort;
end;
end;
x.workbooks.add(pchar(path)+'\excel.xls');
sheet:=x.workbooks[wbk].worksheets['测试']; sheet.cells[3,1]:='1111';
sheet.cells[3,6]:='2222'; table1.close;
table1.TableName:='excel表'; //表1-1
table1.open; sdm.table1.first;
i:=8;
while not sdm.table1.eof do
begin .....
end;
sdm.table1.next;
i:=i+1;
end;具体关于ole的用法请参考别的书籍