在2000系统中连接excel用下列代码,但在98系统上连不上,如用98系统该如何连接(从excel往数据库中导数据)
/////连接excel///////////////////////////////////
ea.Connect;
eb.ConnectTo(ea.Workbooks.Open(edit1.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) );
es.ConnectTo(eb.ActiveSheet as _WorkSheet)
/////连接excel///////////////////////////////////
ea.Connect;
eb.ConnectTo(ea.Workbooks.Open(edit1.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) );
es.ConnectTo(eb.ActiveSheet as _WorkSheet)
解决方案 »
- Delphi读取写入Dat文件问题!
- 求个算法与思路。bdmh帮忙看看。谢谢
- 在DELPHI中怎么调试DLL动态链接库?可以使用断点吗?
- 按行读文件,如何可以不加锁
- 从集中营归来,感受到自由,看到这里的朋友还是这样热情,散分!
- 在用SQL语句查询时怎么让空的字段显示为0??
- WebService的CGI/ISAPI问题!急!
- Ehlib 的 DBGridEh 控件怎样才能像 dxDBGrid 控件那样输出文件到 EXCEL ?
- 修改代码
- TEC B-452-TS 条码打印 delphi如何驱动? 求救
- 在ACCESS数据库中,我用INSERT方法插入数据,结果却总是在数据库最后追加一条??
- 写什么代码--退出一个过程
EXCEL导到SQL server
var
listitem:Tlistitem;
i:integer;
file_name,file_name1:string;
leng,j:integer;
str:string;
f:twrptprogress;
linkdata:string;
aa:TStrings;
bb:string;
begin
linkdata:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+RzButtonEdit1.text+';'; // d:\jmyq1.xls
linkdata:=linkdata+'Mode=Share Deny None;Extended Properties=Excel 8.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
linkdata:=linkdata+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;';
linkdata:=linkdata+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;';
linkdata:=linkdata+'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don‘t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';dm.ADOConn.connectionstring:=linkdata;
dm.ADOConn.LoginPrompt:=false;
dm.ADOConn.Connected:=true;
aa:= TStringList.Create;
dm.ADOConn.GetTableNames(aa);
bb:=aa.text;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('select * from ['+strim(bb)+']');
dm.ADOQuery1.open;
倒数第二句应是
dm.ADOQuery1.SQL.Add('select * from ['+trim(bb)+']');
ExcelApplication.Visible[0]:=true;
就行了吧!!!
有问题请发信息到我的E-mail:[email protected]