Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何让值显示为Null

1楼
zpsun2003 发表于:2024/11/20 11:23:00
老师,我用这个代码:
cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values('" & xh2 & "','" & cj3 & "','" & .Rows(i)("参数名称") & "' ,'" & .Rows(i)("配置") & "','"& .Rows(i)("尺寸名称") &"','"& .Rows(i)("最终数值") &"','"& th &"')"
向数据库里写值,赋完值后,发现尺寸参数方案库这个表中“【配置】”本来有空的、有不空的,但这样赋值空的显示的不是(Null),后面查询空值时就没法用“[配置] is Null”。
怎么能赋值时空的就赋值为(Null)?

2楼
linyunu 发表于:2024/11/20 11:55:00
& IIf(.Rows(i)("配置")>"",.Rows(i)("配置"),Nothing) &

也可查询 "[配置]> ''"
3楼
有点蓝 发表于:2024/11/20 11:56:00
方法1、改为参数化:http://www.foxtable.com/webhelp/topics/3266.htm (建议)
2、
cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values('" & xh2 & "','" & cj3 & "','" & .Rows(i)("参数名称") & "' ," & IIF(.Rows(i).isnull("配置"),"NULL","'" & .Rows(i)("配置") & "'") & ",'"& .Rows(i)("尺寸名称") &"','"& .Rows(i)("最终数值") &"','"& th &"')"
4楼
zpsun2003 发表于:2024/11/21 14:46:00
老师,有2个问题:
1 改为参数化之后,赋空值的格式怎么写:
'With Tables("tb4_尺寸信息")
    'For i As Integer = 0 To ccxxhs-1
        'xh2 = xh2+1
        'cj3 = cj4 & "." & i+1
        'cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values(?,?,?,?,?,?,?)"
        'cmd.Parameters.Add("@序号",xh2)
        'cmd.Parameters.Add("@层级",cj3)
        'cmd.Parameters.Add("@参数名称",iif(.Rows(i).Isnull("参数名称"),"Null",.Rows(i)("参数名称")))
        'cmd.Parameters.Add("@配置",iif(.Rows(i).Isnull("配置"),"Null",.Rows(i)("配置")))
        'cmd.Parameters.Add("@尺寸名称",iif(.Rows(i).Isnull("尺寸名称"),"Null",.Rows(i)("尺寸名称")))
        'cmd.Parameters.Add("@数值",iif(.Rows(i).Isnull("最终数值"),"Null",.Rows(i)("最终数值")))
        'cmd.Parameters.Add("@备注",th)
        'cmd.ExecuteNonQuery
    'Next
'End With
按照上面写,在单元格里赋值的就是NULL这4个字符。
2 按照上面改为参数化的方式后,能赋值第一行,第二行就报错:
调用的目标发生了异常。
已添加了具有相同键的项。
5楼
有点蓝 发表于:2024/11/21 15:03:00
……
        cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values(?,?,?,?,?,?,?)"
cmd.Parameters.clear
        cmd.Parameters.Add("@序号",xh2)
        cmd.Parameters.Add("@层级",cj3)
        cmd.Parameters.Add("@参数名称",iif(.Rows(i).Isnull("参数名称"),nothing,.Rows(i)("参数名称")))
……
6楼
zpsun2003 发表于:2024/11/21 16:40:00
非常感谢老师,可以了
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04199 s, 2 queries.