导入excel文件并保存在mysql数据库中答案

【问题标题】：import excel file and save in mysql database导入excel文件并保存在mysql数据库中
【发布时间】：2014-02-11 07:34:47
【问题描述】：

在我的数据库中上传 excel 文件时遇到问题...

我正在寻找允许我的项目浏览 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

【问题讨论】：

标签： mysql excel vba