当前位置: 代码迷 >> SQL >> VB操作SQL Server(3)——数据删除(删)
  详细解决方案

VB操作SQL Server(3)——数据删除(删)

热度:29   发布时间:2016-05-05 14:13:41.0
VB操作SQL Server(三)——数据删除(删)

前面我们已经说过了数据录入,今天我们就来说一下——数据删除


通过VB删除数据时,不仅可以使用SQL语句中的Delete语句来实现,也可以使用ADO控件Delete方法来删除数据。


1.使用ADO控件Delete方法删除数据

使用ADO控件Delete方法删除数据时,被删除的数据信息表面上是被删除了,实质上数据还存在与内存中,这时还需要使用ADO控件的Update方法才能够将数据彻底地删除


例:删除表中的指定记录:

Adodc1.Recordset.DeleteAdodc1.Recordset.Update

例:通过ADO控件Delete方法删除表中指定的数据:

PrivateSub Form_Load()  Adodc1.ConnectionString="Provider=SQLOLEDB;Persist SecurityInfo=True;User ID=sa;Initail Catalog=student;Data Source=."  Adodc1.Commandtype=adCmdText  Adodc.Recordsource="select * fromstudent_info"  Set DataGrid1.DataSource=Adodc1End SubPrivateSub Command1_Click()  Adodc1.Recordset.Delete  If Msgbox("确认删除指定数据吗?",vbYesNo,"提示")=vbYesthen     Adodc1.Recordset.Refresh  End IfEnd Sub


2.执行Delete语句进行数据删除

使用Delete语句删除数据,不仅可以删除指定的一条或多条语句,也可以将数据表中的数据全部删除


例:在VB中执行Delete语句删除表student中的全部数据

Cnn.Execute"deletefrom student"

可以在Delete语句后使用where来限定条件,将条件符合的数据删除


例:删除表student中年龄大于25岁的数据

Cnn.Execute "delete from student where 年龄>'25'"


3.删除列中的数据

无论是通过ADO控件Delete方法还是delete语句删除数据,都是将一行或多行数据全部删除,如果表中一些行的数据需要保留某些列中的信息,那么使用ADO控件Delete方法或Delete语句都是比较麻烦的。

对于删除表中的数据,可以采取数据的方式实现,即将删除列中的数据直接更新为Null


例:通过ADO控件Update方法删除表中列的数据

PrivateSub Command1_Click()  Adodc1.Recordset.Update 1.NullEnd Sub




熟练地应用数据删除的方法,为学习带来更多的便捷。


后续的博客中会继续贴出《数据修改》《数据查询》等,敬请期待……




9楼lishehe昨天 21:29
呵呵,挺好的,嘿嘿
Re: linlin80230619昨天 21:37
回复lishehen[e04]
8楼shehun1前天 08:06
学习
Re: linlin80230619前天 11:18
回复shehun1n共同学习,共同进步~
7楼liutengteng130前天 08:05
加油啊,呵呵。期待ing
Re: linlin80230619前天 08:05
回复liutengteng130n努力努力~哈哈~
6楼xqf309前天 07:39
[e01]
Re: linlin80230619前天 08:05
回复xqf309n[e04]
5楼liujiahan629629前天 22:08
这种总结,我也想着呢!嘿嘿,换个角度总结不错!
Re: linlin80230619前天 00:01
回复liujiahan629629n等你总结完了,正好咱俩也能互相完善一下~
4楼lzh1110前天 20:36
有进步!知道思考了!
Re: linlin80230619前天 20:37
回复lzh1110n让你说得好像我以前没有脑子一样。。。
3楼kanglix1an前天 19:38
小胖妞加油哈
Re: linlin80230619前天 20:21
回复kanglix1ann大胖妞,你也要加油哦~
2楼hejingyuan6前天 15:34
加油呀
Re: linlin80230619前天 15:34
回复hejingyuan6n一起加油~
1楼lfmilaoshi3天前 11:54
深入浅出,厉害呀。。。米老师
Re: linlin802306193天前 11:56
回复lfmilaoshin嘿嘿,谢谢米老师夸奖~
  相关解决方案