利用ADO.NET操作Excel

ObjectARX

1. [CommandMethod("mTest")]
   
2.         public void m_Test()
   
3.         {
   
4.             Editor m_ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
   
5.             string m_FilePath = @"d:\TestExcel.xls";
   
6. 
   
7.             #region 利用ADO.net操作Excel数据
   
8.             string m_ExcelConnectStr = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = '" +
   
9.         m_FilePath + "';Extended Properties=Excel 8.0";
   
10.             OleDbConnection m_ODBC = new OleDbConnection(m_ExcelConnectStr);//连接Excel（如果给定文件不存在，自动创建新文件）
    
11.             string m_SheetName = "mkhSheet";
    
12. 
    
13.             #region 创建一个Excel表，并写入数据
    
14.             m_ODBC.Open();//打开数据库
    
15. 
    
16.             OleDbCommand m_ODBCMD = new OleDbCommand();
    
17.             m_ODBCMD.Connection = m_ODBC;
    
18.             string m_CMDStr = "";
    
19.             string[] m_TitleName = new string[] { "序号", "数据1", "数据2", "数据3", "数据4" };//表头（Excel表中第一行数据）
    
20.             string[] m_ValueType = new string[] { "numeric", "numeric", "numeric", "numeric", "numeric" };
    
21.             for (int i = 0; i < m_TitleName.GetLength(0); i++) m_CMDStr += m_TitleName【i】+ " " + m_ValueType【i】+ ",";
    
22.             m_CMDStr = "create table " + m_SheetName + " (" + m_CMDStr.Remove(m_CMDStr.Length - 1) + ")";
    
23.             m_ODBCMD.CommandText = m_CMDStr;//创建表
    
24.             try { m_ODBCMD.ExecuteNonQuery(); }//判断表是否已经存在？
    
25.             catch
    
26.             {
    
27.                 m_ODBCMD.CommandText = "drop table " + m_SheetName; m_ODBCMD.ExecuteNonQuery();//如存在，则先删除
    
28.                 m_ODBCMD.CommandText = m_CMDStr; m_ODBCMD.ExecuteNonQuery();//重新创建表
    
29.             }
    
30.             //向表中写入数据（增加记录）
    
31.             for (int i = 0; i < 6; i++)
    
32.             {
    
33.                 m_CMDStr = "insert into " + m_SheetName + " (" + m_TitleName[0] + "," + m_TitleName[1] + "," + m_TitleName[3] + ") values(";
    
34.                 m_CMDStr += i.ToString() + "," + (i + 1).ToString() + "," + (i + 2).ToString() + ")";
    
35.                 m_ODBCMD.CommandText = m_CMDStr;//指定SQL语句
    
36.                 m_ODBCMD.ExecuteNonQuery();//执行SQL语句，无返回值
    
37.             }
    
38.             //修改表中数据（修改记录）
    
39.             OleDbDataAdapter m_ODBDA = new OleDbDataAdapter("select * from [" + m_SheetName + "$]", m_ODBC);//读Excel文件的一个表
    
40.             DataSet m_DS = new DataSet();
    
41.             m_ODBDA.Fill(m_DS);//把表数据填入DataSet中
    
42.             System.Data.DataTable m_DT = m_DS.Tables[0];//获取表格所对应的DataTable对象
    
43.             for (int i = 1; i < 6; i++)
    
44.             {
    
45.                 m_CMDStr = "update " + m_SheetName + " set " + m_TitleName[2] + "=";
    
46.                 m_CMDStr += ((Convert.ToDouble(m_DT.Rows[i - 1][1]) + Convert.ToDouble(m_DT.Rows[1])) * 3.0 / 2).ToString("0.00");
    
47.                 m_CMDStr += "," + m_TitleName[4] + "=";
    
48.                 m_CMDStr += ((Convert.ToDouble(m_DT.Rows[i - 1][3]) + Convert.ToDouble(m_DT.Rows[3])) * 3.0 / 2).ToString("0.00");
    
49.                 m_CMDStr += " where " + m_TitleName[0] + "=" + i.ToString();
    
50.                 m_ODBCMD.CommandText = m_CMDStr;//指定SQL语句
    
51.                 m_ODBCMD.ExecuteNonQuery();//执行SQL语句，无返回值
    
52.             }
    
53.             m_DT.Dispose(); m_DT = null;
    
54.             m_DS.Dispose(); m_DS = null;
    
55.             m_ODBDA.Dispose(); m_ODBDA = null;
    
56.             m_ODBCMD.Dispose(); m_ODBCMD = null;
    
57.             m_ODBC.Close();//关闭数据库
    
58.             #endregion
    
59. 
    
60.             #region 从Excel表中读取数据
    
61.             m_ODBDA = new OleDbDataAdapter("select * from [" + m_SheetName + "$]", m_ODBC);//读Excel文件的一个表
    
62.             m_DS = new DataSet();
    
63.             m_ODBDA.Fill(m_DS);//把数据填入DataSet中
    
64.             m_DT = m_DS.Tables[0];//获取表格所对应的DataTable对象，这样才能进行相关的操作
    
65. 
    
66.             string m_Str = "";
    
67.             for (int i = 0; i < m_DT.Columns.Count; i++) m_Str += m_DT.Columns.Caption.PadLeft(8,'-');
    
68.             m_ed.WriteMessage("{0}", m_Str);//显示表头（Excel工作表中第一行数据）
    
69. 
    
70.             for (int i = 0; i < m_DT.Rows.Count; i++)
    
71.             {
    
72.                 m_Str = "";
    
73.                 m_ed.WriteMessage("\n");
    
74.                 for (int j = 0; j < m_DT.Columns.Count; j++)
    
75.                     m_Str += m_DT.Rows[j].ToString().PadLeft(8,'-');
    
76.                 m_ed.WriteMessage("{0}", m_Str);//显示每行数据
    
77.             }
    
78.             m_DT.Dispose(); m_DT = null;
    
79.             m_DS.Dispose(); m_DS = null;
    
80.             m_ODBDA.Dispose(); m_ODBDA = null;
    
81.             #endregion
    
82. 
    
83.             m_ODBC.Dispose(); m_ODBC = null;
    
84.             #endregion
    
85.         }
    

