多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。
来源:百度知道 编辑:UC知道 时间:2024/07/02 17:01:48
Private Sub CmdEmployeeMngSave_Click()
On Error GoTo Err_CmdEmployeeMngSave_Click
XTong = False
'打开"职工表"表
Set rs = New ADODB.Recordset
StrTemp = "Select * From 职工表"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'提示有些文本框必须填写内容,否则提示信息
If IsNull(Me![职工编号]) Then
MsgBox "必填字段对应的文本框不能为空,请重新输入!", vbOKOnly, "系统警告"
MsgBox "必填字段的文本框有:职工编号", vbOKOnly, "提示"
Me![职工编号].SetFocus
Else
'如果"职工表"表为空,则XTong的值为False
If rs.RecordCount <= 0 Then
XTong = False
Else
'在"职工表"表查找是否存在与待保存的记录相同
rs.MoveFirst
For iTemp = 0 To rs.RecordCount - 1
If (rs("职工编号") = Me![职工编号]) Then
XTong = True
iTe
On Error GoTo Err_CmdEmployeeMngSave_Click
XTong = False
'打开"职工表"表
Set rs = New ADODB.Recordset
StrTemp = "Select * From 职工表"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'提示有些文本框必须填写内容,否则提示信息
If IsNull(Me![职工编号]) Then
MsgBox "必填字段对应的文本框不能为空,请重新输入!", vbOKOnly, "系统警告"
MsgBox "必填字段的文本框有:职工编号", vbOKOnly, "提示"
Me![职工编号].SetFocus
Else
'如果"职工表"表为空,则XTong的值为False
If rs.RecordCount <= 0 Then
XTong = False
Else
'在"职工表"表查找是否存在与待保存的记录相同
rs.MoveFirst
For iTemp = 0 To rs.RecordCount - 1
If (rs("职工编号") = Me![职工编号]) Then
XTong = True
iTe
出现这样的错误,一般是因为update进去的数据长度超过了数据库字段的长度或者是数据类型不匹配导致,请留意检查:
rs("name") = id
rs("Password") = hash
rs("Reg_date") = date() + time()
这段写入语句所针对的字段的类型和长度。从你说的情况来看,rs("name")所针对的name字段太短的可能最大。
设置问题可能
(300分)多步 OLE DB 操作产生错误
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成
100分求助!多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' 多步
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)语法错误(操作符丢失)?怎么回
ole db数据源在那里建立?
ODBC与OLE DB的区别
建站点中的OLE DB连接失败.
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4E)
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)