如何上传数据到SQL？

stvent

在附件工作表sheet1中，编写VBA，把D列至AH列，第4行开始至59行（第6至17行除外）范围内所有数据按顺序上传到SQL数据库地址 192.168.1.1,数据库名称是ProdReport，用户名是，sa,密码是abc123,表Bok_BK中，其中Bok_BK表结构字段分别是：日期、表名、06纸洞、09浆团、08透光点、13透气度高、14透气度低、28高COV  、晃动起皱 、29起毛、17断纸、10螺纹强/浅、30螺纹错位、03裂缝、07盐、31盘纸分切不彻底 、32严重损伤、33脏掉、34亮条痕 、35损伤、36气泡、37昆虫问题、38大卷损伤损耗、39卷芯问题、40黑点或者深颜色的点、41水滴印痕、11不透明度、12针眼、42杂质、43伸长率问题、44抗涨强度问题 、45两个接头、46油渍、47水份检测 、48出货抽检、20OTHER其它、49夹纸、50分切起皱、19纸机皱纹、51螺纹缺失、52定量高、53定量低、54走位、55复合纸病），如果在范围中遇到单元格为空值，即以0上传，另外，需要作上传前校检，SQL数据表BOK_BK中日期字段中存在与如D4至AH4区域的记录，请先删除表中的存在的记录，再执行完整上传

Yalishanda30

AI.........

stvent

Yalishanda30 发表于 2024-8-20 14:31
AI.........

不要相信AI，就以下这句就不对了
' 删除已有记录
    dateValue = ws.Range("D4").Value
    sql = "DELETE FROM Bok_BK WHERE 日期 = '" & dateValue & "'"
    conn.Execute sql

stvent

Yalishanda30

stvent 发表于 2024-8-20 15:33

把你的数据库BOK_BK建表代码导.sql文件传上来

stvent

Yalishanda30 发表于 2024-8-20 15:37
把你的数据库BOK_BK建表代码导.sql文件传上来

是这个吗？

-- ----------------------------
-- Table structure for Bob_BK
-- ----------------------------
IF EXISTS (SELECT * FROM sys.all_objects WHERE object_id = OBJECT_ID(N'[dbo].[Bob_BK]') AND type IN ('U'))
        DROP TABLE [dbo].[Bob_BK]
GO

CREATE TABLE [dbo].[Bob_BK] (
  [日期] date  NULL,
  [表名] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [06纸洞] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [09浆团] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [08透光点] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [13透气度高] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [14透气度低] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [28高COV  ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [Wrinkles晃动起皱 ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [29起毛] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [17断纸] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [10螺纹强/浅] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [30螺纹错位] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [03裂缝] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [07盐] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [31盘纸分切不彻底 ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [32严重损伤] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [33脏掉] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [34亮条痕 ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [35损伤] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [36气泡] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [37昆虫问题] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [38大卷损伤损耗] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [39卷芯问题] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [40黑点或者深颜色的点] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [41水滴印痕] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [11不透明度] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [12针眼] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [42杂质] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [43伸长率问题] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [44抗涨强度问题 ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [45两个接头] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [46油渍] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [47水份检测 ] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [48出货抽检] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [20其它] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [49夹纸] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [50分切起皱] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [19纸机皱纹] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [51螺纹缺失] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [52定量高] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [53定量低] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [54走位] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL,
  [55复合纸病] nvarchar(255) COLLATE Chinese_PRC_CI_AS  NULL
)
GO

ALTER TABLE [dbo].[Bob_BK] SET (LOCK_ESCALATION = TABLE)
GO

stvent

大兄弟人呢？

Yalishanda30

stvent 发表于 2024-8-20 17:10
大兄弟人呢？

我在自己的SQL服务器测试通过

Yalishanda30

stvent 发表于 2024-8-20 17:10
大兄弟人呢？

触发审核。。。。。。

Yalishanda30

stvent 发表于 2024-8-20 17:10
大兄弟人呢？

测试可以的，不过你有一些列名包含空格还是换行符，估计是个坑