如何在VB中更新数据库记录的值

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，这样就可以保证数据的唯一性。

VB Access数据库的修改

Private Sub Command1_Click（) '借书'

Dim jc As Boolean

jc = False

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.RecordCount

If Text1.Text = Adodc1.Recordset.Fields(1).Value And Adodc1.Recordset.Fields(4).Value = True Then

Adodc1.Recordset.Fields(4).Value = Not Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = True

End If

Adodc1.Recordset.MoveNext

手机在线人工冲值

说明:我不知道这个系统还能用到什么地方!他的运作方式是这样的,客户在其他地方比如掏宝购买了 你得卡,然后在你的网站进行冲值,你得有人登陆并看着后台,如果有人冲值,就会刷出记录,手工冲值完毕后,你得点击 [冲值完毕],客户的页面 就会返回 冲值信息!安装:上传所有文件,倒入(sql.txt)mysql数据库,使用myphpadminphplib 777phplib/sys.php 777phplib

下载

Next i

If jc Then MsgBox ＂借出成功＂ Else MsgBox ＂图书已借出或图书不存在＂

End Sub

Private Sub Command2_Click（) '还书'

Dim hs As Boolean

hs = False

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.RecordCount

If Text1.Text = Adodc1.Recordset.Fields(1).Value And Adodc1.Recordset.Fields(4).Value = False Then

Adodc1.Recordset.Fields(4).Value = Not Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = True

End If

Adodc1.Recordset.MoveNext

Next i

If jc Then MsgBox ＂归还成功＂ Else MsgBox ＂图书已在库或图书不存在＂

End Sub

Private Sub Form_Load()

Text1.Text = ＂＂

Adodc1.Visible = False

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\mybook.mdb;Persist Security Info =false＂

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = ＂select * from 图书＂

Adodc1.Refresh

End Sub