通过ado和text往数据库中添加记录,
Dim rs As ADODB.Recordset
txtsql = "select * from " & datayear & ""
Set rs = ExecuteSQL(txtsql)
rs.AddNew
rs.Fields(0) = Trim(cbostation.Text)
rs.Fields(1) = txtyear.Text
rs.Fields(2) = cbomonth.Text
rs.Fields(3) = cboday.Text
rs.Fields(4) = txtpresure.Text
rs.Fields(5) = txtmaxtemp.Text
当text的值为空时,程序出错,数据库表的字段的“必填字段”属性已经为“否”,怎样解决这一问题?
多谢了!
rs.Fields(5) = IIf(IsNull(txtmaxtemp.Text)," ", txtmaxtemp.Text)
IIf(IsNull(txtmaxtemp.Text)," ", txtmaxtemp.Text)
这句 高
如果为数字的你就:
IIf(IsNull(txtmaxtemp.Text),val(""), val(trim(txtmaxtemp.Text)))