SQL表的导入导出插入

在vb中把sql表导出成excel格式，请教怎么做？代码怎么写？ 问题点数：100、回复次数：3Top

1 楼samying（）回复于 2005-06-17 15:33:51 得分 20

Dim   strSource,   strDestination   As   String  
                  Dim   xlApp   As   New   Excel.Application  
                  Dim   xlBook   As   New   Excel.Workbook  
                  Dim   xlSheet   As   New   Excel.Worksheet  
                 
                  strSource   =   App.Path   &   "/collectTemplate.xls"  
                  strDestination   =   "C:/PrintView.xls"  
                 
                  Set   fs   =   CreateObject("Scripting.FileSystemObject")  
                  If   fs.FileExists(strDestination)   Then  
                        fs.DeleteFile   strDestination  
                  End   If  
                   
                  FileCopy   strSource,   strDestination   '将模版文件拷贝到一个临时文件  
                   
                   
                   
                  Set   xlBook   =   xlApp.Workbooks.Open(strDestination)  
                  Set   xlSheet   =   xlBook.Worksheets(1)  
                   
                  xlSheet.Cells(1,   1).Value   =   "项目建设计划表"  
                  xlSheet.Cells(1,   1).Font.Size   =   20  
                  xlSheet.Cells(1,   1).Font.Bold   =   True  
                  xlSheet.Cells(1,   1).VerticalAlignment   =   xlVAlignCenter  
                  xlSheet.Cells(1,   1).HorizontalAlignment   =   xlHAlignCenter  
                   
                  xlSheet.Range("A5").CopyFromRecordset   rs     //rs是记录集  
                  Dim   str   As   String  
                  str   =   "U"   &   CStr(4   +   rs.RecordCount)  
                  xlSheet.Range("A5:"   &   str).Borders.LineStyle   =   xlContinuous  
                  xlSheet.Range("A5:"   &   str).WrapText   =   True  
                  xlSheet.Range("A5:"   &   str).Font.Size   =   9  
                  xlSheet.Range("A5:"   &   str).VerticalAlignment   =   xlVAlignCenter  
                  xlSheet.Range("A5:"   &   str).HorizontalAlignment   =   xlHAlignCenter  
                  xlApp.Visible   =   True  
                  xlSheet.Activate  
               
                  xlBook.Save  
                  SendKeys   "%(F)",   True  
                  SendKeys   "V",   True  
                  Unload   frmPrintViewWait  
                  mdiFrm.sbrMain.Panels(1).Text   =   "就绪"  
                  Set   xlSheet   =   Nothing  
                  Set   xlBook   =   Nothing  
                  Set   xlApp   =   NothingTop

2 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2005-06-17 15:34:07 得分 80

SQL   SERVER   和EXCEL的数据导入导出  
   
   
   
  1、在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')    
   
  -------------------------------------------------------------------------------------------------  
   
  总结：利用以上语句，我们可以方便地将SQL   SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换，为我们提供了极大方便！