博客园_eyye

SQL Server 的事务处理的两种格式

2011-10-14T02:33:00Z

一种是用TRY...CATCH语句，例：

---这仅仅是实例
create procedure [dbo].[MyTryTran] --创建存储过程
--@toID int,    --接收转账的账户
--@fromID int ,  --转出自己的账户
--@momeys money --转账的金额
as 
begin transaction
BEGIN TRY
　　　　　select 1/0

　　　　　insert into t_Sex (FID,FSex) values (3,'na')
        commit transaction
END TRY
BEGIN CATCH
    begin        
        rollback transaction
    end
END CATCH

第二种是捕捉error错误

create procedure [dbo].[MyTran] --创建存储过程，定义几个变量
--@toID int,    --接收转账的账户
--@fromID int ,  --转出自己的账户
--@momeys money --转账的金额
as 
begin transaction
	declare @errorSum int    --定义变量，用于累计事务执行过程中的错误
	set @errorSum=0
　　　　　 select 1/0
	set @errorSum=@errorSum+@@error --累计是否有错误

	insert into t_Sex (FID,FSex) values ('3','n')
	set @errorSum=@errorSum+@@error    --累计是否有错误
if @errorSum>0
    begin        
        rollback transaction
    end
else
    begin        
        commit transaction
    end

有一种错误的方式，请看：

alter procedure [dbo].[MyErrorTran] 
as 
begin transaction	
	select 1/0
	insert into t_Sex (FID,FSex) values ('3','n')
	commit transaction
if @@error>0            
	rollback transaction

--事实上不管用，因为@@error只对上一条语句管用，所以在本例中尽管发生了错误，但还是不会回滚

本文链接

sql IN语句如何优化？(转)

2011-10-11T12:14:00Z

问题：delete from acct_item where subs_id not in(select subs_id from subs);
我要处理一百万条数据，这条语句删了我近三个小时时间!

答案：delete from acct_item a where not exists (select 1 from subs b where a.subs_id=b.subs_id )

追问：这个select 1不明白什么意思啊？

回答：简单理解就是不查询具体列，只要有值就显示1

【我的理解：not in 的语义是“我的这个东些不在这里面”，因此要确认这个是否为真，还要有一个比较过程；not exists 的语义是“不存在这个东西”，只要这个东邪不存在就可以了，作为初学者，我一直在疑惑什么不存在，其实就是后面选择的东西不存在】

关于in和exist的区别，更专业的解释参见（http://www.cnblogs.com/yf520gn/archive/2009/01/12/1374359.html）
本文链接

向EXCEL批量导出数据（转）

2011-10-08T13:42:00Z

自（http://www.cnblogs.com/Wiseman/archive/2004/11/26/69113.html）

HOW TO：使用 Visual C# .NET 向 Excel 工作簿传输数据本任务的内容

•

概要

•

概述

•

方法

•	使用“自动化”逐个单元格地传输数据
•	使用“自动化”将数据数组传输到工作表上的区域
•	使用“自动化”将 ADO 记录集传输到工作表区域
•	使用“自动化”在工作表上创建 QueryTable 对象
•	使用 Windows 剪贴板
•	创建可由 Excel 分析为行和列的带分隔符的文本文件
•	使用 ADO.NET 将数据传输到工作表
•	传输 XML 数据（Excel 2002 和 2003）

•

创建完整的示例 Visual C# .NET 项目

•

参考

概要

本文逐步介绍了多种从 Visual C# .NET 程序向 Excel 2002 传输数据的方法。本文还提供了每种方法的优点和缺点，以便您可以选择最适合您的情况的解决方案。

返回页首

概述

最常用于向 Excel 工作簿传输数据的技术是自动化。利用“自动化”，您可以调用特定于 Excel 任务的方法和属性。“自动化”给您提供了指定数据在工作簿中所处的位置、将工作簿格式化以及在运行时进行各种设置的最大的灵活性。

利用“自动化”，您可以使用多种技术来传输数据：

• 逐个单元格地传输数据

• 将数组中的数据传输到由单元格组成的区域。

• 使用 CopyFromRecordset 方法向单元格区域传输 ADO 记录集中的数据。

• 在 Excel 工作表上创建一个 QueryTable 对象，该对象包含对 ODBC 或 OLEDB 数据源进行查询的结果。

• 将数据传输到剪贴板，然后将剪贴板内容粘贴到 Excel 工作表中。

还可以使用多种未必需要利用“自动化”来向 Excel 传输数据的方法。如果您正在运行服务器端程序，这可以是一种将批量数据处理从客户端移走的好方法。

要在不使用“自动化”的情况下传输数据，您可以使用下列方法：

• 将数据传输到制表符分隔的或逗号分隔的文本文件，然后 Excel 可以将该文本文件分析为工作表上的单元格。

• 使用 ADO.NET 将数据传输到工作表。

• 将 XML 数据传输到 Excel（仅限于 2002 和 2003 版）以提供可以被格式化和排列为行和列的数据。

本文为这些技术中的每一种技术提供了讨论和代码示例。本文创建完整的示例 Visual C# .NET 项目部分（在本文稍后部分），演示了如何创建执行每一种技术的 Visual C# .NET 程序。

返回页首

方法

使用“自动化”逐个单元格地传输数据

利用“自动化”，您可以逐个单元格地向工作表传输数据：

// Start a new workbook in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

// Add data to cells in the first worksheet in the new workbook.
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
m_objRange = m_objSheet.get_Range("A1", m_objOpt);
m_objRange.Value = "Last Name";
m_objRange = m_objSheet.get_Range("B1", m_objOpt);
m_objRange.Value = "First Name";
m_objRange = m_objSheet.get_Range("A2", m_objOpt);
m_objRange.Value = "Doe";
m_objRange = m_objSheet.get_Range("B2", m_objOpt);
m_objRange.Value = "John";

// Apply bold to cells A1:B1.
m_objRange = m_objSheet.get_Range("A1", "B1");
m_objFont = m_objRange.Font;
m_objFont.Bold=true;

// Save the Workbook and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book1.xls", m_objOpt, m_objOpt,
      m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
      m_objOpt, m_objOpt, m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

如果您具有少量的数据，则逐个单元格地传输数据是可以接受的方法。您可以灵活地将数据放到工作簿中的任何地方，并可以在运行时根据条件对单元格进行格式设置。然而，如果您具有大量需要传输到 Excel 工作簿的数据，则使用这种方法不是一个好主意。您在运行时获取的每一个 Range对象都会产生一个接口请求，这意味着数据传输速度会变得较慢。此外，Microsoft Windows 95、Microsoft Windows 98 以及 Microsoft Windows Millennium Edition (Me) 都对接口请求有 64 KB 的限制。如果您具有 64 KB 以上的接口请求，则“自动化”服务器 (Excel) 可能会停止响应，或者您可能会收到指出内存不足的错误信息。有关其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

216400 PRB:Cross-Process COM Automation Can Hang Client Application on Win95/98

需要再次强调的是，逐个单元格地传输数据仅对少量数据而言才可以接受。如果您必须向 Excel 传输大数据集，则应考虑使用本文中讨论的其他方法之一来批量地传输数据。

有关其他信息以及如何利用 Visual C# .NET 自动运行 Excel 的示例，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

302084 HOWTO：在 Microsoft Visual C# .NET 中使 Microsoft Excel 自动运行

返回页首

使用“自动化”将数据数组传输到工作表上的区域

可以将数据数组一次性地传输到由多个单元格组成的区域：

// Start a new workbook in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));

