怎样把ＥＸＣＥＬ数据导入到数据库里面去？

Question

就是把整理好的ＥＸＣＥＬ文档导入到数据库里面去，希望各位高手给代码？越简单越好！在此先谢！

Answer 1

求助：从access表中取数据导到其他表中问题 
http://community.csdn.net/Expert/topic/3723/3723113.xml?temp=.2440149~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
这里很多...

Answer 2

我知道的，并使用过的
最简单的方法就是用sql自带的导入功能
我是新手帮你顶

Answer 3

第一种方法：
 //  使用数据源的方法
procedure tform1.ExcelToData(aPath: string);
var
  MySQL,ConnStr,sqlstr1,sqlstr: string;begin  //导出excel , dbf
  ConnStr := 'Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=;Initial Catalog=w;Data Source=1.1.1.1';
  SqlStr1:='Data Source='+Trim(aPath)+';User ID=Admin;Password=;Extended properties=Excel 8.0';
  SqlStr:=' SELECT *  FROM  ';
  SqlStr:=SqlStr+' OpenDataSource( '+''''+'Microsoft.Jet.OLEDB.4.0'+''''+',';
  SqlStr:=SqlStr+''''+SqlStr1+'''';
  SqlStr:=SqlStr+')...sheet1$';
 // editpath.Text :=sqlstr;
 // showmessage(sqlstr);
  //exit;
  try
    ADOConnExcel.Connected := False;
    ADOConnExcel.ConnectionString := ConnStr;
    ADOConnExcel.Connected := True;
    ADOConnExcel.Execute(sqlstr);
    Application.MessageBox('导入EXCEL成功','信息提示!',mb_ok+mb_iconinformation);
    ADOConnExcel.Connected := False;
  except
    Application.MessageBox('导入EXCEL失败','错误!',mb_ok+mb_iconStop);
    ADOConnExcel.Connected := False;
  end;
end;

Answer 4

你这里写的是一个函数吧!我调用的时候怎么出错呀!apath传的是什么参数呀!急呀!我调用的时候是这样写的:self.exceltodata(apath:string),这样写是不行:self.exceltodata();

Answer 5

试试这个方法：var
  Sql : String;
begin
  ADOQuery1.Close;//ADOQuery1连接SqlServer的Connection
  ADOQuery1.SQL.Clear;//清空Sql
  Sql:='Insert Into A_tt SELECT * FROM '+ //A_tt 为SqlServer表的名称    
  '  OPENROWSET(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES;DATABASE=e:\myexcel.xls'',sheet1$)' ;//sheet1$要求的Excel表格
  ADOQuery1.SQL.Add(Sql);//执行Sql
  ADOQuery1.ExecSQL;
end;