为什么在更新update中会出错？求高手指教！！！

Question

在此代码中：Private Sub Command2_Click()
 Dim cnn As New ADODB.Connection
 Dim rst As New ADODB.Recordset
If Text2.Text = "" Then
   MsgBox "请请输入学生ID！"
   Command2.Enabled = False
Else
   Command2.Enabled = True
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UserMessage.mdb"
    rst.Open "select * from studentelective", cnn, adOpenDynamic, adLockPessimistic
       rst.AddNew
       rst!studentID = Text2.Text
       rst!studentname = Text1.Text
       rst!coursename = Textname.Text
       rst!courseID = TextID.Text
       rst.Update
End If
End Sub为什么在点击“添加”按钮时，在更新update中会出错？告“实时错误”！
求高手指教！！！

Answer 1

说详细点，是实时错误多少呢后面有没有参数呀我猜一下吧，首先判断一下TEXT2，TEXT1，TEXTNAME，TEXTID有没有为空值的。
第二判断一下他们的长度是否超过了数据库中所设置的字段的长度。
第三判断一下他们的字段类型是否匹配。
第四是不是数据库中还有其他的字段，该字段不允许为NULL值，而你在这儿没有给他付值？

Answer 2

应该是数据类型的冲突！！！我建议你用SQL语句，简单些，速度快些！

Answer 3

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UserMessage.mdb"
换成："Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path (\UserMessage.mdb)

Answer 4

建议直接用SQL语句，出现你这种错误一般是你的数据跟表的结构和约束有冲突

Answer 5

有一种可能是：字段不允许是“”（0长度的字符串）
使用MS Access MDB是经常出现这样的问题。
因为text1,text2,这些控件的TEXT不会出现NULL.
例如：studentname可以是"A","ABC",NULL,但是就是不能是""。如果是这样的话有两种方式解决：
1：修改字段的属性，使它可以接受""
2: text1.text -> iif(text1.text="",null,text1.text)

Answer 6

表的结构为：字段名称     数据类型 StudentID     文本   必填字段（不能为空）
StudentName   文本   必填字段（不能为空）
CourseName    文本   必填字段（不能为空）
CourseID      文本   必填字段（不能为空）
ElectiveScore 数字

Answer 7

to :zymfy(梦小凡) 实时错误后面参数是：‘-2147217887（80040e21）'

Answer 8

to:XMLWeb(零蛋)
为什么按你说的把：
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UserMessage.mdb"换成 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data_ Source='" & App.Path("\UserMessage.mdb") & "';"
之后运行出现：
            编译错误；（错误的参数或无效的属性赋值）

Answer 9

出现"Run time-Error"-2147217887(80040e21) Errors occurred" 的错误提示?

Answer 10

To: zymfy(梦小凡) 
在修改之后现在又在运行时出显：          编译错误;
              错误的参数或无效的属性赋值