// Create an array for the headers and add it to cells A1:C1.
object[] objHeaders = {"Order ID", "Amount", "Tax"};
m_objRange = m_objSheet.get_Range("A1", "C1");
m_objRange.Value = objHeaders;
m_objFont = m_objRange.Font;
m_objFont.Bold=true;

// Create an array with 3 columns and 100 rows and add it to
// the worksheet starting at cell A2.
object[,] objData = new Object[100,3];
Random rdm = new Random((int)DateTime.Now.Ticks);
double nOrderAmt, nTax;
for(int r=0;r<100;r++)
{
      objData[r,0] = "ORD" + r.ToString("0000");
      nOrderAmt = rdm.Next(1000);
      objData[r,1] = nOrderAmt.ToString("c");
      nTax = nOrderAmt*0.07;
      objData[r,2] = nTax.ToString("c");
}
m_objRange = m_objSheet.get_Range("A2", m_objOpt);
m_objRange = m_objRange.get_Resize(100,3);
m_objRange.Value = objData;

// Save the Workbook and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book2.xls", m_objOpt, m_objOpt,
      m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
      m_objOpt, m_objOpt, m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

如果您使用数组而不是逐个单元格地传输数据，则在传输大量数据时，传输性能会大大地增强。请考虑前面代码中的下列几行，这些行将数据传输到工作表中的 300 个单元格：

objRange = objSheet.get_Range("A2", m_objOpt);
objRange = objRange.get_Resize(100,3);
objRange.Value = objData;

这些代码代表了两个接口请求：一个请求是针对 Range 方法返回的 Range 对象，另一个请求是针对 Resize 方法返回的 Range 对象。相比之下，逐个单元格地传输数据却需要对 Range 对象发出 300 个接口请求。只要有可能，您就可以从批量地传输数据以及减少所发出的接口请求的数量当中受益。

有关通过 Excel 自动化并使用数组获取和设置区域中的值的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

302096 HOWTO：在 Visual C# .NET 中使 Excel 自动运行以使用数组填充或获取某个区域中的数据

返回页首

使用“自动化”将 ADO 记录集传输到工作表区域

Excel 2000、Excel 2002 和 Excel 2003 的对象模型提供了 CopyFromRecordset 方法，用于向工作表上的区域传输 ADO 记录集。下面的代码说明了如何使用 CopyFromRecordset方法使 Excel 自动运行，以传输 Northwind 示例数据库中的“订单”表的内容：

// Create a Recordset from all the records in the Orders table.
ADODB.Connection objConn = new ADODB.Connection();
ADODB._Recordset objRS = null;
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
      m_strNorthwind + ";", "", "", 0);
objConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
object objRecAff;
objRS = (ADODB._Recordset)objConn.Execute("Orders", out objRecAff,
      (int)ADODB.CommandTypeEnum.adCmdTable);

// Start a new workbook in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));

// Get the Fields collection from the recordset and determine
// the number of fields (or columns).
System.Collections.IEnumerator objFields = objRS.Fields.GetEnumerator();
int nFields = objRS.Fields.Count;

// Create an array for the headers and add it to the
// worksheet starting at cell A1.
object[] objHeaders = new object[nFields];
ADODB.Field objField = null;
for(int n=0;n<nFields;n++)
{
      objFields.MoveNext();
      objField = (ADODB.Field)objFields.Current;
      objHeaders[n] = objField.Name;
}
m_objRange = m_objSheet.get_Range("A1", m_objOpt);
m_objRange = m_objRange.get_Resize(1, nFields);
m_objRange.Value = objHeaders;
m_objFont = m_objRange.Font;
m_objFont.Bold=true;

// Transfer the recordset to the worksheet starting at cell A2.
m_objRange = m_objSheet.get_Range("A2", m_objOpt);
m_objRange.CopyFromRecordset(objRS, m_objOpt, m_objOpt);

// Save the Workbook and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book3.xls", m_objOpt, m_objOpt,
      m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
      m_objOpt, m_objOpt, m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

// Close the recordset and connection.
objRS.Close();
objConn.Close();

注意：CopyFromRecordset 只能与 ADO Recordset 对象一起使用。使用 ADO.NET 创建的 DataSet 不能与 CopyFromRecordset 方法一起使用。以下几部分中的多个示例演示了如何利用 ADO.NET 向 Excel 传输数据。

返回页首

使用“自动化”在工作表上创建 QueryTable 对象

QueryTable 对象代表了一个表，该表是用从外部数据源返回的数据生成的。当您自动运行 Excel 时，可以通过提供指向 OLE DB 或 ODBC 数据源的连接字符串和 SQL 字符串来创建 QueryTable。Excel 将生成记录集并将该记录集插入到工作表中您所指定的位置。QueryTable 对象提供了下列优于 CopyFromRecordset方法的优点：

•	Excel 处理记录集的创建并将其放置到工作表中。
•	您可以利用 QueryTable 对象保存查询，并在以后刷新它以获取更新的记录集。
•	当向工作表中添加新的 QueryTable 时，可以指定将工作表上的单元格中已经存在的数据移位，以处理新数据（有关详细信息，请查看 RefreshStyle 属性）。

下面的代码演示了如何自动运行 Excel 2000、Excel 2002 或 Excel 2003，以便使用 Northwind 示例数据库中的数据在 Excel 工作表中创建新的 QueryTable：

// Start a new workbook in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

// Create a QueryTable that starts at cell A1.
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
m_objRange = m_objSheet.get_Range("A1", m_objOpt);
m_objQryTables = m_objSheet.QueryTables;
m_objQryTable = (Excel._QueryTable)m_objQryTables.Add(
      "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
      m_strNorthwind + ";", m_objRange, "Select * From Orders");
m_objQryTable.RefreshStyle = Excel.XlCellInsertionMode.xlInsertEntireRows;
m_objQryTable.Refresh(false);

// Save the workbook and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book4.xls", m_objOpt, m_objOpt,
      m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
      m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

返回页首

使用 Windows 剪贴板

可以使用 Windows 剪贴板来向工作表传输数据。要将数据粘贴到工作表上的多个单元格中，可以复制具有以下格式的字符串：在该字符串中，列由制表符分隔，行由回车符分隔。下面的代码说明了 Visual C# .NET 如何使用 Windows 剪贴板来向 Excel 中传输数据：

// Copy a string to the Windows clipboard.
string sData = "FirstName\tLastName\tBirthdate\r\n"  +
      "Bill\tBrown\t2/5/85\r\n"  +
      "Joe\tThomas\t1/1/91";
System.Windows.Forms.Clipboard.SetDataObject(sData);

// Start a new workbook in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

// Paste the data starting at cell A1.
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
m_objRange = m_objSheet.get_Range("A1", m_objOpt);

//这是我加的，否则真正在处理大量数据时，objSheet.Paste会引发异常HRESULT:0x800A03EC,原因是上面的Clipboard.SetDataObject的工作还没完成

int wait =50+ data.Length / 1000;
Thread.Sleep(wait);

m_objSheet.Paste(m_objRange, false); // Save the workbook and quit Excel. m_objBook.SaveAs(m_strSampleFolder + "Book5.xls", m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt, m_objOpt, m_objOpt); m_objBook.Close(false, m_objOpt, m_objOpt);m_objExcel.Quit(); 返回页首

创建可由 Excel 分析为行和列的带分隔符的文本文件

Excel 可以打开由制表符或逗号分隔的文件并正确地将数据分析为单元格。当您希望向工作表传输大量数据而只使用少量（如果有的话）自动化功能时，可以使用此功能。这对于客户端-服务器程序而言可能是一个好方法，因为文本文件可以在服务器端生成。然后，可以在客户端根据需要使用“自动化”来打开文本文件。

