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

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


[解决办法]

Delphi(Pascal) code

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;