在SQL SERVER里查询Excel数据

在SQL   SERVER里查询Excel数据:  
   
  --   ======================================================  
   
  SELECT   *    
   
  FROM   OpenDataSource(   'Microsoft.Jet.OLEDB.4.0',  
   
  'Data   Source="c:/book1.xls";User   ID=Admin;Password=;Extended   properties=Excel   5.0')...[Sheet1$]  
   
   
   
  下面是个查询的示例，它通过用于   Jet   的   OLE   DB   提供程序查询   Excel   电子表格。  
   
  SELECT   *    
  FROM   OpenDataSource   (   'Microsoft.Jet.OLEDB.4.0',  
  'Data   Source="c:/Finance/account.xls";User   ID=Admin;Password=;Extended   properties=Excel   5.0')...xactions  
  -------------------------------------------------------------------------------------------------  
   
   
   
  2、将Excel的数据导入SQL   server   :  
   
  --   ======================================================  
   
  SELECT   *   into   newtable  
   
  FROM   OpenDataSource(   'Microsoft.Jet.OLEDB.4.0',  
   
  'Data   Source="c:/book1.xls";User   ID=Admin;Password=;Extended   properties=Excel   5.0')...[Sheet1$]  
   
   
   
  实例:  
   
  SELECT   *   into   newtable  
   
  FROM   OpenDataSource(   'Microsoft.Jet.OLEDB.4.0',  
   
  'Data   Source="c:/Finance/account.xls";User   ID=Admin;Password=;Extended   properties=Excel   5.0')...xactions  
   
  -------------------------------------------------------------------------------------------------  
   
   
   
  3、将SQL   SERVER中查询到的数据导成一个Excel文件  
   
  --   ======================================================  
   
  T-SQL代码：  
   
  EXEC   master..xp_cmdshell   'bcp   库名.dbo.表名out   c:/Temp.xls   -c   -q   -S"servername"   -U"sa"   -P""'  
   
  参数：S   是SQL服务器名；U是用户；P是密码  
   
  说明：还可以导出文本文件等多种格式  
   
   
   
  实例:EXEC   master..xp_cmdshell   'bcp   saletesttmp.dbo.CusAccount   out   c:/temp1.xls   -c   -q   -S"pmserver"   -U"sa"   -P"sa"'  
   
   
   
  EXEC   master..xp_cmdshell   'bcp   "SELECT   au_fname,   au_lname   FROM   pubs..authors   ORDER   BY   au_lname"   queryout   C:/   authors.xls   -c   -Sservername   -Usa   -Ppassword'  
   
   
   
  在VB6中应用ADO导出EXCEL文件代码：    
   
  Dim   cn   As   New   ADODB.Connection  
   
  cn.open   "Driver={SQL   Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"  
   
  cn.execute   "master..xp_cmdshell   'bcp   "SELECT   col1,   col2   FROM   库名.dbo.表名"   queryout   E:/DT.xls   -c   -Sservername   -Usa   -Ppassword'"  
   
  -------------------------------------------------------------------------------------------------  
   
   
   
  4、在SQL   SERVER里往Excel插入数据:  
   
  --   ======================================================  
   
  insert   into   OpenDataSource(   'Microsoft.Jet.OLEDB.4.0',  
   
  'Data   Source="c:/Temp.xls";User   ID=Admin;Password=;Extended   properties=Excel   5.0')...table1   (A1,A2,A3)   values   (1,2,3)  
   
   
   
  T-SQL代码：  
   
  INSERT   INTO    
   
  OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',    
   
  'Extended   Properties=Excel   8.0;Data   source=C:/training/inventur.xls')...[Filiale1$]    
   
  (bestand,   produkt)   VALUES   (20,   'Test')