下面的代码说明了如何从利用 ADO.NET 读取的数据生成制表符分隔的文本文件：

// Connect to the data source.
System.Data.OleDb.OleDbConnection objConn = new System.Data.OleDb.OleDbConnection(
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_strNorthwind + ";");
objConn.Open();

// Execute a command to retrieve all records from the Employees table.
System.Data.OleDb.OleDbCommand objCmd = new System.Data.OleDb.OleDbCommand(
      "Select * From Employees", objConn);
System.Data.OleDb.OleDbDataReader objReader;
objReader = objCmd.ExecuteReader();

// Create the FileStream and StreamWriter object to write
// the recordset contents to file.
System.IO.FileStream fs = new System.IO.FileStream(
      m_strSampleFolder + "Book6.txt", System.IO.FileMode.Create);
System.IO.StreamWriter sw = new System.IO.StreamWriter(
      fs, System.Text.Encoding.Unicode);

// Write the field names (headers) as the first line in the text file.
sw.WriteLine(objReader.GetName(0) +  "\t" + objReader.GetName(1) +
      "\t" + objReader.GetName(2) + "\t" + objReader.GetName(3) +
      "\t" + objReader.GetName(4) + "\t" + objReader.GetName(5));

// Write the first six columns in the recordset to a text file as
// tab-delimited.
while(objReader.Read())
{
      for(int i=0;i<=5;i++)
      {
            if(!objReader.IsDBNull(i))
            {
                  string s;
                  s = objReader.GetDataTypeName(i);
                  if(objReader.GetDataTypeName(i)=="DBTYPE_I4")
                  {
                        sw.Write(objReader.GetInt32(i).ToString());
                  }
                  else if(objReader.GetDataTypeName(i)=="DBTYPE_DATE")
                  {
                        sw.Write(objReader.GetDateTime(i).ToString("d"));
                  }
                  else if (objReader.GetDataTypeName(i)=="DBTYPE_WVARCHAR")
                  {
                        sw.Write(objReader.GetString(i));
                  }
            }
            if(i<5) sw.Write("\t");
      }
      sw.WriteLine();
}
sw.Flush();      // Write the buffered data to the filestream.

// Close the FileStream.
fs.Close();

// Close the reader and the connection.
objReader.Close();
objConn.Close();

上述代码没有使用自动化。然而，如果您愿意，您可以按如下方式使用“自动化”来打开文本文件，并以 Excel 工作簿格式保存该文件：

// Open the text file in Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBooks.OpenText(m_strSampleFolder + "Book6.txt", Excel.XlPlatform.xlWindows, 1,
      Excel.XlTextParsingType.xlDelimited, Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
      false, true, false, false, false, false, m_objOpt, m_objOpt,
      m_objOpt, m_objOpt, m_objOpt);

m_objBook = m_objExcel.ActiveWorkbook;

// Save the text file in the typical workbook format and quit Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book6.xls", Excel.XlFileFormat.xlWorkbookNormal,
      m_objOpt, m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
      m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

返回页首

使用 ADO.NET 将数据传输到工作表

您可以使用 Microsoft Jet OLE DB 提供程序向现有 Excel 工作簿中的表中添加记录。Excel 中的表只是由单元格组成的区域；该区域可能具有规定的名称。通常，区域的第一行包含标题（或字段名），该区域中所有以后的行都包含记录。

下面的代码向 Book7.xls 中的表添加了两个新记录。在此情况下，该表是 Sheet1：

// Establish a connection to the data source.
System.Data.OleDb.OleDbConnection objConn = new System.Data.OleDb.OleDbConnection(
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_strSampleFolder +
      "Book7.xls;Extended Properties=Excel 8.0;");
objConn.Open();

// Add two records to the table named 'MyTable'.
System.Data.OleDb.OleDbCommand objCmd = new System.Data.OleDb.OleDbCommand();
objCmd.Connection = objConn;
objCmd.CommandText = "Insert into MyTable (FirstName, LastName)" +
      " values ('Bill', 'Brown')";
objCmd.ExecuteNonQuery();
objCmd.CommandText = "Insert into MyTable (FirstName, LastName)" +
      " values ('Joe', 'Thomas')";
objCmd.ExecuteNonQuery();

// Close the connection.
objConn.Close();

当您按本例所示的方法利用 ADO.NET 添加记录时，工作簿中的格式将被保持。添加到行中的每个记录都将继承它前面的行的格式。

有关使用 ADO.NET 的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

306636 HOW TO：使用 ADO.NET 和 Visual C# .NET 连接到数据库并运行命令

314145 HOW TO：使用 Visual C# .NET 从数据库填充 DataSet 对象

307587 HOW TO: 使用 Visual C# .NET 从数据集对象更新数据库

有关如何将 Jet OLEDB 提供程序与 Excel 数据源一起使用的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章。

316934 HOW TO：在 Visual Basic .NET 中使用 ADO.NET 检索和修改 Excel 工作簿中的记录

278973 SAMPLE: ExcelADO Demonstrates How to Use ADO to Read and Write Data in Excel Workbooks

257819 HOWTO：在 Visual Basic 或 VBA 中使用 ADO 来处理 Excel 数据

返回页首

传输 XML 数据（Excel 2002 和 Excel 2003）

Excel 2002 和 2003 可以打开格式完好的任何 XML 文件。您可以使用文件菜单上的打开命令直接打开 XML 文件，也可以使用 Workbooks 集合的 Open 或 OpenXML 方法以编程方式打开 XML 文件。如果您创建供在 Excel 中使用的 XML 文件，您还可以创建样式表来设置数据的格式。

有关如何将 XML 与 Excel 2002 一起使用的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

307029 HOW TO：使用 Visual C# .NET 向 Microsoft Excel 2002 传输 XML 数据

288215 INFO: Microsoft Excel 2002 and XML

返回页首

创建完整的示例 Visual C# .NET 项目

创建一个名为 C:\ExcelData 的新文件夹。示例程序将在此文件夹中存储 Excel 工作簿。

创建一个新工作簿，以供示例向其中写入数据：

a.	在 Excel 中启动一个新工作簿。
b.	在新工作簿的 Sheet1 上，在单元格 A1 中键入 FirstName，在单元格 B1 中键入 LastName。
c.	选择 A1:B1。
d.	在插入菜单上，指向名称，然后单击定义。键入名称 MyTable，然后单击确定。
e.	将该工作簿另存为 C:\Exceldata\Book7.xls。
f.	退出 Excel。

启动 Visual Studio .NET。在文件菜单上，指向新建，然后单击项目。在 Visual C# 项目下，选择 Windows 应用程序。默认情况下会创建 Form1。

添加对 Excel 对象库和 ADODB 主 interop 程序集的引用。为此，请按照下列步骤操作：

a.	在项目菜单上，单击添加引用。
b.	在 NET 选项卡上，找到 ADODB，然后单击选择。
c.	在 COM 选项卡上，找到 Microsoft Excel 10.0 对象库或 Microsoft Excel 11.0 对象库，然后单击选择。注意：如果您正在使用 Microsoft Excel 2002，并且尚未下载并安装 Microsoft Office XP 主 Interop 程序集，Microsoft 建议您下载然后安装 Microsoft Office XP 主 Interop 程序集 (PIA)。有关 Office XP PIA 的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： 328912 INFO：Microsoft Office XP PIA 可供下载
d.	在添加引用对话框中，单击确定以接受您的选择。

向 Form1 添加一个 Combo Box 控件和一个 Button 控件。

为该窗体的 Load 事件和 Button 控件的 Click事件添加事件处理程序：

