各位大虾,怎么样从客户端读取EXCEL数据,然后写到服务器中的数据库里啊,请各位救急.

解决方案 »

  1.   

    三. 程序设计的关键步骤  (1).为了方便,我们就把Excel文件假定在C盘的根目录,名称为test.xls。
      (2).为了读取Excel文件,我们必须了解一个名称空间(NameSpace)--System.Data.Oledb。System.Data.Oledb中有三个对象分别是OleDbConnection,OleDbCommand,OledbDataAdapter。我们就是通过他们来访问Excel文件的。  i> OleDbConnection对象主要是提供连接方式。
      ii> OleDbCommand对象提供对目标的具体操作方法。
      iii>OledbDataAdapter对象是对对象进行不同操作后的返回数据集。
      为了读取C盘的test.xls只要以下语句就可以完成:Dim myOleDbConnection As OleDbConnection = New 
       OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=c:\test.xls;" & _
       "Extended Properties=""Excel 8.0;""")
    Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * 
       FROM [Sheet1$]",myOleDbConnection) "如果你想读出Sheet2的内容
       ,把Sheet1$改成Sheet2$即可
    Dim myData As OledbDataAdapter= New 
       OledbDataAdapter(myOleDbCommand)   (3).读出Excel文件内容后,就要把他用DataGrid显示出来。为了显示,还要用另外一个名称空间--System.Data。他里面有个对象DataSet,他可以和DataGrid进行数据帮定,从而以DataGrid形式显示数据。而此时读出的数据集并不是以对象DataSet来表现的,这就需要进行转换,好在OledbDataAdapter对象提供了一个方法--Fill,可以完成转换。具体程序如下:Dim myDataset As New DataSet()
    myData.Fill(myDataset) 
    "完成从OledbDataAdapter对象到DataSet的转换
    DataGrid1.DataSource = myDataset.Tables(0).DefaultView
    DataGrid1.DataBind() "完成数据帮定,显示数据   四. 具体的源代码:<%@ Page Language="VB" %>
    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.Oledb" %> 
    <script language="VB" runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
    Dim myDataset As New DataSet()
    Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=c:\2.xls;" & _
    "Extended Properties=""Excel 8.0;""")
    Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]",myOleDbConnection)
    Dim myData As OledbDataAdapter= New OledbDataAdapter(myOleDbCommand)
    myData.Fill(myDataset)
    DataGrid1.DataSource = myDataset.Tables(0).DefaultView
    DataGrid1.DataBind()
    End Sub
    </script>
    <html>
    <head></head>
    <body>
    <asp:Label id="L1" runat="server">读取C盘根目录下的test.xls文件,并以DataGrid的形式显示出来</asp:label>
    <asp:DataGrid id=DataGrid1 runat="server"/>
    </body>
    </html>