[CommandMethod("mTest")]<br />         public void m_Test()<br />         {<br />             Editor m_ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />             string m_FilePath = @"d:\TestExcel.xls";<br /> <br />             #region 利用ADO.net操作Excel数据<br />             string m_ExcelConnectStr = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = '" +<br />         m_FilePath + "';Extended Properties=Excel 8.0";<br />             OleDbConnection m_ODBC = new OleDbConnection(m_ExcelConnectStr);//连接Excel（如果给定文件不存在，自动创建新文件）<br />             string m_SheetName = "mkhSheet";<br /> <br />             #region 创建一个Excel表，并写入数据<br />             m_ODBC.Open();//打开数据库<br /> <br />             OleDbCommand m_ODBCMD = new OleDbCommand();<br />             m_ODBCMD.Connection = m_ODBC;<br />             string m_CMDStr = "";<br />             string[] m_TitleName = new string[] { "序号", "数据1", "数据2", "数据3", "数据4" };//表头（Excel表中第一行数据）<br />             string[] m_ValueType = new string[] { "numeric", "numeric", "numeric", "numeric", "numeric" };<br />             for (int i = 0; i < m_TitleName.GetLength(0); i++) m_CMDStr += m_TitleName【i】+ " " + m_ValueType【i】+ ",";<br />             m_CMDStr = "create table " + m_SheetName + " (" + m_CMDStr.Remove(m_CMDStr.Length - 1) + ")";<br />             m_ODBCMD.CommandText = m_CMDStr;//创建表<br />             try { m_ODBCMD.ExecuteNonQuery(); }//判断表是否已经存在？<br />             catch<br />             {<br />                 m_ODBCMD.CommandText = "drop table " + m_SheetName; m_ODBCMD.ExecuteNonQuery();//如存在，则先删除<br />                 m_ODBCMD.CommandText = m_CMDStr; m_ODBCMD.ExecuteNonQuery();//重新创建表<br />             }<br />             //向表中写入数据（增加记录）<br />             for (int i = 0; i < 6; i++)<br />             {<br />                 m_CMDStr = "insert into " + m_SheetName + " (" + m_TitleName[0] + "," + m_TitleName[1] + "," + m_TitleName[3] + ") values(";<br />                 m_CMDStr += i.ToString() + "," + (i + 1).ToString() + "," + (i + 2).ToString() + ")";<br />                 m_ODBCMD.CommandText = m_CMDStr;//指定SQL语句<br />                 m_ODBCMD.ExecuteNonQuery();//执行SQL语句，无返回值<br />             }<br />             //修改表中数据（修改记录）<br />             OleDbDataAdapter m_ODBDA = new OleDbDataAdapter("select * from [" + m_SheetName + "$]", m_ODBC);//读Excel文件的一个表<br />             DataSet m_DS = new DataSet();<br />             m_ODBDA.Fill(m_DS);//把表数据填入DataSet中<br />             System.Data.DataTable m_DT = m_DS.Tables[0];//获取表格所对应的DataTable对象 <br />             for (int i = 1; i < 6; i++)<br />             {<br />                 m_CMDStr = "update " + m_SheetName + " set " + m_TitleName[2] + "=";<br />                 m_CMDStr += ((Convert.ToDouble(m_DT.Rows[i - 1][1]) + Convert.ToDouble(m_DT.Rows[1])) * 3.0 / 2).ToString("0.00");<br />                 m_CMDStr += "," + m_TitleName[4] + "=";<br />                 m_CMDStr += ((Convert.ToDouble(m_DT.Rows[i - 1][3]) + Convert.ToDouble(m_DT.Rows[3])) * 3.0 / 2).ToString("0.00");<br />                 m_CMDStr += " where " + m_TitleName[0] + "=" + i.ToString();<br />                 m_ODBCMD.CommandText = m_CMDStr;//指定SQL语句<br />                 m_ODBCMD.ExecuteNonQuery();//执行SQL语句，无返回值<br />             }<br />             m_DT.Dispose(); m_DT = null;<br />             m_DS.Dispose(); m_DS = null;<br />             m_ODBDA.Dispose(); m_ODBDA = null; <br />             m_ODBCMD.Dispose(); m_ODBCMD = null;<br />             m_ODBC.Close();//关闭数据库 <br />             #endregion<br /> <br />             #region 从Excel表中读取数据<br />             m_ODBDA = new OleDbDataAdapter("select * from [" + m_SheetName + "$]", m_ODBC);//读Excel文件的一个表<br />             m_DS = new DataSet();<br />             m_ODBDA.Fill(m_DS);//把数据填入DataSet中<br />             m_DT = m_DS.Tables[0];//获取表格所对应的DataTable对象，这样才能进行相关的操作 <br /> <br />             string m_Str = "";<br />             for (int i = 0; i < m_DT.Columns.Count; i++) m_Str += m_DT.Columns.Caption.PadLeft(8,'-');<br />             m_ed.WriteMessage("{0}", m_Str);//显示表头（Excel工作表中第一行数据）<br /> <br />             for (int i = 0; i < m_DT.Rows.Count; i++)<br />             {<br />                 m_Str = "";<br />                 m_ed.WriteMessage("\n");<br />                 for (int j = 0; j < m_DT.Columns.Count; j++)<br />                     m_Str += m_DT.Rows[j].ToString().PadLeft(8,'-');<br />                 m_ed.WriteMessage("{0}", m_Str);//显示每行数据<br />             }<br />             m_DT.Dispose(); m_DT = null;<br />             m_DS.Dispose(); m_DS = null;<br />             m_ODBDA.Dispose(); m_ODBDA = null; <br />             #endregion<br /> <br />             m_ODBC.Dispose(); m_ODBC = null;<br />             #endregion<br />         }<br />

sh_h

我先留个脚印，以后慢慢学习！

gyl

每日一讲，赞一个！

cooolseee

好东西值得分享