如图需要一段导入数据库的代码，请大侠不吝赐教

WANT-T

代码小菜鸟 发表于 2023-5-17 07:57

日期时间格式提供一下

代码小菜鸟

WANT-T 发表于 2023-5-17 09:11
日期时间格式提供一下

都是短日期

WANT-T

代码小菜鸟 发表于 2023-5-17 09:15
都是短日期

所以，日期/时间的格式请提供一下

代码小菜鸟

WANT-T 发表于 2023-5-17 09:17
所以，日期/时间的格式请提供一下

这样的 2023-5-17

WANT-T

代码小菜鸟 发表于 2023-5-17 09:23
这样的 2023-5-17

使用ADO对象，OPEN你的access;
execute这个SQL试试：

1.    
   
2. SQL = "INSERT INTO 订单汇总表(采购编号,采购单号,下单日期,设备号,项目名称,图号代号,产品名称,规格型号,单位,单价,长度,数量,金额,供应商," & _
   
3.             "到货地,发票号,开票时间,付款金额,付款日期,付款申请单号,要求到货日期,实际入库日期,入库单号,摘要备注,送货详细地址) "
   
4. 
   
5.     SQL = SQL & "SELECT 采购编号,采购单号," & _
   
6.                 "CDATE(下单日期) AS 下单日期," & _
   
7.                 "设备号,项目名称,图号代号,产品名称,规格型号,单位," & _
   
8.                 "单价,长度,数量,金额," & _
   
9.                 "供应商," & _
   
10.                 "到货地," & _
    
11.                 "发票号," & _
    
12.                 "CDATE(开票时间) AS 开票时间," & _
    
13.                 "付款金额," & _
    
14.                 "CDATE(付款日期) AS 付款日期," & _
    
15.                 "付款申请单号," & _
    
16.                 "CDATE(要求到货日期) AS 要求到货日期," & _
    
17.                 "CDATE(实际入库日期) AS 实际入库日期," & _
    
18.                 "入库单号," & _
    
19.                 "摘要备注,送货详细地址 " & _
    
20.         "FROM [EXCEL 12.0;DataBase=" & ThisWorkbook.FullName & ";].[订单汇总查询$B7:Z]" & _
    
21.         "WHERE 采购编号<>''"
    

复制代码

风险描述：
由于您始终没有提供具体的access文件，也没有给出真实的数据，所以，以下代码虽然测试通过了，但使用过程中或将存在各种问题，请知悉！