execl工作表数据导入到加了密的ACCSEE数据库

w8899

execl工作表数据导入到加了密的ACCSEE数据库   office版本2010  ACCSEE2010   ACCSEE库密码：1234

yunfei2018

稍微修改下就行了，      123.zip (513.08 KB, 下载次数: 65)

2018-8-25 10:12 上传

点击文件名下载附件

w8899

yunfei2018 发表于 2018-8-25 10:12
稍微修改下就行了，

谢谢老师了，解决了，

w8899

yunfei2018 发表于 2018-8-25 10:12
稍微修改下就行了，

老师我想在请教一下，如果数据全部覆盖ACCSEE数据代码怎么写？就是不管相同不相同，用EXECL的数据覆盖ACCSEE数据，

yunfei2018

w8899 发表于 2018-8-25 15:59
老师我想在请教一下，如果数据全部覆盖ACCSEE数据代码怎么写？就是不管相同不相同，用EXECL的数据覆盖ACC ...

那就是说先清空数据库，再导入新的数据，是吧。

w8899

yunfei2018 发表于 2018-8-25 17:03
那就是说先清空数据库，再导入新的数据，是吧。

对对对对对对对  清空ACCSEE数据库

yunfei2018

w8899 发表于 2018-8-25 17:57
对对对对对对对  清空ACCSEE数据库

周末一直未上线，看到还未解决，，，
其实很简单，稍微修改下就行了，

1. Sub 将工作表数据自动导入ACCESS数据库()
   
2. '   引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset, SQL As String, strMsg As String
   
4.     Dim DatabaseFuPass As String: DatabaseFuPass = ThisWorkbook.Path & "\数据库.accdb"
   
5.     Const myPass As String = "1234"
   
6.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=" & myPass & ";Data Source=" & DatabaseFuPass
   
7.     ' 清除旧数据
   
8.     SQL = "delete * from 数据库"
   
9.     cnn.Execute SQL
   
10.     ' -----------
    
11.     SQL = "SELECT A.* FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[数据库$A1:X" & Sheets("数据库").Range("b" & Sheets("数据库").Rows.Count).End(xlUp).Row _
    
12.         & "] A LEFT JOIN (Select * From 数据库) D ON A.单号=D.单号  WHERE D.单号 IS NULL"
    
13.     rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
14.     ' 导入数据
    
15.     SQL = "INSERT INTO 数据库 " & SQL
    
16.     cnn.Execute SQL
    
17.     strMsg = rs.RecordCount & "条记录已添加到数据库！"
    
18. 
    
19.     MsgBox strMsg, vbInformation, "提示"
    
20.     rs.Close: cnn.Close
    
21.     Set rs = Nothing: Set cnn = Nothing
    
22. End Sub

复制代码

w8899

yunfei2018 发表于 2018-8-26 22:23
周末一直未上线，看到还未解决，，，
其实很简单，稍微修改下就行了，

密码都是1234为什么会提示密码无效，前面使用中还好好的

yunfei2018

w8899 发表于 2018-8-27 10:46
密码都是1234为什么会提示密码无效，前面使用中还好好的

用二楼的数据库档案就没问题，那是调整过的，

w8899

yunfei2018 发表于 2018-8-27 11:05
用二楼的数据库档案就没问题，那是调整过的，

老师，另外一个怎么处理？