a.	在 Form1.cs 的设计视图中，双击 Form1。此时将创建该窗体的 Load 事件的事件处理程序，该处理程序出现在 Form1.cs 中。
b.	在视图菜单上，单击设计器以切换到设计视图。
c.	双击 Button1。此时将创建按钮的 Click 事件的处理程序，该处理程序出现在 Form1.cs 中。

在 Form1.cs 中，将以下代码：

private void Form1_Load(object sender, System.EventArgs e)
{

}

private void button1_Click(object sender, System.EventArgs e)
{

}

替换为：

// Excel object references.
        private Excel.Application m_objExcel =  null;
        private Excel.Workbooks m_objBooks = null;
        private Excel._Workbook m_objBook = null;
        private Excel.Sheets m_objSheets = null;
        private Excel._Worksheet m_objSheet = null;
        private Excel.Range m_objRange =  null;
        private Excel.Font m_objFont = null;
        private Excel.QueryTables m_objQryTables = null;
        private Excel._QueryTable m_objQryTable = null;

        // Frequenty-used variable for optional arguments.
        private object m_objOpt = System.Reflection.Missing.Value;

        // Paths used by the sample code for accessing and storing data.
        private object m_strSampleFolder = "C:\\ExcelData\\";
        private string m_strNorthwind = "C:\\Program Files\\Microsoft Office\\Office10\\Samples\\Northwind.mdb";

        private void Form1_Load(object sender, System.EventArgs e)
        {
            comboBox1.DropDownStyle = ComboBoxStyle.DropDownList;

            comboBox1.Items.AddRange(new object[]{
                                                     "Use Automation to Transfer Data Cell by Cell ",
                                                     "Use Automation to Transfer an Array of Data to a Range on a Worksheet ",
                                                     "Use Automation to Transfer an ADO Recordset to a Worksheet Range ",
                                                     "Use Automation to Create a QueryTable on a Worksheet",
                                                     "Use the Clipboard",
                                                     "Create a Delimited Text File that Excel Can Parse into Rows and Columns",
                                                     "Transfer Data to a Worksheet Using ADO.NET "});
            comboBox1.SelectedIndex = 0;
            button1.Text = "Go!";
        }

        private void button1_Click(object sender, System.EventArgs e)
        {
            switch (comboBox1.SelectedIndex)
            {
                case 0 : Automation_CellByCell(); break;
                case 1 : Automation_UseArray(); break;
                case 2 : Automation_ADORecordset(); break;
                case 3 : Automation_QueryTable(); break;
                case 4 : Use_Clipboard(); break;
                case 5 : Create_TextFile(); break;
                case 6 : Use_ADONET(); break;
            }

            //Clean-up
            m_objFont = null;
            m_objRange = null;
            m_objSheet = null;
            m_objSheets = null;
            m_objBooks = null;
            m_objBook = null;
            m_objExcel = null;
            GC.Collect();

        }

        private void Automation_CellByCell()
        {
            // Start a new workbook in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

            // Add data to cells of the first worksheet in the new workbook.
            m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
            m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
            m_objRange = m_objSheet.get_Range("A1", m_objOpt);
            m_objRange.set_Value(m_objOpt,"Last Name");
            m_objRange = m_objSheet.get_Range("B1", m_objOpt);
            m_objRange.set_Value(m_objOpt,"First Name");
            m_objRange = m_objSheet.get_Range("A2", m_objOpt);
            m_objRange.set_Value(m_objOpt,"Doe");
            m_objRange = m_objSheet.get_Range("B2", m_objOpt);
            m_objRange.set_Value(m_objOpt,"John");

            // Apply bold to cells A1:B1.
            m_objRange = m_objSheet.get_Range("A1", "B1");
            m_objFont = m_objRange.Font;
            m_objFont.Bold=true;

            // Save the workbook and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book1.xls", m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
                m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

        }

        private void Automation_UseArray()
        {
            // Start a new workbook in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));
            m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
            m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));

            // Create an array for the headers and add it to cells A1:C1.
            object[] objHeaders = {"Order ID", "Amount", "Tax"};
            m_objRange = m_objSheet.get_Range("A1", "C1");
            m_objRange.set_Value(m_objOpt,objHeaders);
            m_objFont = m_objRange.Font;
            m_objFont.Bold=true;

            // Create an array with 3 columns and 100 rows and add it to
            // the worksheet starting at cell A2.
            object[,] objData = new Object[100,3];
            Random rdm = new Random((int)DateTime.Now.Ticks);
            double nOrderAmt, nTax;
            for(int r=0;r<100;r++)
            {
                objData[r,0] = "ORD" + r.ToString("0000");
                nOrderAmt = rdm.Next(1000);
                objData[r,1] = nOrderAmt.ToString("c");
                nTax = nOrderAmt*0.07;
                objData[r,2] = nTax.ToString("c");
            }
            m_objRange = m_objSheet.get_Range("A2", m_objOpt);
            m_objRange = m_objRange.get_Resize(100,3);
            m_objRange.set_Value(m_objOpt,"objData");

            // Save the workbook and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book2.xls", m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
                m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

        }

        private void Automation_ADORecordset()
        {
            // Create a Recordset from all the records in the Orders table.
            ADODB.Connection objConn = new ADODB.Connection();
            ADODB._Recordset objRS = null;
            objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
                m_strNorthwind + ";", "", "", 0);
            objConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
            object objRecAff;
            objRS = (ADODB._Recordset)objConn.Execute("Orders", out objRecAff,
                (int)ADODB.CommandTypeEnum.adCmdTable);

            // Start a new workbook in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));
            m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
            m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));

            // Get the Fields collection from the recordset and determine
            // the number of fields (or columns).
            System.Collections.IEnumerator objFields = objRS.Fields.GetEnumerator();
            int nFields = objRS.Fields.Count;

            // Create an array for the headers and add it to the
            // worksheet starting at cell A1.
            object[] objHeaders = new object[nFields];
            ADODB.Field objField = null;
            for(int n=0;n<nFields;n++)
            {
                objFields.MoveNext();
                objField = (ADODB.Field)objFields.Current;
                objHeaders[n] = objField.Name;
            }
            m_objRange = m_objSheet.get_Range("A1", m_objOpt);
            m_objRange = m_objRange.get_Resize(1, nFields);
            m_objRange.set_Value(m_objOpt,objHeaders);
            m_objFont = m_objRange.Font;
            m_objFont.Bold=true;

            // Transfer the recordset to the worksheet starting at cell A2.
            m_objRange = m_objSheet.get_Range("A2", m_objOpt);
            m_objRange.CopyFromRecordset(objRS, m_objOpt, m_objOpt);

            // Save the workbook and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book3.xls", m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
                m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

            //Close the recordset and connection
            objRS.Close();
            objConn.Close();

        }

        private void Automation_QueryTable()
        {
            // Start a new workbook in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

            // Create a QueryTable that starts at cell A1.
            m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
            m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
            m_objRange = m_objSheet.get_Range("A1", m_objOpt);
            m_objQryTables = m_objSheet.QueryTables;
            m_objQryTable = (Excel._QueryTable)m_objQryTables.Add(
                "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
                m_strNorthwind + ";", m_objRange, "Select * From Orders");
            m_objQryTable.RefreshStyle = Excel.XlCellInsertionMode.xlInsertEntireRows;
            m_objQryTable.Refresh(false);

            // Save the workbook and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book4.xls", m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

        }

        private void Use_Clipboard()
        {
            // Copy a string to the clipboard.
            string sData = "FirstName\tLastName\tBirthdate\r\n"  +
                "Bill\tBrown\t2/5/85\r\n"  +
                "Joe\tThomas\t1/1/91";
            System.Windows.Forms.Clipboard.SetDataObject(sData);

            // Start a new workbook in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));

            // Paste the data starting at cell A1.
            m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
            m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
            m_objRange = m_objSheet.get_Range("A1", m_objOpt);
            m_objSheet.Paste(m_objRange, false);

            // Save the workbook and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book5.xls", m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

        }

        private void Create_TextFile()
        {
            // Connect to the data source.
            System.Data.OleDb.OleDbConnection objConn = new System.Data.OleDb.OleDbConnection(
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_strNorthwind + ";");
            objConn.Open();

            // Execute a command to retrieve all records from the Employees  table.
            System.Data.OleDb.OleDbCommand objCmd = new System.Data.OleDb.OleDbCommand(
                "Select * From Employees", objConn);
            System.Data.OleDb.OleDbDataReader objReader;
            objReader = objCmd.ExecuteReader();


            // Create the FileStream and StreamWriter object to write
            // the recordset contents to file.
            System.IO.FileStream fs = new System.IO.FileStream(
                m_strSampleFolder + "Book6.txt", System.IO.FileMode.Create);
            System.IO.StreamWriter sw = new System.IO.StreamWriter(
                fs, System.Text.Encoding.Unicode);

            // Write the field names (headers) as the first line in the text file.
            sw.WriteLine(objReader.GetName(0) +  "\t" + objReader.GetName(1) +
                "\t" + objReader.GetName(2) + "\t" + objReader.GetName(3) +
                "\t" + objReader.GetName(4) + "\t" + objReader.GetName(5));

            // Write the first six columns in the recordset to a text file as
            // tab-delimited.
            while(objReader.Read())
            {
                for(int i=0;i<=5;i++)
                {
                    if(!objReader.IsDBNull(i))
                    {
                        string s;
                        s = objReader.GetDataTypeName(i);
                        if(objReader.GetDataTypeName(i)=="DBTYPE_I4")
                        {
                            sw.Write(objReader.GetInt32(i).ToString());
                        }
                        else if(objReader.GetDataTypeName(i)=="DBTYPE_DATE")
                        {
                            sw.Write(objReader.GetDateTime(i).ToString("d"));
                        }
                        else if (objReader.GetDataTypeName(i)=="DBTYPE_WVARCHAR")
                        {
                            sw.Write(objReader.GetString(i));
                        }
                    }
                    if(i<5) sw.Write("\t");
                }
                sw.WriteLine();
            }
            sw.Flush();      // Write the buffered data to the FileStream.

            // Close the FileStream.
            fs.Close();

            // Close the reader and the connection.
            objReader.Close();
            objConn.Close();

            // ==================================================================
            // Optionally, automate Excel to open the text file and save it in the
            // Excel workbook format.

            // Open the text file in Excel.
            m_objExcel = new Excel.Application();
            m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
            m_objBooks.OpenText(m_strSampleFolder + "Book6.txt", Excel.XlPlatform.xlWindows, 1,
                Excel.XlTextParsingType.xlDelimited, Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
                false, true, false, false, false, false, m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt);

            m_objBook = m_objExcel.ActiveWorkbook;

            // Save the text file in the typical workbook format and quit Excel.
            m_objBook.SaveAs(m_strSampleFolder + "Book6.xls", Excel.XlFileFormat.xlWorkbookNormal,
                m_objOpt, m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
                m_objOpt, m_objOpt, m_objOpt);
            m_objBook.Close(false, m_objOpt, m_objOpt);
            m_objExcel.Quit();

        }

        private void Use_ADONET()
        {
            // Establish a connection to the data source.
            System.Data.OleDb.OleDbConnection objConn = new System.Data.OleDb.OleDbConnection(
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_strSampleFolder +
                "Book7.xls;Extended Properties=Excel 8.0;");
            objConn.Open();

            // Add two records to the table named 'MyTable'.
            System.Data.OleDb.OleDbCommand objCmd = new System.Data.OleDb.OleDbCommand();
            objCmd.Connection = objConn;
            objCmd.CommandText = "Insert into MyTable (FirstName, LastName)" +
                " values ('Bill', 'Brown')";

            objCmd.ExecuteNonQuery();
            objCmd.CommandText = "Insert into MyTable (FirstName, LastName)" +
                " values ('Joe', 'Thomas')";
            objCmd.ExecuteNonQuery();


            // Close the connection.
            objConn.Close();

        }

      }  // End Class
}// End namespace

