在VB中如何对SQL中的数据进行增删改

查询Sql=“select

*

from

数据表

where

字段名=字段值

order

by

字段名[desc]”

Sql=“select

*

from

数据表

where

字段名

like

‘%字段值%’

order

by

字段名[desc]”

Sql=“select

top

10

*

from

数据表

where

字段名

order

by

字段名[desc]”

Sql=“select

*

from

数据表

where

字段名

in

(‘值1’，‘值2’，‘值3’）”

Sql=“select

*

from

数据表

where

字段名

between值1

and

值2

可以利用DELETE语句，将表格中的记录删除

Sql=“delete

from

数据表

where

条件表达式”

DELETE语句

Sql=“delete

from

数据表”（将数据表所有记录删除）

例：将职员表格中姓名叫做‘李’的记录删除

DELETE * FROM 职员表格

WHERE 姓名='李'

更新数据记录

Sql=“update

数据表

set

字段名=字段值

where

条件表达式”

Sql=“update

数据表

set

字段1=值1，字段2=值2……字段n=值n

where

条件表达式”

添加数据记录

Sql=“insert

into

数据表

（字段1，字段2….)

values（值1，值2….）”

Sql=“insert

into

目标数据表

select

*

from

源数据表”（把源数据表的记录添加到目标数据表）

INSERT INTO语句

新建一条数据到表格当中

例：从训练人员表中，将职员雇用时间超过30天者，加入到正式职员表中。

INSERT INTO 职员表

SELECT 训练人员表.*

FROM 训练人员表

WHERE 雇用天数>30；

您所说的要求,其实不是删除,而是叫更新,就是把一批记录中的某些字段值全部更新为空值,请注意两者的区别.

在你的代码上改的话如下

Adodc1.RecordSource = "Select 开机时间1,关机时间1,状态1 From 星期1"

Adodc1.Refresh

'If Adodc1.Recordset.EOF = False Then

do while Adodc1.Recordset.EOF = False

'Adodc1.Recordset.Delete '删除原来记录

Adodc1.Recordset.Fields("开机时间1")=Text1(2).Text

Adodc1.Recordset.Fields("关机时间1")=Text1(3).Text

Adodc1.Recordset.Fields("状态1")="关 闭"

Adodc1.Recordset.Update

loop

Adodc1.Refresh

'End If

'Adodc1.Recordset.AddNew '添加新记录

'Adodc1.Recordset("开机时间1") = Text1(2).Text

'Adodc1.Recordset("关机时间1") = Text1(3).Text

'Adodc1.Recordset("状态1") = "关 闭"

'Adodc1.Recordset.Update '更新数据

这是修改数据的 *** 作方法呀

用sql语句的删除命令：delete from （表名） where （条件）

举例如下：（最好系统学一下，因为不知道你用的什么方法进行vb *** 作）

（我为推荐一本书，电大的计算机大专计算机信息方向的《VB程序设计》刘世峰编，通学习你一切都通了）

Private Sub Command1_Click()

'定义字符

Dim strSQL As String

'定义一个整型变量

Dim i As Integer

i = MSHFlexGrid1.Row

'处理无记录行

If MSHFlexGrid1.TextMatrix(i, 1) = "" Then

MsgBox "请选择一个记录！", vbQuestion + vbOKOnly, "信息提示"

Exit Sub

End If

'编定SQ查询语句

strSQL = "Delete From 通讯簿 "

strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"

'提示用户要谨慎删除

If MsgBox("是否要删除，请慎重！", vbQuestion + vbOKCancel, "信息提示") = vbOK Then

'执行删除命令

ADOcn.Execute strSQL

End If

DisplayGrid1

End Sub

---