insert into OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=D:\book.xls;Extended Properties=EXCEL 5.0')...[sheet1$]
select Customer .name ,Product .fullname
from [v_Order]
'Data Source=D:\book.xls;Extended Properties=EXCEL 5.0')...[sheet1$]
select Customer .name ,Product .fullname
from [v_Order]
解决方案 »
- 求 如何监视打印机打印的内容 并且能过滤?
- 开发一个信息查询系统,前端用触摸屏,大家给提点意见,以什么模式开发,用什么工具
- 那位知道正确的Delphi5 update 1的许可码啊(急急急急急!!!)在线等
- 问一个比较弱的关于弹出式菜单问题!
- 如何构造一个XML文件使其能被解析后,反映到ehlib的dbgrideh控件中实现多表头显示?(盼高手!)
- 我想做一个登陆界面,界面中需要输入用户名和密码,用户名、密码........
- ADO连接有密码的ACCESS,提示错误。
- 新增临时表,然后转二维显示
- ADO 动态建立.mdb数据库,表
- 通知大家zswang下线(祝大家周末愉快)
- FastReport求助
- 如何关闭代码编辑框的 “自动显示代码hint” 的功能??
procedure DBGridExp(MyForm:TForm);
var
xlsFileName,Ext:string;
OldCursor:TCursor;
SavDlg1:TSaveDialog;
ExpClass:TDBGridEhExportClass;begin SavDlg1:=TSaveDialog.Create(nil);
SavDlg1.Filter:='EXCEL Files|*.xls|CSV Files|*.csv|HTML Files|*.html|RTF Files|*.rtf|TEXT Files|*.txt|Unicode TEXT Files|*.txt'; if ( MyForm.ActiveControl is TDBGridEh ) then
begin if ( ( MyForm.ActiveControl as TDBGridEh ).DataSource.DataSet.Active ) then
begin if SavDlg1.Execute then
begin case SavDlg1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
6: begin ExpClass := TDBGridEhExportAsUnicodeText; Ext := 'txt'; end;
else
ExpClass := nil; Ext := '';
end; xlsFileName:=SavDlg1.FileName + '.'+Ext;
OldCursor:=Screen.Cursor ;
Screen.Cursor :=crhourglass;
try
SaveDBGridEhToExportFile(ExpClass, MyForm.ActiveControl as TDBGridEh, xlsFileName,True);
Application.MessageBox('数据导出成功!','系统提示',MB_OK+MB_IconInformation);
finally
Screen.Cursor :=OldCursor;
end; //try
end; end;
end; SavDlg1.Free;end;
insert into OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=D:\book.xls;Extended Properties=EXCEL 5.0')...[sheet1$]
select Customer .name ,Product .fullname
from [v_Order]
这个也可以,excel不可能有100W条row记录,肯定要分sheet了,一个一个的导入
select * from OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=D:\book.xls;Extended Properties=EXCEL 5.0')...[sheet1$]