| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3269302
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi.net (bds2005,2006)中导入excel
软件技术
吕向阳 发表于 2009/11/3 23:07:41 |
| procedure TWebForm2.Button4_Click(sender: System.object; e: System.EventArgs);varstrx, strExcel, strconn: string;conn: OleDbConnection;mycommand: OleDbDataAdapter;dt: datatable;i: integer;xkh: bkh;akhpay: bkhpay;beginstrConn := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/aaa.xls;Extended Properties=Excel 8.0;';conn := OleDbConnection.Create(strConn);conn.Open();strExcel := '';myCommand := nil;strExcel := 'select * from [Sheet3$]';// OleDbDataAdapter("select * from [Sheet1$]",cnnxls);myCommand := OleDbDataAdapter.Create(strExcel, strConn);dt := DataTable.Create;myCommand.Fill(dt);tryif (dt.Rows.Count > 0) thenbeginfor i := 1 to dt.Rows.Count - 1 dobeginstrx := dt.Rows[i].ItemArray[2].ToString();if strx.trim <> '' thenbeginxkh := bkh.Create(fecospace);xkh.name := strx;xkh.paperid := dt.Rows[i].ItemArray[1].ToString();end;akhpay := bkhpay.Create(fecospace);tryif dt.Rows[i].ItemArray[3].ToString().Trim <> '' thenakhpay.sj := convert.ToDateTime(dt.Rows[i].ItemArray[3].ToString());exceptakhpay.sj := convert.ToDateTime('1900-01-01');end;akhpay.content := dt.Rows[i].ItemArray[4].ToString().Trim;akhpay.bkh := xkh;fecospace.UpdateDatabase;end; //循环结束conn.Close();end;exceptend;end; |
|
|