将Excel数据导入到Access数据库

我想从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 

Answer 1

将cmd.commandText更改为如下所示：

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

Answer 2

从快速search：

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=" 

注：这些是未经testing的。

Answer 3

请使用你的数据库密码，像我的code.my密码是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()