关于前端数据覆盖到数据库的问题

咩咩神

实际想法 我把前端的数据做完了 需要把前端的指定工作表内容完全复制并覆盖到后端的excel相同名称的工作表,应该如何操作  已经卡了2天了
        macro1模块第一次使用时没问题,第二次使用需要手工打开"备份上传"工作簿再保存关闭,否则报错,而且会打开一个只读的"数据"工作簿
        ss模块因为我想把备份上传放在局域网的共享文件夹内,所以Jet.Oledb.4.0不支持xlsm(数据库格式是xlsm,里面涉及到打开工作表就清空空白行),用下面的方法又会报错 求教

1. Sub Macro1()
   
2. 
   
3. 
   
4. 
   
5. ''''macro1模块第一次使用时没问题,第二次使用需要手工打开"备份上传"工作簿再保存关闭,否则报错,而且会打开一个只读的"数据"工作簿
   
6.     Dim cnn As Object, SQL$
   
7.     Set cnn = CreateObject("ADODB.Connection")
   
8.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.Path & "\备份上传.xls"
   
9.     SQL = "update [长大王订单池$] set 订单号=null,业务员=null,品名=null,客户名首字缩写=null"
   
10.     cnn.Execute SQL
    
11.     SQL = "insert into [长大王订单池$] select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[长大王订单池$]"
    
12.     cnn.Execute SQL
    
13.     MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. Sub ss()
    
18. '''ss模块因为我想把备份上传放在局域网的共享文件夹内,所以Jet.Oledb.4.0不支持xlsm(数据库格式是xlsm,里面涉及到打开工作表就清空空白行),用下面的方法又会报错 求教
    
19.     Set conn = CreateObject("ADODB.Connection")
    
20.     conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;extended properties=""excel 12.0;HDR=NO;IMEX=1"";Data Source=" & ThisWorkbook.Path & "\备份上传.xls"
    
21.      SQL = "update [长大王订单池$] set 订单号=null,业务员=null,品名=null,客户名首字缩写=null"
    
22.     conn.Execute SQL
    
23.     SQL = "insert into [长大王订单池$] select * from [Excel 8.0;Database=" & mypath & "].[长大王订单池$"
    
24.     conn.Execute SQL
    
25.     MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    
26.     conn.Close
    
27.     Set conn = Nothing
    
28. End Sub
    
29. ''''''实际想法 我把前端的数据做完了 需要把前端的指定工作表内容完全复制并覆盖到后端的excel相同名称的工作表,应该如何操作  已经卡了2天了
    

复制代码

咩咩神

1. Sub Macro1()
   
2. 
   
3. 
   
4. 
   
5. ''''macro1模块第一次使用时没问题,第二次使用需要手工打开"备份上传"工作簿再保存关闭,否则报错,而且会打开一个只读的"数据"工作簿
   
6.     Dim cnn As Object, SQL$
   
7.     Set cnn = CreateObject("ADODB.Connection")
   
8.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.Path & "\备份上传.xls"
   
9.     SQL = "update [长大王订单池$] set 订单号=null,业务员=null,品名=null,客户名首字缩写=null"
   
10.     cnn.Execute SQL
    
11.     SQL = "insert into [长大王订单池$] select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[长大王订单池$]"
    
12.     cnn.Execute SQL
    
13.     MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. Sub ss()
    
18. '''ss模块因为我想把备份上传放在局域网的共享文件夹内,所以Jet.Oledb.4.0不支持xlsm(数据库格式是xlsm,里面涉及到打开工作表就清空空白行),用下面的方法又会报错 求教
    
19.     Set conn = CreateObject("ADODB.Connection")
    
20.     conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;extended properties=""excel 12.0;HDR=NO;IMEX=1"";Data Source=" & ThisWorkbook.Path & "\备份上传.xls"
    
21.      SQL = "update [长大王订单池$] set 订单号=null,业务员=null,品名=null,客户名首字缩写=null"
    
22.     conn.Execute SQL
    
23.     SQL = "insert into [长大王订单池$] select * from [Excel 8.0;Database=" & mypath & "].[长大王订单池$"
    
24.     conn.Execute SQL
    
25.     MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    
26.     conn.Close
    
27.     Set conn = Nothing
    
28. End Sub
    
29. ''''''实际想法 我把前端的数据做完了 需要把前端的指定工作表内容完全复制并覆盖到后端的excel相同名称的工作表,应该如何操作  已经卡了2天了
    

复制代码

咩咩神

有人没 求助啊

咩咩神

来个老师帮忙指导一下吧  非常感谢

魂断蓝桥

咩咩神 发表于 2018-8-30 16:04
来个老师帮忙指导一下吧  非常感谢

覆盖是什么意思？

如果你指删除再新增，ado对excel 做不到删除数据，只能是更新。

局域网共享excel 就是个坑，尽量别用。用access就好。

咩咩神

魂断蓝桥 发表于 2018-8-30 16:24
覆盖是什么意思？

如果你指删除再新增，ado对excel 做不到删除数据，只能是更新。

老师  是的 我想要达到删除完了再新增  
用ACCSEE 我只会用插入  不会删除了再新增

魂断蓝桥

咩咩神 发表于 2018-8-30 16:58
老师  是的 我想要达到删除完了再新增  
用ACCSEE 我只会用插入  不会删除了再新增

开启事物
DELETE FROM 表名称
执行sql语句
INSERT INTO 表名称 (字段名称) VALUES(值1，值2)
执行sql语句
提交事务

咩咩神

魂断蓝桥 发表于 2018-8-31 08:44
开启事物
DELETE FROM 表名称
执行sql语句

老师 我看论坛里好多都说处理事务 我在百度上搜索也没有很明白的解释
事务是个什么概念呢?
INSERT INTO 表名称 (字段名称) VALUES(值1，值2)
以上的插入命令必须要有字段名和值吗
可以缺省字段名和值 直接insert into 表名称 插入整张表吗?

魂断蓝桥

咩咩神 发表于 2018-8-31 09:01
老师 我看论坛里好多都说处理事务 我在百度上搜索也没有很明白的解释
事务是个什么概念呢?
INSERT INT ...

⑴ 原子性（Atomicity）
⑵ 一致性（Consistency）
⑶ 隔离性（Isolation）
⑷ 持久性（Durability）

  事务最主要的功能就是要不全部插入成功，要不全部不成功，例子，你去银行汇款的时候，对数据库来说是两个语句，一个是需要把你的钱减少一部分，另一个人增加一部分，如果没有事物的话，你的钱是减少后，但突然断电了，或者系统死机了，另一个人的钱并没有增加上，这样肯定不行的，所以就有了事务的概念。

至于缺省的话，也是可以不写字段名的，但一般不建议这样做，写全比较好。（因为有主键的关系，一般都是自增长），你插入一列数据有可能不是全部字段都有值，因为数据库有个缺省值的概念。
举个例子，数据库字段中有一个字段是最后日期，含义是最后新增的或修改后的日期，这个有默认值，取系统的时间，这个字段是不需要你手动输入的，如果你不写字段就需要自己写值，更麻烦的。

咩咩神

魂断蓝桥 发表于 2018-8-31 09:28
⑴ 原子性（Atomicity）
⑵ 一致性（Consistency）
⑶ 隔离性（Isolation）

老师 事务的概念我懂了 ado开启事务与关闭事务的语句是什么呢?我应该朝哪个方向可以学习呢?
希望老师不吝赐教