更新数据库，发生的“标准表达式类型不匹配”。让人实在难以解决。
strSQL = "UPDATE Client_tbl_item SET "
......
strSQL &= "REF_no_equip= ' " & REF_no_Equip.Text & " ', "
strSQL &= "order_date= ' " & converttoDate(order_date.Text) & " ', "
strSQL &= "confirm_date= ' " & converttoDate(confirm_date.Text) & " ',
......
Public Function converttoDate(ByVal itemobject As Object) As Object '判断某字段为空，避免显示出错
Dim needdate As Date
If itemobject = " " Then
Return System.DBNull.Value
Else
needdate = CDate(itemobject)
Return needdate
End If
End Function
为什么当我order_date文本框里什么也不输入的时候，点击更新。
会出现“标准表达式中数据类型不匹配”
怎么处理。
[解决办法]
return DBNull.value时肯定会出错.
[解决办法]
你看看生成的sql就知道发生什么事了.
[解决办法]
日期不能为 ' ' 可以为 null
[解决办法]
处理输入字符串的时候
if itemobject= " " then
return itemobject = "null "
else
return itemobject = " ' " & itemobject & " ' "
end if
生成sql的时候
strSQL = "UPDATE Client_tbl_item SET "
......
strSQL &= "REF_no_equip= " & converttoDate(REF_no_Equip.Text) & ", "
//最主要的问题是sql只是一个字符串。你程序生成的sql当null的时候就变成： "columnname = ' " & dbnull.value & " ' " ， 正确的是 " columnname = null "。这是你出现错误的地方。
另外你没有必要把时间用cdate转换。还是那句话，sql是个字符串。你转了之后在生成sql的时候，又给你转回去了，所以这是没有必要的操作。
[解决办法]
根据错误找出问题.
[解决办法]
你把strSQL 生成的sql语句放到数据库里执行，不是通过程序执行，如果没有错，看你的程序，如果有错，你在数据库里调很容易发现哪里的错误
[解决办法]
顶一下，学习
[解决办法]
试看看:
If itemobject is null orElse itemobject.tostring = " " Then
Return " "
Else
needdate = CDate(itemobject)
Return needdate
End If
[解决办法]
这个问题挺奇怪的嘛
学习中。。。
