期末实践 - 设计报告 - 选题版(3)

2019-04-23 13:31

textBox5.Text + \ OleDbDataAdapter myadapter = new OleDbDataAdapter(SQLString, conn); myadapter.Fill(ds); MessageBox.Show(\添加成功!\ } 9, 删除数据 private void 删除数据_Click(object sender, EventArgs e) { DeleteExcel(textBox1.Text, System.Windows.Forms.Application.StartupPath + \野外记录.xls\ } //**************************************删除excel指定行函数 ********************************************* public static void DeleteExcel(string searchword, string filefullPath) { //******** kill excel ***** System.Diagnostics.Process[] myPs; myPs = System.Diagnostics.Process.GetProcesses(); foreach (System.Diagnostics.Process p in myPs) { if (p.ProcessName.ToUpper() == \ { try { p.Kill(); } catch (Exception) { } } } //******** kill excel ***** string filename = filefullPath; //MessageBox.Show(filename); string strKeyWord = searchword; object oText = strKeyWord.Trim().ToUpper(); //****************读取excel************ Microsoft.Office.Interop.Excel.Application excelapp = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel._Workbook workBook = null; Microsoft.Office.Interop.Excel._Worksheet workSheet = null; Microsoft.Office.Interop.Excel.Range rng01 = null; object missing = System.Reflection.Missing.Value; object MissingValue = System.Reflection.Missing.Value; // 打开Excel文件 workBook = excelapp.Workbooks.Open(filename, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing); // excelapp.Visible = true; // Excel应用程序可见 // 针对Excel文档中的第一个Sheet就行操作。Sheet的下标从1开始 workSheet = (Microsoft.Office.Interop.Excel._Worksheet)workBook.Sheets[1]; workSheet.Activate(); 开Excel看到的是Sheet[1] //Microsoft.Office.Interop.Excel.Worksheet ews; int iEWSCnt = workBook.Worksheets.Count; int i = 0, j = 0; Microsoft.Office.Interop.Excel.Range oRange; // Sheet[1]处于激活状态,即打 //object oText = strKeyWord.Trim().ToUpper(); // for (i = 1; i <= iEWSCnt; i++) // { //workSheet = null; //workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Worksheets[i]; oRange = null; oRange = ((Microsoft.Office.Interop.Excel.Range)workSheet.UsedRange).Find(oText, MissingValue, MissingValue, MissingValue, MissingValue, Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext, MissingValue, MissingValue, MissingValue); if (oRange != null && oRange.Cells.Rows.Count >= 1 && oRange.Cells.Columns.Count >= 1) { //MessageBox.Show(\文档中包含指定的关键字!\\搜索结果\ //MessageBox.Show(Convert.ToString(oRange.Row)); //获取编辑范围 oRange = (Microsoft.Office.Interop.Excel.Range)workSheet.Rows[oRange.Row, Missing.Value]; //删除整行 oRange.EntireRow.Delete(Microsoft.Office.Interop.Excel.XlDeleteShiftDirection.xlShiftUp); //保存编辑 workBook.Save(); workBook.Close(Missing.Value, Missing.Value, Missing.Value); //退出excel application,可以将前面的excelApp.Visible = false改为excelApp.Visible = true看看; excelapp.Workbooks.Close(); excelapp.Quit(); //******** kill excel ***** // System.Diagnostics.Process[] myPs; myPs = System.Diagnostics.Process.GetProcesses(); foreach (System.Diagnostics.Process p in myPs) { if (p.ProcessName.ToUpper() == \ { try { p.Kill(); } catch (Exception) { } } } //******** kill excel ***** //MessageBox.Show(\删除成功\ // MessageBox.Show(\ // break; }//of if else { foreach (System.Diagnostics.Process p in myPs) { if (p.ProcessName.ToUpper() == \ { try { p.Kill(); } catch (Exception) { } } } MessageBox.Show(\没发现您要删除的内容\ excelapp.Workbooks.Close(); excelapp.Quit(); } //**************************************删除excel指定行函数 ********************************************* foreach (System.Diagnostics.Process p in myPs) { if (p.ProcessName.ToUpper() == \ { try { p.Kill(); } catch (Exception) { } } } //excelapp.Workbooks.Close(); //excelapp.Quit();


期末实践 - 设计报告 - 选题版(3).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:2013 最新测量学试题及详细答案 - 2013

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: