VB怎么样修改数据库中记录的值

楼上的道友的方法中：

sSQL="update

table

set

field=20"

要改为：

sSQL="update

table

set

field1=20，...，field2=20

where

id=3"

但是如果你的数据库中没有记录3就会出错。

还有一种方法,用recordset来处理：

dim

cn

as

new

adodb.connection

dim

rs

as

new

adodb.recordset

rs.open

"select

*

from

数据库

where

id=3",adOpenDynamic,

adLockOptimistic,

-1

if

not

rs.eof

then

rs("你要修改的字段1")="具体值1"

...

rs("你要修改的字段n")="具体值n"

rs.update

end

if

rs.close

我在设计时一般都是这样，虽然麻烦些但基本不会出错，还有就是你在设计数据库时最好要加上一个ID，这样就可以保证数据的唯一性。

从你这个界面看应该有两种办法实现数据更改。你不提供别的有用信息，只能简单说一下了。

1、用 Data 数据控件连接数据库，直接对数据控件中的数据更新

data1.Recordset.Edit

data1.Recordset("性别")=IIF(Option1.Value=True,"男","女")

data1.Recordset("联系方式")=Trim(Text1)

data1.Recordset("邮编")=Trim(Text2)

data1.Recordset("地址")=Trim(Text3)

data1.RecordSet.Update

2、直接用SQL语句对数据进行更新

"Update 信息表 Set 性别='"+IIF(Option1.Value=True,"男","女")+"', 联系方式='"+Trim(Text1)+"', 邮编='"+Trim(Text2)+"', 地址=‘“+Trim(Text3)+"' WHERE 姓名=’XXX‘”

哎，估计我说复杂了，希望对你有帮助...

---