注意：如果您没有将 Office 安装到默认文件夹（C:\Program Files\Microsoft Office），请修改代码示例中的 m_strNorthwind 常数以匹配 Northwind.mdb 的安装路径。

将下面的代码添加到 Form1.cs 中的 Using指令中：

using System.Reflection;
      using System.Runtime.InteropServices;
      using Excel = Microsoft.Office.Interop.Excel;

按 F5 生成并运行该示例。

【#注：一、以上的很多方法都只能在从本地数据库导到Excel，或者要求客服端进行复杂的设置，这对远程服务器都不合适；

二、最基本的逐单元格赋值的方法虽然在大数据量的情况下性能比较的差，但注意两点，1，这是非常灵活的方法，特别是数据表与sheet之间要进行特别的映射；2，在少量数据时和其他方法性能基本一样；

三、复制粘贴的方法并不可靠，大量数据时容易发生异常，少量数据显得没有必要。但是，对于异常情况我在代码中已作处理，其次，转化成文本串之后可以用正则表达式对格式进行控制也是不错的主意】

本文链接

禅语

2010-09-28T01:45:00Z

1.人之所以痛苦，在于追求错误的东西。
　　2.如果你不给自己烦恼，别人也永远不可能给你烦恼。因为你自己的内心，你放不下。
　　3.你永远要感谢给你逆境的众生。
　　4.你永远要宽恕众生，不论他有多坏，甚至他伤害过你，你一定要放下，才能得到真正的快乐。
　　5.当你快乐时，你要想这快乐不是永恒的。当你痛苦时，你要想这痛苦也不是永恒的。
　　6.今日的执著，会造成明日的后悔。
　　7.你可以拥有爱，但不要执著，因为分离是必然的。
　　8.不要浪费你的生命在你一定会后悔的地方上。
　　9.你什么时候放下，什么时候就没有烦恼。
　　10.每一种创伤，都是一种成熟。
　　11.狂妄的人有救，自卑的人没有救，认识自己，降伏自己，改变自己，才能改变别人。
　　12.你不要一直不满人家，你应该一直检讨自己才对。不满人家，是苦了你自己。
　　13.一个人如果不能从内心去原谅别人，那他就永远不会心安理得。
　　14.心中装满着自己的看法与想法的人，永远听不见别人的心声。
　　15.毁灭人只要一句话，培植一个人却要千句话，请你多口下留情。
　　16.根本不必回头去看咒骂你的人是谁？如果有一条疯狗咬你一口，难道你也要趴下去反咬他一口吗？
　　17.永远不要浪费你的一分一秒，去想任何你不喜欢的人。
　　18.请你用慈悲心和温和的态度，把你的不满与委屈说出来，别人就容易接受。
　　19.同样的瓶子，你为什么要装毒药呢？同样的心里，你为什么要充满着烦恼呢？
　　20.得不到的东西，我们会一直以为他是美好的，那是因为你对他了解太少，没有时间与他相处在一起。当有一天，你深入了解后，你会发现原不是你想像中的那么美好。
　　21.活着一天，就是有福气，就该珍惜。当我哭泣我没有鞋子穿的时候，我发现有人却没有脚。
　　22.多一分心力去注意别人，就少一分心力反省自己，你懂吗？
　　23.憎恨别人对自己是一种很大的损失。
　 24.每一个人都拥有生命，但并非每个人都懂得生命，乃至于珍惜生命。不了解生命的人，生命对他来说，是一种惩罚。
　　25.情执是苦恼的原因，放下情执，你才能得到自在
　　26.不要太肯定自己的看法，这样子比较少后悔。
　　27.当你对自己诚实的时候，世界上没有人能够欺骗得了你。
　　28.用伤害别人的手段来掩饰自己缺点的人，是可耻的。
　　29.默默的关怀与祝福别人，那是一种无形的布施。
　　30.不要刻意去猜测他人的想法，如果你没有智慧与经验的正确判断，通常都会有错误的。
　　31.要了解一个人，只需要看他的出发点与目的地是否相同，就可以知道他是否真心的。
　　32.人生的真理，只是藏在平淡无味之中。
　　33.不洗澡的人，硬擦香水是不会香的。名声与尊贵，是来自于真才实学的。有德自然香。
　　34.时间总会过去的，让时间流走你的烦恼吧！
　　35.你硬要把单纯的事情看得很严重，那样子你会很痛苦。
　　36.永远扭曲别人善意的人，无药可救。
　　37.说一句谎话，要编造十句谎话来弥补，何苦呢？
　　38.白白的过一天，无所事事，就像犯了窃盗罪一样
　　39.广结众缘，就是不要去伤害任何一个人。
　　40.沉默是毁谤最好的答覆。
　　41.对人恭敬，就是在庄严你自己。
　　42.拥有一颗无私的爱心，便拥有了一切。
　　43.来是偶然的，走是必然的。所以你必须，随缘不变，不变随缘。
　　44.慈悲是你最好的武器。
　　45.只要面对现实，你才能超越现实。
　　46.良心是每一个人最公正的审判官，你骗得了别人，却永远骗不了你自己的良心。
　　47.不懂得自爱的人，是没有能力去爱别人的。
　　48.有时候我们要冷静问问自已，我们在追求什么？我们活着为了什么？
　　49.不要因为小小的争执，远离了你至亲的好友，也不要因为小小的怨恨，忘记了别人的大恩。
　　50.感谢上苍我所拥有的，感谢上苍我所没有的。
　　51.凡是能站在别人的角度为他人着想，这个就是慈悲。
　　52.说话不要有攻击性，不要有杀伤力，不夸已能，不扬人恶，自然能化敌为友。
　　53.诚实的面对你内心的矛盾和污点，不要欺骗你自己。
　　54.因果不曾亏欠过我们什么，所以请不要抱怨。
　　55.大多数的人一辈子只做了三件事；自欺、欺人、被人欺。
　　56.心是最大的骗子，别人能骗你一时，而它却会骗你一辈子
　　57.只要自觉心安，东西南北都好。如有一人未度，切莫自己逃了。
　　58.当你手中抓住一件东西不放时，你只能拥有这件东西，如果你肯放手，你就有机会选择别的。人的心若死执自己的观念，不肯放下，那么他的智慧也只能达到某种程度而已
　　59.如果你能够平平安安的渡过一天，那就是一种福气了。多少人在今天已经见不到明天的太阳，多少人在今天已经成了残废，多少人在今天已经失去了自由，多少人在今天已经家破人亡。
　　60.你有你的生命观，我有我的生命观，我不干涉你。只要我能，我就感化你。如果不能，那我就认命。
　　61.你希望掌握永恒，那你必须控制现在。
　　62.恶口永远不要出自于我们的口中，不管他有多坏，有多恶。你愈骂他，你的心就被污染了，你要想，他就是你的善知识。
　　63.别人可以违背因果，别人可以害我们，打我们，毁谤我们。可是我们不能因此而憎恨别人，为什

