導入excel文件和MySQL數據庫保存

我有一個問題在我的數據庫上傳Excel文件...導入excel文件和MySQL數據庫保存

我要尋找一個代碼，使我的項目瀏覽Excel文件，然後保存所有數據在我的數據庫，並自動出現在我的數據網格視圖..

我一直在搜索代碼約兩天，我已經嘗試了其中的一些，但仍然沒有找到適合我的問題的代碼..

我試過這段代碼..但它沒有正常工作。

Dim conko As System.Data.OleDb.OleDbConnection 
Dim DtSet As System.Data.DataSet 
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter 

Try 
    Dim fBrowse As New OpenFileDialog 
    With fBrowse 
     .Filter = "Excel files(*.xls)|*.xls|All files (*.*)|*.*" 
     .FilterIndex = 1 
     .Title = "Import data from Excel file" 
    End With 
    If fBrowse.ShowDialog() = Windows.Forms.DialogResult.OK Then 
     Dim fname As String 
     fname = fBrowse.FileName 
     Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
      "Data Source= " & fname & ";" & " Extended Properties= ""Excel 8.0;HDR=NO;IMEX=1""" 
     Dim Connection As New System.Data.OleDb.OleDbConnection(ConnectionString) 
     Connection.Open() 

     Dim CollectionName As String = "Tables" 
     Dim dt As DataTable = Connection.GetSchema(CollectionName) 

     Dim TableRow As DataRow 
     For Each TableRow In dt.Rows 
      If TableRow.Item("userlog").ToString.IndexOf("$") = TableRow.Item("userlog").ToString.Length - 1 Then 
       Console.WriteLine(TableRow.Item("userlog").ToString) 
      End If 
     Next 

     Connection.Close() 

    End If 
Catch ex As Exception 
    MsgBox(ex.Message) 
End Try

來源

2014-02-11 schyneia

導入excel文件和MySQL數據庫保存

回答

相關問題