谁能给我vb对sql数据库进行新增，删除，查询，修改的代码

连接数据库 直接用 sql语句就能进行了啊querysql1 = "select * from book1 where 档案号 like '%" &Text1.Text &"%'"rs.Open str, conn, adOpenDynamic, adLockPessimistic

conn.Execute str返回到是rs结果集addstr = "select * from book1 "

rs.Open str, conn, adOpenDynamic, adLockPessimistic

conn.Execute str

rs.AddNew

rs("id") = id

rs("name") = name

rs.Updateupdatestr = "update book1 set name='" &Text2.Text &"'where id= '" &idh &"'"

rs.Open str, conn, adOpenDynamic, adLockPessimistic

conn.Execute strdelstr = "Delete from book11 where id ='" &Label8.Caption &"'"

rs.Open str, conn, adOpenDynamic, adLockPessimistic

conn.Execute str

查询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；

---