作者:江西理工大学-交通091班-李吉平 | 来源:互联网 | 2023-05-17 10:55
1.实时错误80040e2f解决方法是在数据库中把修改,在允许Null值后打钩即可,让其性质允许Null最开始这样修改是可以的,不过后来我发现为什么会出这个错了,与.Addnew有关,其
1.实时错误80040e2f
解决方法是在数据库中把修改,在允许Null值后打钩即可,让其性质允许Null
最开始这样修改是可以的,不过后来我发现为什么会出这个错了,与.Addnew有关,其实最初的想法应该是要在原数据上更新数据,所以并不是添加所有的数据,而是添加一部分,可是却加上了.Addnew,而这个.Addnew是添加了新的记录,这是需要完整数据的。
加.Addnew和不加.Addnew的区别:
添加新的记录则加.Add.new,而修改数据是需要在数据库的记录上直接修改,不是再添加一条新的记录,这样就不需要.Addnew了
用机房收费系统中的基本数据设定举个例子:
txtSQL = "select * from BasicData_Info where head='" & frmlogin.txtUserName.Text & "'"
Set mrc9 = executeSQL(txtSQL, MsgText)
mrc9.Fields(0) = Trim(txtRate.Text)
mrc9.Fields(1) = Trim(txtTmprate.Text)
mrc9.Fields(2) = Trim(txtUnittime.Text)
mrc9.Fields(3) = Trim(txtLeasttime.Text)
mrc9.Fields(4) = Trim(txtPreparetime.Text)
mrc9.Fields(5) = Trim(txtLimitcash.Text)
mrc9.Fields(6) = Trim(frmlogin.txtUserName.Text)
mrc9.Fields(7) = Date
mrc9.Fields(8) = Time
mrc9.Update
这样就直接在原数据的基础上修改了
txtSQL = "select * from BasicData_Info where head='" & frmlogin.txtUserName.Text & "'"
Set mrc9 = executeSQL(txtSQL, MsgText)
mrc9.AddNew
mrc9.Fields(0) = Trim(txtRate.Text)
mrc9.Fields(1) = Trim(txtTmprate.Text)
mrc9.Fields(2) = Trim(txtUnittime.Text)
mrc9.Fields(3) = Trim(txtLeasttime.Text)
mrc9.Fields(4) = Trim(txtPreparetime.Text)
mrc9.Fields(5) = Trim(txtLimitcash.Text)
mrc9.Fields(6) = Trim(frmlogin.txtUserName.Text)
mrc9.Fields(7) = Date
mrc9.Fields(8) = Time
mrc9.Update
这样的是在数据上又加了一天记录
2. 实时错误94
一种办法是在出错的那一行加上“ & ”” ”就好
例如:
3..错误30006
这是缺少一行代码:mrc.movenext
4.实时错误30015
这是因为在MSFlexGrid中未选定一行而出错,在属性中修改其属性即可