么？我们一定要保有一颗完整的本性和一颗清净的心。
　　64.如果一个人没有苦难的感受，就不容易对他人给予同情。你要学救苦救难的精神，就得先受苦受难。
　　65.世界原本就不是属于你，因此你用不着抛弃，要抛弃的是一切的执著。万物皆为我所用，但非我所属。
　　66.虽然我们不能改变周遭的世界，我们就只好改变自己，用慈悲心和智慧心来面对这一切

本文链接

四个足以警醒你一生的故事！

2010-07-20T14:22:00Z

一、蛇与乌龟的故事

       一条大蟒蛇和一条小毒蛇是朋友，这天他们在路边发现了一只巨大的乌龟。蛇兄弟想，这么大的个儿，可是一顿美餐啊。蟒蛇说：我来对付他。于是蟒蛇施展自己的浑身绝技，用身体将大乌龟牢牢地缠住。而大乌龟早已将身体缩进了龟壳里，任凭蟒蛇怎么缠绕，也无法伤害到它。
       泄气的蟒蛇，气喘吁吁地爬到了一边。看到大蟒蛇在喘气，大乌龟谨慎地露出脑袋来探看个究竟，就在他露出龟头的那一瞬间，小毒蛇闪电般地在乌龟脑袋上咬了一口，大乌龟又急忙缩回壳中。但是几分钟后，大乌龟因为中毒而死了。蟒蛇说：哇！我花了那么大力气也没能伤害到乌龟，你却轻而易举地办到了啊。小毒蛇说：那是因为我了解他的要害。
       可是接下来的还是有一个问题，大乌龟死后依然缩在龟壳里，两条蛇都是吞食性的动物，而他们又无法脱下乌龟的外壳，只好怏怏地离开了……

情色总结
       这个故事告诉我们：即使你擅长死缠烂打，也未必能得到你想要的，要了解那个人的心思才可以。这个故事还告诉我们：如果你无法得到她的心，就不要再花力气在她身上了。

哲理总结
       这个故事告诉我们：即使你有时付出了很多，并用尽心机与手段，最终也得到了你想要的东西，但是当你拥有了的时候却发现得无所用。这个故事还告诉我们：并不是个头大就能战胜对手，有时小个子更有杀伤力！
       对于乌龟来说：自以为自己有了一个很好的保护体就很安全，增广贤文有言：“今日学得乌龟法，得缩头时且缩头”。乌龟见到敌人在喘气，就以为危机解除，结果他不知道敌人还有更厉害的一着，特别是隐藏的敌手。见到强大的敌人时乌龟的确懂得缩头保护自己，可是，乌龟虽然并没有死在看似强大的敌人手上，但却死在看似渺小的敌人手上。

高度总结
       记住：强大的对手是很难真正伤害到我们的，因为我们时刻都会设法防备他们，而那些平时不怎么起眼的对手才可能是你真正的掘墓人！

二、寄居蟹的故事

       一只公寄居蟹找到了一只很大的空贝壳，于是它便把贝壳清理干净，做成了自己的房子。有了房子的公寄居蟹很快就找到了一只母寄居蟹，他们快乐地生活在这个大房子里。每天他们出门，母寄居蟹就自由快乐地遨游，觅食，而公寄居蟹则背着沉重的房子艰难地跟在母寄居蟹身后。母寄居蟹游一段路就要停下来等公蟹。
       这样的生活过了没多久，有一天母寄居蟹跟着一只无拘无束的龙虾一起游走了，再也没有回来，而公寄居蟹无法丢下他沉重的房子，只能眼睁睁地看着母寄居蟹游远、游远、游远，渐渐消失，不见……

情色总结
       这个故事告诉我们：如果你有一所房子，那你泡妞的难度将大大降低。这个故事还告诉我们：只有房子是无法圈住女人的！

