none
想请指点excel file convert 去 access.mdb 的代码。我是否missing了什么代码 RRS feed

  • 问题

  •  

    我正在篇写一个excel file convert 去 access.mdb 的代码。

    我遇到的问题是当我convert了excel 去 access.mdb 的database后我的 access database 出现了一下图问题。请指点感恩。

    Private Sub Access_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Access.Click
            Dim ds = New DataSet()
            Dim path = InputExcel.Text
            Dim con As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + path + ";Extended Properties='Excel 8.0;HDR=NO;IMEX=1;';"
            Using connection As OleDbConnection = New OleDbConnection(con)
                connection.Open()
                Dim sheets As DataTable = GetSchemaTable(con)
                For Each r As DataRow In sheets.Rows
                    Dim data As DataTable = New DataTable()
                    Dim query As String = "SELECT * FROM [" & r("TABLE_NAME").ToString() & "]"
                    Dim adapter = New OleDbDataAdapter(query, connection)
                    adapter.Fill(data)
                    ds.Tables.Add(data) 'table 1
                Next
            End Using

            Using saveFileDialog As SaveFileDialog = New SaveFileDialog()
                ''SaveFileDialog.InitialDirectory = "D:\TestFile2\"
                ''SaveFileDialog.Filter = " Access Database (*.mdb) | *.mdb | All Files (*.*) | *.*"

                With saveFileDialog
                    .Filter = "Access Database (*.mdb) | *.mdb | All Files (*.*) | *.*"
                    .FilterIndex = 1
                    .InitialDirectory = "D:\"
                    .Title = "Open Access Database"
                End With

                'Show the dialog
                If saveFileDialog.ShowDialog = DialogResult.OK Then
                    'If the Open button was clicked, then load the file name selected
                End If

                'Cleanup
                saveFileDialog.Dispose()
            End Using
        End Sub




    2020年3月5日 2:44

全部回复

  • Hi christing,

    根据我的搜索,请尝试以下的解决方案。

    1. 将数据库转换为.accdb文件格式。
    2. 确保你有足够的访问数据库的权限。
    3. 尝试修复你的数据库:

       4. 更新你的数据库的版本。

    希望以上方法可以帮助你解决问题.

    Best Regards,

    Xingyu Zhao


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    2020年3月5日 10:02
    版主
  • HI 

    Xingyu Zhao

    感谢你的回复我会尝试你给的解决方案。

    我想请教Xingyu Zhao too many fields defined 是因为excel columns 超過了  255。

    如果,要select 超过225 的excel columns 的话可以怎么edit 代码

    或是可否提供相关的网站。


    2020年3月6日 3:07
  • Hi christing,

    关于Excel列超过255的问题,我已在该帖子下给出了回复。

    你的原始问题得到解决了吗? 如果已经得到解决,请将正确的回答标记为答案。

    Best Regards,

    Xingyu Zhao



    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.


    2020年3月6日 9:53
    版主