写入数据库一直报错在字符串格式化过程中不转换所有参数
写入数据库：
arrayRet = Excel.ReadRange(objExcelWorkBook,"项目列表","A3:AF"&row2)
Excel.CloseExcel(objExcelWorkBook,True)
TracePrint(arrayRet)
For Each d In arrayRet
Dim ybsj = "2021-08"
Dim xmlx = "两重一实项目：重大项目"
Database.ExecuteSQL(g_db["sjk"] ,"insert into yc_zdxm (XMMC,XMLX,YBSJ) Values(%s,%s,%s)", {"args":[d[0],xmlx,ybsj]})
Database.ExecuteSQL(g_db["sjk"] ,"insert into yc_zdxm (TZZT,XMBM,JHZTZ,SFWZXM,XYLYWZ,NDJH,ZRDW,XMJD,SXBLQK,WCQK,TD,JJ,SB,QT,XXJD,SFYTP,SFYSP,TBND,TBYF,TBSJ) Values(%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s)", {"args":[d[1],d[2],d[3],d[4],d[5],d[6],d[7],d[8],d[9],d[10],d[11],d[12],d[13],d[14],d[15],d[16],d[17],d[18],d[19],d[20]]})
Database.ExecuteSQL(g_db["sjk"] ,"insert into yc_zdxm (SBDW,JDTBR,SBLXFS,LDQK,LDYY,SFRK,WRKYY,RKTZE,GJSCY,XJZZ,SFJG) Values(%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s)", {"args":[d[21],d[22],d[22],d[23],d[24],d[25],d[26],d[27],d[28],d[29],d[30],d[31]]})
Next
最新回复 (1)
-
果子哩 2021-9-172楼