大家帮忙看下我的VB代码,在DataGrid中修改的内容,在数据库中更新不了,谢谢了,在线等 20

PrivateSubCommand3_Click()DimrsAsNewADODB.RecordsetDimsqlAsStringDimanswerAsStringsql... Private Sub Command3_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim answer As String
sql = "select * from 维护管理信息"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
answer = MsgBox("确定要更新吗?", vbYesNo, "")
If answer = vbYes Then
MsgBox "更新成功!", vbOKOnly + vbExclamation, ""
Set DataGrid1.DataSource = Nothing
rs.Update
rs.Requery
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End Sub
展开
 我来答
FM网络
2012-05-07 · TA获得超过825个赞
知道小有建树答主
回答量:1130
采纳率:0%
帮助的人:963万
展开全部
在DataGrid中修改的内容,好象跟你上面代码没有关系呢。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2012-05-01 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5557万
展开全部
控制DataGrid1的AllowUpdate控件即可,何必搞这么罗嗦
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式