


下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、usingSystem;usingSystem.Data;usingSystem.Data.OleDb;usingSystem.IO;usingSystem.Windows.Forms;usingGemBox.ExcelLite;namespaceWindowsFormsApplication5publicpartialclassForm1:FormpublicSystem.Data.DataTablebiao=newSystem.Data.DataTable();publicDataViewdv=newDataView();publicSystem.Data.DataTabletemp=ne
2、wSystem.Data.DataTable();publicForm1()InitializeComponent();shuchu();dataGridViewl.DataSource=biao;/將表biao中的數(shù)據(jù)傳遞給datagridview顯示。this.dataGridViewl.Columns編號.Frozen=true;publicvoidshuchu()/System.Data.OleDb.OleDbConnectionobjConn=newSystem.Data.OleDb.OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;D
3、ataSource=excell.xls;ExtendedProperties=Excel8.0;);System.Data.OleDb.OleDbConnectionobjConn=newSystem.Data.OleDb.OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;DataSource=.excell.xls;ExtendedProperties=Excel8.0;);DataSetds=newDataSet();stringTJ=SELECT*FROMmyRange1$;OleDbDataAdapterda=newOleDbDataA
4、dapter(TJ,objConn);tryda.Fill(ds);catch(Exceptionex)MessageBox.Show(ex.Message);objConn.Close();return;biao=ds.Tables0;/將excel表中的數(shù)據(jù)讀入到內(nèi)存表biao中,以備后用。objConn.Close();/連接并打開數(shù)據(jù)庫,將數(shù)據(jù)導(dǎo)入內(nèi)存表biao中,myRangw1為excel中工作表名。biao做查詢使用。privatevoidbutton1_Click(objectsender,EventArgse)ExcelFileexcelFile=newExcelFile()
5、;ExcelWorksheetsheet=excelFile.Worksheets.Add(Users);/定義個表sheet然后添加字段名users?intcolumns=dataGridView1.Columns.Count;/列數(shù)introws=dataGridView1.Rows.Count;/行數(shù)for(intj=0;jcolumns;j+)sheet.Cells0,j.Value=dataGridView1.Columnsj.HeaderText;/添加第一行數(shù)據(jù),應(yīng)該是添加字段名吧。for(inti=1;irows;i+)for(intj=0;jcolumns;j+)sheet.
6、Cellsi,j.Value=dataGridView1j,i-1.Value.ToString().Trim()/;/從第二行開始添加數(shù)據(jù)excelFile.SaveXls(./Users.xls);/保存為excel表MessageBox.Show(生成成功”);privatevoidbutton2_Click(objectsender,EventArgse)SaveFileDialogsaveFileDialog=newSaveFileDialog();saveFileDialog.Filter=Execlfiles(*.xls)|*.xls;saveFileDialog.FilterI
7、ndex=0;saveFileDialog.RestoreDirectory=true;saveFileDialog.CreatePrompt=true;/saveFileDialog.Title=導(dǎo)出Excel文件到;DateTimenow=DateTime.Now;saveFileDialog.FileName=now.Year.ToString().PadLeft(2)+now.Month.ToString().PadLeft(2,0)+now.Day.ToString().PadLeft(2,0)+-+now.Hour.ToString().PadLeft(2,0)+now.Minut
8、e.ToString().PadLeft(2,0)+now.Second.ToString().PadLeft(2,0);saveFileDialog.ShowDialog();StreammyStream;myStream=saveFileDialog.OpenFile();StreamWritersw=newStreamWriter(myStream,System.Text.Encoding.GetEncoding(gb2312);stringstr=;try/寫標(biāo)題for(inti=0;i0)str+=t;str+=dataGridView1.Columnsi.HeaderText;sw.WriteLine(str);/寫內(nèi)容for(intj=0;jdataGridView1.Rows.Count;j+)stringtempStr=;for(intk=0;k0)tempStr+=t;tempStr+=dataGridView1.Rowsj.Cellsk.Value.ToString();sw.WriteLine(tempStr);sw.Close();myStream.Close();MessageBox.Show(”
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 中國煤炭地質(zhì)總局第二勘探局招聘考試真題2024
- 遂寧市市屬事業(yè)單位招聘工作人員考試真題2024
- 吉安縣教育體育局工作人員招聘考試真題2024
- 一夜的工作讀后感集合(15篇)
- 青少年暑假活動方案(4篇)
- 警察局交通安全管理預(yù)案
- 2025年數(shù)字化教材在智能教育市場中的用戶需求調(diào)研
- 房產(chǎn)買賣合同退房協(xié)議書
- 不履行合同處罰的通知函
- 怎么制定入股合同協(xié)議書
- 工程造價咨詢服務(wù)投標(biāo)方案(專家團(tuán)隊(duì)版-)
- 滬教版八年級化學(xué)(下冊)期末試卷及答案
- DL-T-1878-2018燃煤電廠儲煤場盤點(diǎn)導(dǎo)則
- 2024年廣東省中考生物+地理試卷(含答案)
- 小小科學(xué)家《物理》模擬試卷A(附答案)
- 工程結(jié)算單【范本模板】
- 3D打印教學(xué)演講(課堂PPT)
- T_CHES 18-2018 農(nóng)村飲水安全評價準(zhǔn)則
- 全自動立式制袋包裝機(jī)
- 籌建婚慶公司項(xiàng)目策劃書
- 靜脈留置針臨床操作規(guī)范標(biāo)準(zhǔn)PPT課件
評論
0/150
提交評論