关于把excel 导入到 sql server2000解决方案

关于把excel 导入到 sql server2000
各位老师:关于把excel 导入到 sql server2000相应的表

 做一个学生信息管理;班主任把新生的名册按一定格式放在Excel 文件, 字段"学号,专业,班级,姓名...",
如何通过 delphi 的界面 上一个按键编程把Excel 文件中的数据导入到 sql server2000中呢.

------解决方案--------------------

引用:

谢谢bdmh老师的提示,前两步我都会,再说最后一步,就是数据可以读出,但循环的写到目的表里总写不进呵. 
就好象在工资表中计算税金后写到表的税金字段,循环写不进,只一条按一下按钮的写了,太笨了,不好意思,还请您多赐教.

写不进去的具体是什么表现,报错吗,是不是qExcel到了最后了,qExcel.First先
------解决方案--------------------

ADODataSet1.Close;   //导入

ADODataSet1.CommandText:='select * from tb';

ADODataSet1.Open;

ADODataSet1.DisableControls;

try

  ADOQuery1.First;

  while not (ADOQuery1.Eof)  do

  begin

      ADODataSet1.Insert;

      ADODataSet1.FieldByName('字段').AsString:=trim(ADOQuery1.fields[0].AsString);

      ADODataSet1.FieldByName('字段').AsString:=trim(ADOQuery1.fields[1].AsString);

      ADODataSet1.FieldByName('字段').AsString:=trim(ADOQuery1.fields[2].AsString);

      ADODataSet1.FieldByName('字段').AsString:=trim(ADOQuery1.fields[3].AsString);

      ADODataSet1.FieldByName('字段').AsString:=trim(ADOQuery1.fields[4].AsString);

      ADODataSet1.FieldByName('字段').AsFloat:=ADOQuery1.fields[5].AsFloat;

      ADOQuery1.Next;

  end;

    ADODataSet1.Post;

    Application.MessageBox('數據導入已完成!', '提示', MB_ICONINFORMATION);

    edit2.Text:='';

 finally

   ADODataSet1.EnableControls;

END;

ADODataSet1.Close;

end;

很麻烦，但是能实现导入的效果