哲理总结
       这个故事告诉我们：如果你的房子成为了你的重负，那么你以后的生活将变得痛苦不堪。所以当你在决定是否分期买房子的时候请先衡量一下得与失。这个故事还告诉我们：如果你拥有了物质并不代表你会快乐，有时你得到了某一样物质的同时也可能失去你最宝贵的东西。假如当你拼死拼活赚到了很多钱，还拥有了一切，你被告知验出癌症晚期时，钱财对你还有用吗？当你一直背负着超出你的承受能力的重负时，你永远也无法得到快乐！你总有一天会被压垮的！
       公寄居蟹的问题是它既不自量力也不懂得放弃。以为拥有的物质才最真实，但它不会去衡量。对于它来说，拥有的与失去的哪一样更重要！

高度总结
       记住：没有任何人愿意一直与背负着超重负担的人同行！

三、小蛇与青蛙的故事

       一条不懂事的美丽小蛇在水边看见了一只有着漂亮花纹、皮肤超好的青蛙，她不禁生出了爱慕之心。于是小蛇对青蛙说：我们可以交往吗？青蛙说：好啊好啊。于是他们两个就生活在一起了。
       有一天，他们在睡觉的时候，小蛇在睡梦中不由自主地用身体将青蛙缠了起来，青蛙感觉快要窒息了，就奋力地挣扎，他用两条强壮而有力的后腿重重地蹬在小蛇的腹部，弹了出去，然后迅速地逃走了，从此再也没有回来。
       伤心的小蛇虽然养好了身上的伤，但却无法疗养好心中的伤，此后，她对帅气漂亮的青蛙产生了恐惧感，认为会被伤害，从此她过着单身生活。
       过了一段时间，一只丑陋的癞蛤蟆发现了小蛇，觉得她十分美丽，不禁生出了爱慕之心。癞蛤蟆对小蛇说：我们可以交往吗？小蛇看了看丑陋的癞蛤蟆，觉得他的眼神很真诚，她那颗寂寞的心动摇了，她想这只癞蛤蟆这么丑陋，应该会好好珍惜她这么漂亮的小蛇的，于是她说：好吧好吧。于是他们两个生活在一起了。
       有一天，他们在睡觉的时候，小蛇在睡梦中又不由自主地用身体将癞蛤蟆缠了起来，癞蛤蟆感觉快要窒息了，就奋力挣扎，他的背上喷出了毒汁，射进了小蛇的眼睛，小蛇受痛后就展开了身体，癞蛤蟆趁机逃走了，从此再也没有回来。

情色总结
       这个故事告诉我们：别以为只有帅哥才会伤害女孩，丑男一样会伤害女孩，那么，美丽的女孩你为何不继续去选择帅哥呢？这个故事还告诉我们：适当的缠绵是可以的，但是如果你的要求太频繁，给男人压力太大，那么男人都会被你吓跑的。

哲理总结
       这个故事告诉我们：还没有生活在一起的时候，每个人最大的缺点都不会轻易暴露出来，只有共同在一起生活了，平时掩盖得很完美的缺点才会暴露无遗的。这个故事还告诉我们：找一个不想与你结婚的人生活在一起容易，找一个你想与之长相厮守的人与你一起生活难！
       小蛇的问题是她总以为是别人负她，她从不检讨如果不是她总是不自觉地伤害了别人，人家怎会离她而去呢？

高度总结
       记住！有很多伤害了别人的人往往还认为自己被别人伤害了。

四、天鹅与鸭子的故事

       一只美丽的天鹅有一天落在地上时，看见了一只健壮的鸭子，她立刻被这只帅气的鸭子所打动，她惊诧于鸭子不同于她同类的模样，不同于她同类的气质，是那么的有型，那么的另类。
       于是，天鹅向鸭子表明了爱意。受宠若惊的鸭子立刻接受了这份爱。从此，天鹅与鸭子在土地上生活着，在泥塘边厮混着。天鹅那高贵而雪白的羽毛一天天被污脏了；天鹅那以前不会长期行走的美丽小脚也红肿了；天鹅失去了云彩的抚摩，蓝天的洗涤。
       有一天，天鹅终于忍不住了，她总是在说：鸭子，鸭子，你跟我学习飞翔吧，那我们就可以一起在高空中比翼双飞了。鸭子也愿意为了天鹅而努力学习飞翔，可惜他只是一只鸭子，他也可以在池塘边低飞，想要飞到和天鹅一样的高度实在是太难了，他实在是没有毅力了，于是他放弃了。
       鸭子说：天鹅，不如你抓住我，带我去飞吧。于是天鹅抓住鸭子，扇动翅膀，非常非常吃力地飞上了蓝天，在天上飞了一会儿就落地了。鸭子很高兴，鸭子觉得天上的风景真是太美了，鸭子感到爱上了天鹅真是好极了。
       在那之后的日子里，鸭子每天都要求天鹅带他飞上天，而且要求飞翔的时间也越来越长，如果天鹅不能达到他的要求他就会生气。疲惫的天鹅因为爱着鸭子，虽然身心俱疲，却依然会答应鸭子的要求。
       这一天，鸭子又让天鹅带他飞上蓝天，天鹅勉强抓住鸭子飞上了蓝天，飞得很高，很高，很高，突然天鹅低下头深深地吻了吻鸭子，就在鸭子感觉诧异的时候，天鹅松开了抓住鸭子的手……

情色总结
       这个故事告诉我们：做人要懂得知足，千万不要要求太高。这个故事还告诉我们：要懂得爱惜爱侣的身体，同时也要懂得爱惜自己。！

哲理总结
       这个故事告诉我们：公主爱上穷小子的故事并非没有可能，只是结局未必都会那么完美。无论时代如何，阶级划分总是存在的，门当户对未必就是旧观念。这个故事还告诉我们：攀上高枝确实会令你生活质量大大提高，但并不代表你可以免于奋斗。富家人既能让你飞得很高，但也能让你死得很惨！
       鸭子的问题是不知天高地厚，贪得无厌，为了自己的愉悦而不理同伴的死活。此外，对于美好的东西不懂得珍惜和爱护，也从不为对方的境况着想。鸭子最致命的地方是他的命运一直掌握在别人手上而浑然不知，还不断要求掌握他命运的人不断为他付出。

高度总结
       记住！自己没有本事，生命却又操控在别人手里的人始终难逃一劫！

本文链接

人们通常不知道自己想要什么，除非你秀出产品给他们看。

2010-07-08T14:50:00Z

人们通常不知道自己想要什么，除非你秀出产品给他们看。

-------------------乔布斯

如果我当年去问顾客他们想要什么，他们肯定会告诉我‘一匹更快的马’。

-------------------福特

本文链接

养成好习惯，好气质

2010-06-15T05:40:00Z

气质的养成!(哈佛管理学院)

转载自徐悦转载于2010年06月13日 13:33 阅读(9) 评论(0) 分类： QQ空间

一：沉稳
     （1）不要随便显露你的情绪。
     （2）不要逢人就诉说你的困难和遭遇。
     （3）在征询别人的意见之前，自己先思考，但不要先讲。
     （4）不要一有机会就唠叨你的不满。
     （5）重要的决定尽量有别人商量，最好隔一天再发布。
     （6）讲话不要有任何的慌张，走路也是。

二：细心
     （1）对身边发生的事情，常思考它们的因果关系。
     （2）对做不到位的执行问题，要发掘它们的根本症结。
     （3）对习以为常的做事方法，要有改进或优化的建议。
     （4）做什么事情都要养成有条不紊和井然有序的习惯。
     （5）经常去找几个别人看不出来的毛病或弊端。
     （6）自己要随时随地对有所不足的地方补位。

三：胆识
     （1）不要常用缺乏自信的词句
     （2）不要常常反悔，轻易推翻已经决定的事。
     （3）在众人争执不休时，不要没有主见。
     （4）整体氛围低落时，你要乐观、阳光。
     （5）做任何事情都要用心，因为有人在看着你。
     （6）事情不顺的时候，歇口气，重新寻找突破口，就结束也要干净利落。

