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]
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$]