博客园_yqy542006

项目中用到Excel上传到Sql数据库

2010-10-12T03:18:00Z

项目中经常会用到Excel上传到数据库中的功能或者读取一个Excel在GridView中显示出来的情况。

基本原理就是获取Excel的连接，读取Excel的数据到DataSet。根据DataSet的结果来显示内容或者把DataSet的结果更新到数据库中。

以下就贴出代码并加上简单的注释。

Imports System.Data
Imports System.Data.SqlClient '连接SQLSERVER数据库
Imports System.Data.OleDb '连接Excel工作表

Partial Class Default_Excel
Inherits System.Web.UI.Page

Protected Sub btnImport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnImport.Click
        Dim fup As FileUpload
        Dim strPath As String = ""
        Dim i As Integer = 0
        Dim dataTable As New DataTable

'获取上传控件

fup = Me.form1.FindControl("FileUpload1")
strPath = fup.PostedFile.FileName

If strPath = "" Then
            Response.Write(" <script> alert( '请先选择正确的Excel文件导入！ ') </script> ")
            Response.End()
        End If

'定义Excel连接字符串
        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & "; Extended Properties=Excel 8.0;"
        Try
            Dim oleDbConnection As OleDbConnection = New OleDbConnection(sConnectionString)
            oleDbConnection.Open()
            '获取excel表
            dataTable = oleDbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

'获取sheet名，其中(0)(1)...(N): 按名称排列的表单元素
'固定是读取一个工作表

Dim tableName As String = dataTable.Rows(0)(2).ToString().Trim()
tableName = "[" & tableName.Replace(" ' ", " ") & "]"

'以下SELECT 中的字段名要和Excel工作表中的一致

Dim query As String = "SELECT 字段名1,字段名2, 字段名3,字段名4,字段名5 FROM " & tableName
            Dim dataset As DataSet = New DataSet()
            Dim oleAdapter As OleDbDataAdapter = New OleDbDataAdapter(query, sConnectionString)
            oleAdapter.Fill(dataset, "Rwb")

'连接SQLSERVER数据库

Dim sqlcon As New SqlConnection(SqlOpe.ConnStr)
            sqlcon.Open()
            '从excel文件获得数据后，插入记录到SQL Server的数据表
            Dim dataTable1 As DataTable = New DataTable()

'以下字段名是数据库中表中的字段名称
            Dim sqlDA1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("SELECT YEARS, PERIOD, WERKS, MATNR, BISMT,VERSION , REQQTY FROM ProdS_ForeCast WHERE 1<>1 ", sqlcon)
            Dim sqlCB1 As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(sqlDA1)
            sqlDA1.Fill(dataTable1)

Dim dataRow11 As DataRow
            For Each dataRow11 In dataset.Tables("Rwb").Rows
                'sql里数据dataRow1
                Dim dataRow1 As DataRow = dataTable1.NewRow()
                dataRow1("YEARS") = dataRow11("字段名1")
                dataRow1("PERIOD") = dataRow11("字段名2")
                dataRow1("WERKS") = dataRow11("字段名3")
                dataRow1("MATNR") = dataRow11("字段名4")
                dataRow1("BISMT") = dataRow11("字段名5")
                dataTable1.Rows.Add(dataRow1)
            Next
            Response.Write(" <script> alert( '一共导入 " & dataset.Tables("Rwb").Rows.Count.ToString() & " 条记录 ') </script> ")
            sqlDA1.Update(dataTable1)
            oleDbConnection.Close()
        Catch ex As Exception
            Console.WriteLine(ex.ToString())
        End Try
    End Sub

End Class

如果需要在GridView中显示将DataSet的结果绑定到GridView的DataSource就可以了

本文链接

转载：房贷的两种还款方式介绍

2009-04-20T02:24:00Z

众所周知，银行住房贷款的分期付款方式分为等额本息付款和等额本金方式付款两种方式。两种付款方式的月付款额各不相同，计算方式也不一样。网上分别有着两种还款方式的计算公式。然而，对于这两个公式的来源却很少有解释，或者解释是粗略的或错误的。本人经过一段时间的思考，终于整明白了其中的原理，并且运用高中数学理论推导出了这两个计算公式。本文将从原理上解释一下着两种还款方式的原理及计算公式的推导过程。无论哪...

RFC访问SAP(C#)

2009-03-30T07:11:00Z

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Text;using System.Windows.Forms;using SAPFunctionsOCX;using SAPLogonCtrl;u...

VB.net连接SAP实例(vb.net写法)

2009-03-30T06:52:00Z

上一篇简单写了vb6.0中访问SAP，本篇用vb.net实现同样的功能，只是把读取出来的内容存放在数据库中，然后利用GridView显示出来。当然可以直接存入DataTable或DataSet中直接显示出来。以下见代码示例：Imports SystemImports System.Collections.GenericImports System.ComponentModelImports S...

VB.net连接SAP实例

2009-03-30T06:40:00Z

最近在研究vb连接SAP的例子，终于可以正常登录SAP通过RFC读取SAP中的数据。下面是具体的代码：vb6.0写法：'定义公共变量Public Connect As ObjectPublic Functions As Object'登录SAPPrivate Sub Command1_Click() '创建ocx对象 Set Functions = CreateObject("Sap.Funct...

Winform 树型菜单例子

2008-12-29T07:18:00Z

核心代码：Imports System.Data.SqlClientPublic Class Form1 Inherits System.Windows.Forms.Form Private ds As New DataSet() ' AddTree递归函数每次都要用到数据集中的一个表，所以定义成private#Region " Windows 窗体设计器生成的代码 " Public Sub Ne...

介绍： MRP和MPS

2008-12-02T08:12:00Z

MPS:主生产计划的对象是产成品或关键零部件。主生产计划的目的是降低库存（包括在制品）成本和提高计划的稳定性。在下列情况下，主生产计划是必须的： 为了确保物料不出现短缺，输入了不同的缓冲时间和安全库存，这不可避免导致了高库存水平。因此尤其对于高价值的物料会出现高仓储成本。 这些物料的主计划极大地影响成个生产流程：相关组件的计划依赖于产成品或关键零部件的计划结果，即使各产品之间的所有物料很少相同...

收藏： SQLServer的存储结构

2008-12-02T07:06:00Z

今天同事问了我一个SQL的问题，关于SQL Server内部存储结构的，我觉得挺有意思，所以写下这篇博客讨论并归纳了一下。问题是这样的：首先我们创建两张表，一张表的列长度是4039字节，另一张表的长度是4040字节，他们就只有一个字节的差距，比如以下创建表的SQL：CREATETABLEtb4039(c1INTIDENTITY,c2char(4035)notnull)CREATETABLEtb40...

转载: 正则表达式介绍

2008-12-02T07:04:00Z

转载自： http://www.regexlab.com/zh/regref.htm引言正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如表达式“ab+” 描述的特征是“一个 'a' 和任意个 'b' ”，那么 '...

.net 连接ORACLE 数据库的例子

2008-08-04T02:22:00Z

利用 System.Data.OracleClient.Dll 的组件进行连接：首先配置WebConfig 文件；<connectionStrings> <add name="oracleconn" connectionString="Data Source="";User ID=ryq;Password=123456" providerName="System.Data.Ora...