Question

vb里数据库，删除，修改语句

如何对datagrid里的数据进行删除，修改操作，
主要是对选中的数据进行操作，

Answer 1

这里建议改用adodb控件还有datagrid 控件结合来做比较简单一点，
第一 新建 一个datagrid1 控件还在adodc1控件
第二 让adodc1数据库连接好（这点会吧？） （adodcn属性中的记录源设置为 8...命令文本为 ：select *from 表名） 设定datagrid1的datasource 属性为 adodc1.
第三 设定你的每一个文本框（textbox）里的的datasource 属性为adodc1,datafield 就选择你想要在当前对应文本框里显示的相对应的字段，分别设好每个文本框
然后就大工告成啦！

再做一个删除按钮
代码如下，，很简单的
If Adodc1.Recordset.BOF = True Then
MsgBox "没有记录可以删除"
Exit Sub
End If
With Adodc1.Recordset
If Not .EOF And Not .BOF Then
If MsgBox("确认删除当前记录？", vbYesNo + vbQuestion) = vbYes Then
.Delete
.MoveNext
If .EOF Then .MoveNext
End If
End If
End With
Exit Sub
End Sub

你鼠标移动哪一条记录文本框里的内容就会改变成鼠标当前记录某个字段值了！，，
当然也可以不要，，不要就要做一个类似，下一条，上一条类似 的按钮了！
如果你要修改的话可以直接在里面修改数据
，因为数据与textbox是绑定的，所以每一个更改都会自动更新数据 ，当然也可以做一个按钮，，具体就不说啦

怎么样，是不是看起来简单多了？

Answer 2

删除可以参考如下
Call OpenConn
sql = "select * from xtyh where name='" & txtYHM.Text & "'"
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
rs.Delete
End If
Call CloseConn
然后把datagrid刷新一下

修改可以参考如下>
Call OpenConn
sql = "select * from khb where riqi = # " & DTPicker1.Value & "# and banzu = '" & Trim(Combo3(0).Text) & "' and jitai = '" & Trim(Combo3(2).Text) & "' and hyh = '" & Trim(Text1(0).Text) & "' and hsh = '" & Trim(Text1(1).Text) & "' and guige = '" & Trim(Combo1.Text) & "' and gongyi = '" & Trim(Combo2.Text) & "'and tss = " & Val(Text1(2).Text)
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
rs.MoveFirst

' --------------------------疵布信息----------------------
If IsNull(rs.Fields("cbriqi")) Then
MsgBox "疵布还未录入过，请按保存按钮", vbExclamation, "提示"
Else

rs.Fields("dhbz") = Val(Text4(0).Text)
rs.Fields("louyin") = Val(Text4(1).Text)
rs.Fields("tingchedang") = Val(Text4(2).Text)
rs.Fields("ylbj") = Val(Text4(3).Text)
rs.Fields("daotiao") = Val(Text4(4).Text)
rs.Fields("dase") = Val(Text4(5).Text)
rs.Fields("shuidian") = Val(Text4(6).Text)
rs.Fields("chuanse") = Val(Text4(7).Text)
rs.Fields("zhoutiao") = Val(Text4(8).Text)
rs.Fields("qita") = Val(Text4(9).Text)
rs.Fields("podong") = Val(Text4(10).Text)
rs.Fields("sjchanliang") = Val(Text4(11).Text)
rs.Fields("heji") = Val(Text4(12).Text)
rs.Fields("xnchanliang") = Val(Text4(13).Text)
rs.Fields("dingdanliang") = Val(Text4(14).Text)
rs.Fields("yesno") = Option1.Value
rs.Fields("cbriqi") = DTPicker2.Value
rs.Update
MsgBox "修改成功!", vbInformation, "提示"

End If

End If
Call CloseConn

Answer 3

把Datagrid的属性里的 可删除、可修改的复选框勾上就行了。