如何将Excel表格的数据导入到SQL2000,我用ADO连接数据库.

Question

如何将Excel表格的数据导入到SQL2000,我用ADO连接数据库(最好写出源码),我原来用Comobj声明一个Excle变量,用Cells[1,3]等属性可以导出Excel,现在我不懂的是如何得到Excel总共有多少行,用什么属性

Answer 1

Select * Into [Table1] FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;DATABASE=C:\xxx.xls','Select * from [工作表1$]')

Answer 2

qry1是adoquery，指向SQLSERVER，然后
var
 sSQL:string;
begin
 qry1.Close;
 qry1.SQL.Clear;
 sSQL :=
  'INSERT INTO card_table  ( unitid,zgName, Sex)'
  + ' SELECT 单位编号, 姓名,性别'
  + ' FROM [excel 8.0;database=' + XlsName + '].[sheet1$]';
 qry1.SQL.Text := sSQL;
 qry1.Execsql;
end;  试试

Answer 3

yuyupluck(莫笑我提得笨) 
完全正确