关于把excel 导入到 sql server2000,该怎么处理

2012-08-26

关于把excel 导入到 sql server2000各位老师:关于把excel 导入到 sql server2000相应的表做一个学生信息管

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

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

[解决办法]

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

[解决办法]

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;

热点排行

.NET

关于把excel 导入到 sql server2000,该怎么处理