关于把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;

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