将 Excel 数据导入 Access 数据库答案

【问题标题】：Import Excel data to Access database将 Excel 数据导入 Access 数据库
【发布时间】：2016-02-09 19:43:06
【问题描述】：

我想像这样将数据从 Excel 导入 Access，当我的 Access 数据库没有密码时它可以工作，但当它有密码时它不能工作。我从互联网上复制了这段代码。

Access 的密码应该放在哪里？

Dim Access As String = "C:\FWS\Database1.accdb"
Dim Excel As String = "C:\New folder\2h.xlsx"
' Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Excel & ";Extended Properties=Excel 8.0;"

Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Excel + ";Extended Properties=""Excel 12.0 Xml;HRD=NO"""


    Using conn As New OleDbConnection(connect)
        Using cmd As New OleDbCommand()
            cmd.Connection = conn
            cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & "].[Password=frozbit].[tb_voucher2] SELECT * FROM [2hari$]"
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            conn.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using

【问题讨论】：

Taka mala sugestia "C:\FWS\Database1.accdb, False, False, "MS Access;PWD=password")

标签： vb.net excel ms-access import export

【解决方案1】：

把cmd.commandText改成这样：

cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & ";
    PWD=frozbit].[tb_voucher2] SELECT * FROM [2hari$]"

【讨论】：

【解决方案2】：

快速搜索：

https://www.connectionstrings.com/access/

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Jet OLEDB:Database Password=MyDbPassword;"

http://www.sqlstrings.com/ms-access-connection-strings.htm

"Driver= {MicrosoftAccessDriver(*.mdb)}; DBQ=C:\App1\Your_Database_Name.mdb;Uid=Your_Username; Pwd=Your_Password;"

或者

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; User Id=admin; Password="

注意：这些未经测试。

【讨论】：

【解决方案3】：

请像我的代码一样使用您的数据库密码。我的密码是 123。

    Using cmd As New OleDbCommand()
    cmd.Connection = conn
    cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & ";PWD=**123**].[Sheet1] SELECT * FROM [Sheet1$]"
    If conn.State = ConnectionState.Open Then
       conn.Close()
    End If
    conn.Open()
    cmd.ExecuteNonQuery()
    MessageBox.Show("succussfully updated")
    Form4.Show()
    Me.Hide()

【讨论】：