Vb.net 将Excel数据导入Access数据库
我想像这样将数据从Excel导入Access,当我的Access数据库没有密码时它工作,但当它有密码时它不工作。 我从网上复制了这个代码 我必须将访问密码放在哪里Vb.net 将Excel数据导入Access数据库,vb.net,excel,ms-access,import,export,Vb.net,Excel,Ms Access,Import,Export,我想像这样将数据从Excel导入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="
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
通过快速搜索:
或
注意:这些未经测试。将
cmd.commandText
更改为:
cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & ";
PWD=frozbit].[tb_voucher2] SELECT * FROM [2hari$]"
请像使用我的密码一样使用您的db密码。我的密码是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()
Taka mala sugestia“C:\FWS\Database1.accdb,False,False”,MS访问;PWD=密码“)
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; User Id=admin; Password="
cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & ";
PWD=frozbit].[tb_voucher2] SELECT * FROM [2hari$]"
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()