如何让excel文件导入oracle数据库中(100分)

用D7程序实现让excel文件导入oracle数据库中？？[]
oracle数据库中数据导入到excel文件中？？？？？

建立两个odbc连接,一个连接Excel,一个连接oracle,后用用缓存一个读一个写.

[]能不能给点代码，要是可用的话，一定重谢!!!!!

近来做一个工程，目标是实现从Oracle中导出数据，生成Excel文件。
那位高手要能解决的话，再加送100分~~~~~~

在线等待啊``````````````````````````````````````

可以使用PL/SQL，结果另存为CSV文件，CSV文件可以使用EXCEL打开

我是想在一个D7的窗体中实现这个问题

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, ComCtrls;
Const Space=' ';
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
OpenDialog1: TOpenDialog;
Table1: TTable;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Function Regulatestr(aString:string;Sepchar:string):string;
Function GetSubStr(var aString:string;SepChar:String):String;
Function GetSubStrNum(aString:string;SepChar:String):Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Function Tform1.RegulateStr(aString:String;Sepchar:String):String;
var
i,Num:Integer;
Flag:Boolean;
MyStr,TempStr:String;
begin
Flag:=False;//进行标志，去除多余的分割符
Num:=Length(aString);//计算aString串的长度
for i:=1 to Num do
begin
TempStr:=Copy (aString,i,1);//取aString串中的一字符
if TempStr<>SepChar then
begin
MyStr:=MyStr+Tempstr;
Flag:=True;
end
else
if(Flag=True)then
begin
Mystr:=Mystr+TempStr;
Flag:=False;
end;
end;
if MyStr[Length(MyStr)]<>SepChar then
MyStr:=MyStr+SepChar;
RegulateStr:=MyStr;
end;

Function Tform1.GetSubStr(var aString:String;SepChar:String):string;
var
Mystr:String;
SepCharPos:Integer;
begin
sepCharpos:=pos(sepchar,astring);//计算分割符在子串中的位置
MyStr:=Copy(aString,1,SepCharPos-1);//将分割符前所有字符放到mystr串中
Delete(aString,1,SepCharPos);//除去分割符和分割符前的子串
GetSubStr:=MyStr;//返回一个字段
end;
Function Tform1.GetSubStrnum(aString:String;SepChar:String):integer;

var
i:Integer;
StrLen:Integer;
Num:Integer;
begin
StrLen:=Length(aString);
Num:=0;
for i:=1 to StrLen do
if Copy(aString,i,1)=SepChar then
Num:=Num+1;
GetSubStrNum:=Num;
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
richedit1.lines.loadfromfile(opendialog1.filename);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
myline:string;
begin
with table1 do
begin
open;
for i:=0 to richedit1.lines.count-1 do
begin
myline:=regulatestr(richedit1.lines,space);
for j:=1 to getsubstrnum(myline,space) do
begin
append;
Fields[j-1].AsString:=getsubstr(myline,space);
post;
end;
end;
close;
end;
end;

end.
------------------------------------------------------------------------
当把数据添加到数据库中时，数据不会整排，而是一条一行？？
学号 java 体育 品德 综合评测 C语言
1
1
1
1
1
1

[][][]

高手

以上代码问题我自个已经解决了，现在急着想把EXCEL中的数据录入到数据库中，那位高手给点意见啊！（怎么把EXCEL中的数据录入到一个STRINGGRID或RICHEDIT等中）

我这帖起给发老久了，现在论坛上的人气好像不行了啊

怎样把EXCEL文件中的数据显示在RichEdit或StringGrid或DBGrid中呢！！！！