導入電子表格+數據操作並保存到數據庫

嗨我有一個要求導入電子表格 - 驗證數據並保存到數據庫。導入電子表格+數據操作並保存到數據庫

電子表格數據來自兩個來源。一個可以直接導入（我沒有這個問題）。在將數據保存到數據庫之前，必須處理來自第二個來源的電子表格中的數據。

我創建了一個網頁，上傳的XLS文件，然後進口數據表。數據表是gridview的數據源。然後我進行驗證並保存到數據庫。

此代碼適用於標準電子表格。我現在需要修改代碼，以便它可以處理任何類型的源電子表格。需要操縱

Unique ID Ref     PartName   New_SH Year ProductType Location Qty TopSeller 
IS-4564  XM3M_ZZ_001_001_1982 180 wiper motor S    Wiper Motor CD19   3 N

在上述示例中的參考文獻需要被操縱，從而在最後4位被轉移到YEAR柱和

實施例數據標準來源

Unique ID Ref  PartName   New_SH Year ProductType Location Qty TopSeller 
39564  SD9PP/SS Micra Water Pump N  2012 Cooling  CD19  12 Y

源Ref的第一部分直到第二個下劃線被修剪，下劃線被替換爲/ eg XM3M/ZZ。引用可以是4 + 2後綴到6 + 2後綴之間的任意值，但總是後跟_XXX_XXX_YYYY，其中X和Y是數字X不是必需的，YYYY是年份。

我的計劃是將電子表格導入到數據表中的溫度，並通過細胞的去通過該表逐行細胞並複製到另一個數據表進行任何改動neccesary後。然後這個第二個表格用作gridview的數據源。

這裏是我的代碼...

Protected Sub ReadExcelFile(filename As String, worksheet As String) 

Try 
' Fetch Data from Excel data is based on the following 
'Unique ID Ref   PartName  New_SH Year ProductType Location Qty TopSeller 
'IS-4564 XM3M_ZZ_001_001_1982 180 wiper motor  S  Wiper Motor CD19   3 N 
'35667  SD9PP/SS  Micra water pump N 2012 Cooling  CA4  14 Y 

Dim MyConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source='" & filename & "'; Extended Properties='Excel 8.0; HDR=Yes; IMEX=1'") 
Dim MyCommand As New OleDbDataAdapter("select * from [" & worksheet & "]", MyConnection) 
Dim dtPreview As New DataTable() 
Dim dtTemp As New DataTable() 


    'Place data in temp datatable 
    MyCommand.Fill(dtTemp) 

    'Go through tem[ datatable and transfer cell values to dtPreview 
    If dtTemp.Columns.Count < 9 Then 
    'We do not have enough columns 
    lb_Error.Text = "Spreadsheet does not contain enough columns 
    Exit Sub 

    Else 
    'We have at least 9 columns - we are only interested in the first 9 
    If dtTemp.Rows.Count > 0 Then 
     'we have at least one row 

     'Add Column Headers 
     For c = 0 To dtTemp.Columns.Count - 1 
     dtPreview.Columns.Add(dtTemp.Columns(c).ColumnName, dtTemp.Columns(c).DataType) 
     Next 

     'Add Row Data 
     Dim l As Integer = 0 
     For Each drTempRow As DataRow In dtTemp.Rows 


     Dim newRow As DataRow = dtPreview.NewRow() 

     'Unique ID 
     If Left(dtTemp.Rows(0).ToString, 3) = "IS-" Then 
      newRow(0) = Mid(dtTemp.Columns(0).ToString.ToUpper.Trim, 4, 8) 
     Else 
      newRow(0) = dtTemp.Columns(0).ToString.ToUpper.Trim 
     End If 

     'Ref 
     If Left(dtTemp.Rows(0).ToString, 3) = "IS-" Then 
      l = Len(dtTemp.Columns(1).ToString.Trim) 
      newRow(1) = Left(dtTemp.Columns(1).ToString.Replace("_", "/").ToUpper.Trim, l - 13) 
     Else 
      newRow(1) = dtTemp.Columns(1).ToString.ToUpper.Trim 
     End If 

     'Part Name 
     newRow(2) = dtTemp.Columns(2).ToString.ToUpper.Trim 

     'New/Secondhand 
     newRow(3) = dtTemp.Columns(3).ToString.ToUpper.Trim 

     'Year 
     If Left(dtTemp.Columns(0).ToString, 3) = "IS-" Then 
      newRow(4) = Right(dtTemp.Columns(0).ToString, 4) 
     Else 
      newRow(4) = dtTemp.Columns(4).ToString 
     End If 

     'Product Type 
     newRow(5) = dtTemp.Columns(5).ToString.ToUpper.Trim 

     'Location 
     newRow(6) = dtTemp.Columns(6).ToString.ToUpper.Trim 

     'Quantity in Stock 
     newRow(7) = dtTemp.Columns(7).ToString 

     'Top Seller 
     newRow(8) = dtTemp.Columns(8).ToString.ToUpper.Trim 

     dtPreview.Rows.Add(newRow) 

     newRow = Nothing 
     Next 

    End If 

    'Add additional columns 
    dtPreview.Columns.Add("RecdBy", GetType(System.Int16), Session("UserNo").ToString()) 

    If ddl_FileSource.SelectedValue.ToString() = "1" Then 
     dtPreview.Columns.Add("IntExt", GetType(System.Int16), "1") 
    Else 
     dtPreview.Columns.Add("IntExt", GetType(System.Int16), "0") 
    End If 

    dtTemp = Nothing 

End If 

'Bind DataTable to Gridview 
Session("dtgv") = dtPreview 
gv_StockData.DataSource = dtPreview 
gv_StockData.DataBind() 
MyConnection.Close() 

Catch msg As Exception 
lb_Error.Text = msg.Message 

End Try

末次

麻煩的是我得到錯誤....我是不是從右側的角度接近這一點？

來源

2012-09-18 Mych

排序...通過數據表中的每個單元循環中的代碼是有缺陷......將公佈今天晚些時候工作版本。

來源

2012-09-19 12:33:34 Mych

導入電子表格+數據操作並保存到數據庫

回答

相關問題