我现在要把EXCEL里面的数据提出来放到数据库里
前面没有出现问题,但是EXCEL文件改了以后
连接EXCEL时报错“jmyy11$不是有效名称......“
不知道怎么回事????
linkdata:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+RzButtonEdit1.text+';'; //excel文件存放地址
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';file_name:=extractfilename(RzButtonEdit1.text);
leng:=length(file_name);
file_name1:=copy(file_name,1,leng-4);
dm.adotable1.TableName:=file_name1+'$';
dm.ADOConn.connectionstring:=linkdata;
dm.ADOConn.LoginPrompt:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('select * from ['+file_name1+'$]');
dm.ADOQuery1.open; //到这报错
前面没有出现问题,但是EXCEL文件改了以后
连接EXCEL时报错“jmyy11$不是有效名称......“
不知道怎么回事????
linkdata:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+RzButtonEdit1.text+';'; //excel文件存放地址
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';file_name:=extractfilename(RzButtonEdit1.text);
leng:=length(file_name);
file_name1:=copy(file_name,1,leng-4);
dm.adotable1.TableName:=file_name1+'$';
dm.ADOConn.connectionstring:=linkdata;
dm.ADOConn.LoginPrompt:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('select * from ['+file_name1+'$]');
dm.ADOQuery1.open; //到这报错
解决方案 »
- delphi多线程并发问题。迫切期待高手。
- 急:dbgrid控件数据修改问题!
- 在Delphi7中怎么读写XML文件?
- 请问 高手们,dephi 能不能做留言版??
- 关于dbgrid的排序,dataset是一个clientdataset,请问怎么单击title怎么排序呢?
- 请教STRING类型做为numeric数据类型字段的查询条件,(在线等候!!)
- delphi 的 adoquery 的 loadfromfile 执行sql脚本
- 关于QuickReport的几个问题
- TRichView的使用问题
- 奇怪,Delphi5组件面板中Server栏的组件按钮上的图标全部消失,如何搞定?
- 怎样获得一个EXCEL文件的sheet名称???(在线等待)
- 提问:我获得了一个hBitmap(注是HBITMAP)类型,如何再获取其图象数据?
能不能说详细点??最好有代码
谢谢!
你没看到我的代码吗??
EXCEL文件是可选的动态的
var
sheetlist:TStrings; ADOConn.GetTableNames(sheetlist);