vb 连接数据库, 添加过新记录后按更新出现 “无法插入空行 行必须至少有一个列值集”
界面中有个ADO控件,5个按钮分别是“添加、删除、上一条、下一条、更新”,4个文本框分别表示4个字段的值。设置好connectionstringrecordsourced...
界面中有个ADO 控件,5个按钮分别是“添加、删除、上一条、下一条、更新”,4个文本框分别表示4个字段的值。设置好connectionstring recordsource datasource datafield 之后在按钮上编写代码如下:
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '添加
Adodc1.Recordset.AddNew
Case 1 '删除
sc = MsgBox("真的要删除吗?", vbYesNo, "警告!")
If sc = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End If
Case 2 '上一条
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
Case 3 '下一条
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Case 4 '更新
Adodc1.Recordset.Update
End Select
End Sub
按添加键后文本框变空白,输入内容再按添加键文本框又变空白,再按更新键就出现“无法插入空行 行必须至少有一个列值集”这句话,怎么办哦 展开
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '添加
Adodc1.Recordset.AddNew
Case 1 '删除
sc = MsgBox("真的要删除吗?", vbYesNo, "警告!")
If sc = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End If
Case 2 '上一条
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
Case 3 '下一条
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Case 4 '更新
Adodc1.Recordset.Update
End Select
End Sub
按添加键后文本框变空白,输入内容再按添加键文本框又变空白,再按更新键就出现“无法插入空行 行必须至少有一个列值集”这句话,怎么办哦 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询