在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；

'连接数据库，先要用引用ADO组件

dim cnn as new Adodb.Connection

cnn.open (这里面属性若干，有数据库路径以及表名称，百度一下即可)

dim sql as string 

'添加数据

sql = "inser into 表 (姓名,学号，所选科目) values('ycc',1795,'信息管理')"

cnn.execute sql

'删除数据

sql = "delete from 表 where 表_id = 123456"

cnn.execute sql

'断开

cnn.close

set cnn=nothing

在添加记录时rsTable.Fields(0)='"&text1.text

你的什么地方写的这个语句.如果是在上面代码中那肯定错误,因为你的rsTable的查询语句是"delete from ..."不可能有记录集填充你的rsTable也就不能用rsTable.Fields(0)

"delete from Goods where GoodsID='" &Text1.Text &"'"

"delete from Goods where GoodsID=" &Text1.Text

如楼一所写

你的错误好明显.还是补出来.

照你的那样写Text1.Text和Text2.text在语句并不能得到文本框的值,而是这两个字符串.

在你用GoodsID字段时由于是数值型要把Text1.Text(你语句给的值)转化为数值型int(后台进行)而出那样的错误."

---