四：大度
     （1）不要刻意把有可能是伙伴的人变成对手。
     （2）对别人的小过失、小错误不要斤斤计较。
     （3）在金钱上要大方，学习三施（财施、法施、无畏施）
     （4）不要有权力的傲慢和知识的偏见。
     （5）任何成果和成就都应和别人分享。
     （6）必须有人牺牲或奉献的时候，自己走在前面。

五：诚信
     （1）做不到的事情不要说，说了就努力做到。
     （2）虚的口号或标语不要常挂嘴上。
     （3）针对客户提出的“不诚信”问题，拿出改善的方法。
     （4）停止一切“不道德”的手段。
     （5）耍弄小聪明，要不得！
     （6）计算一下产品或服务的诚信代价，那就是品牌成本。

六：担当
     （1）检讨任何过失的时候，先从自身或自己人开始反省。
     （2）事项结束后，先审查过错，再列述功劳。
     （3）认错从上级开始，表功从下级启动
     （4）着手一个计划，先将权责界定清楚，而且分配得当。
     （5）对“怕事”的人或组织要挑明了说。

ps：附上培养的99个好习惯

习惯从细节做起
1. 从容从大方开始
2. 培养自信的语言
3. 让你的笑容像阳光一样
4. 积极表露你的热情
5. 让表达自己成为一种习惯
6. 让你的肢体语言更有感染力
7. 谈吐讲究“不凡”
8. 站坐走要“有形”
9. 让你的行动更干练
10. 用知识来武装自己
11. 用音乐来熏陶自己
12. 让自己的穿着大方得体
13. 时时注意自己的形象
14. 做个懂得静修的人

好习惯带来好心情
15. 关键时刻要放松
16. 紧张的时候深呼吸
17. 别为小事生气
18. 学会控制自己的情绪
19. 让自己冷静而不狂躁
20. 及时给自己减压
21. 悲观时，进行自我暗示
22. 自觉保持谦逊
23. 人生不时要冒险
24. 用变通打破困境
25. 让自己充实起来
26. 虚心接受别人批评
27. 偶尔吃亏心要宽
28. 时时提醒自己要从容
29. 经常进行自我对话
30. 定期进行自我评估
31. 每天自省一小时
32. 进行适当的自我肯定
33. 正确认识自己的缺点
34. 做你害怕的事

好习惯造就好生活
35. 每天晨炼半小时
36. 养成用早餐的习惯
37. 吃饭只吃八分饱
38. 要养成吃鱼的习惯
39. 蔬菜水果天天吃
40. 充分利用纤维食品
41. 多喝水，再多喝一点儿
42. 常喝绿茶。细品茶的意蕴
43. 经常服用维生素
44. 戒烟戒酒，戒掉恶习
45. 要养成按时作息的习惯
46. 静心养神一刻钟
47. 随时随地活动身体
48. 走走楼梯好处多
49. 带上绳子去运动
50. 学会用游泳强健心肺
51. 永远是跑步一族
52. 保持快速步行
53. 爬爬山，出出汗
54. 定时走进健身房
55. 爱上单车瘦身运动
56. 隐形体操，忙里偷闲
57. 定期体检，为健康护航
58. 经常和大自然亲密接触

好习惯成就好前程
59. 制定有效目标的习惯
60. 经常进行战略思考
61. 用计划来掌控全局
62. 遵循规则，尊重规则
63. 大事化小，分段完成
64. 要事第一，主次分明
65. 管理好你的时间
66. 心动就快行动
67. 效率从办公桌开始
68. 每天一张图表
69. 全力以赴地做事
70. 注重细节
71. 快速处理小事
72. 一次只做一件事
73. 让电话变简洁
74. 养成不屈不挠的风格
75. 尽善尽美，方成就大事
76. 把喜怒哀乐藏起来

好习惯赢得好人缘
77. 准时赴约
78. 用“眼睛”去倾听
79. 记住别人的姓名
80. 认认真真去握手
81. 少谈些自己，多谈些他人
82. 投其所好来交流
83. 欣赏之感溢于言表
84. 做个好听众
85. 多多鼓励，善于激励
86. 双赢思维
87. 不要抱怨别人
88. 别总指责别人
89. 学会交流，与人协作
90. 尊重别人的隐私
91. 善待他人
92. 宽容是交友之道
93. 用心经营你的家庭
94. 充满爱与感激的小纸条
95. 每天说句“我爱你”
96. 别把工作带回家
97. 温情的家庭日
98. 小礼物的惊喜
99. 把他的优点说出来

本文链接

VB读取硬盘序列号

2009-07-31T20:47:00Z

[代码]

是笑话，是悲凉，是笑后的真实，是真实后的悲凉

2009-07-01T14:54:00Z

1、人不犯我，我不犯人；人若犯我，礼让三分；人再犯我，我还一针；人还犯我，斩草除根。 2、我允许你走进我的世界,但不许你在我的世界里走来走去。 3、明骚易躲，暗贱难防。 4、天没降大任于我，照样苦我心智，劳我筋骨。 5、执子之手，方知子丑，泪流满面，子不走我走。 6、红豆不长南国，长我脸上了，真相思！ 7、我深信，会有一个男人是为受我的折磨而来到这世上的。 8、西游记告诉我们：凡是有后台的妖怪都...

有些话应该记住

2009-06-16T15:02:00Z

我喜欢从哲学和宏观的角度思考问题，在经济上真正有思考深度的有谢国忠、索罗斯、巴菲特，听听他们的一些话，记住，加以思考：谢国忠：将来某个时候会很不好。巴菲特：从长期看，总是很好的。索罗斯：我不知道，真的不知道，因为没有人知道，如果你认为你知道了，那你肯定是错了。郎咸平：这是一个人吃人的社会。------------------------下面是索罗斯的一些话---------------------...

•	逐个单元格地传输数据
•	将数组中的数据传输到由单元格组成的区域。
•	使用 CopyFromRecordset 方法向单元格区域传输 ADO 记录集中的数据。
•	在 Excel 工作表上创建一个 QueryTable 对象，该对象包含对 ODBC 或 OLEDB 数据源进行查询的结果。
•	将数据传输到剪贴板，然后将剪贴板内容粘贴到 Excel 工作表中。

•	将数据传输到制表符分隔的或逗号分隔的文本文件，然后 Excel 可以将该文本文件分析为工作表上的单元格。
•	使用 ADO.NET 将数据传输到工作表。
•	将 XML 数据传输到 Excel（仅限于 2002 和 2003 版）以提供可以被格式化和排列为行和列的数据。

博客园_eyye

SQL Server 的事务处理的两种格式

sql IN语句如何优化？(转)

追问：这个select 1不明白什么意思啊？

向EXCEL批量导出数据（转）

自（http://www.cnblogs.com/Wiseman/archive/2004/11/26/69113.html）

概要 本文逐步介绍了多种从 Visual C# .NET 程序向 Excel 2002 传输数据的方法。本文还提供了每种方法的优点和缺点，以便您可以选择最适合您的情况的解决方案。返回页首

方法

禅语

四个足以警醒你一生的故事！

人们通常不知道自己想要什么，除非你秀出产品给他们看。

养成好习惯，好气质

VB读取硬盘序列号

是笑话，是悲凉，是笑后的真实，是真实后的悲凉

有些话应该记住

概要

本文逐步介绍了多种从 Visual C# .NET 程序向 Excel 2002 传输数据的方法。本文还提供了每种方法的优点和缺点，以便您可以选择最适合您的情况的解决方案。

返回页首