vb6.0中 DataGrid删除当前选定行数据

已举报 回答
vb6.0中 DataGrid删除当前选定行数据
问在线客服
扫码问在线客服
  • 回答数

    6

  • 浏览数

    2,145

6个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
Private Sub MSHFGrid_Click()
MSHFGrid.Row = MSHFGrid.RowSel
End Sub

If MsgBox(你确定删除编号为:[ & MSHFGrid.Text & ] ?, vbQuestion + vbYesNo, 删除) = vbYes Then
Set ResDel = New ADODB.Recordset
ResDel.Open delete from UserInfo where UserId=' & MSHFGrid.Text & ', Conn, 1, 2
MsgBox 删除成功!, vbInformation, 成功
If ResDel.State 0 Then ResDel.Close
ResDel.Open select * from viewUserInfo, Conn, 1, 1
Set MSHFGrid.DataSource = ResDel
If ResDel.State 0 Then ResDel.Close
Set ResDel = Nothing
End If

还有什么不懂的 可以再问我
取消 评论

代码是这样的。

command1的click 事件中
text1.seltext=

就可以了,一按command1,text1中选中的部分就清空
取消 评论
If DataGrid1.ColIndex -1 Then
DataGrid1.Bookmark
End If
取消 评论
sqlserver:
truncate table 表名

ascess需要经过两步:
delete from 表名
alter table 表名 alter column 编号 counter(1,1)
取消 评论
思路

把写到DataGrid1数据 先建到一个零时表中
在从零时表写到DataGrid1中,选定行数据就在再零时表中删掉那行
在写到DataGrid1数据
取消 评论
复制表结构到新表,删除旧表,将新表重名为旧表名
select * into 新表名 from 旧表名
drop table 旧表名
alter table 新表名 rename 旧表名
取消 评论
ZOL问答 > 相机 > 其他分类 > vb6.0中 DataGrid删除当前选定行数据

热门数码相机排行

查看更多排行 >

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?