VB adodc修改数据库记录

你的查询语句写错了,数据库里面没有这样的记录,所以更新失败!你改为如下格式:

Adodc1RecordSource = "select from users where 用户名=' & username & '"

--------------------------------------------------------------------------------->>>>

Adodc1RecordSource = "select from users where 用户名='" & username & "'"

,还有如果你的用户名不存在,肯定会报错~确定是已经存在,最好是唯一的记录!不然你的数据会乱,通常更新语句都用ID,你用用户名~~

使用　rsmovenext可以移到rs的下一条记录

MoveFirst 移到第一条记录

MoveLast 移到最后一条记录

MoveNext 移到下一条记录

MovePrevious 移到上一条记录

只要可以进行输入文本的都可以

改一下这样吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1RecordsetAddNew

Data1RecordsetFields("username") = trim(inputbox("请输入名字"))

Data1Recordset("password") =val(trim(inputbox("请输入电话")))

Data1UpdateRecord

——————————————————————————————

Data1RecordsetAddNew

Data1RecordsetFields("username") = "张三|"

Data1Recordset("password") = "fsdfsd"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "李四|"

Data1Recordset("password") = "fsdf432d"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "王五|"

Data1Recordset("password") = "f42342d"

Data1UpdateRecord

MsgBox "adad"

帮你改了看可以吗？

有2种写法：

‘第一种

Dim conn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "Provider=MicrosoftJetOLEDB40;"

Str2 = "Data Source=d:\db1mdb;"

Str3 = "Jet OLEDB:Database Password="

connOpen Str1 & Str2 & Str3

strsql = "select from jieyong"

rsOpen strsql, conn, 3, 3

For i = 0 To rsFieldsCount - 1

if text1text = rsfields(i) then

rsdelete

rsmovenext

rsclose

else

msgbox("无该记录！")

end if

next

‘第二种

Dim conn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim strsql AS String

connConnectionString = "provider=MicrosoftjetOLEDB40;" & _

"Persist security info= False; Data Source=d:\db1mdb"

connOpen

strsql = "select from jieyong where 栏位名 = '%" & text1text & "%'"

rsOpen strsql, conn, 3, 3

If rsRecordCount <> 0 Then

rsdelete

rsmovenext

rsclose

else

msgbox("无该记录！")

end if

next

以上就是关于VB adodc修改数据库记录全部的内容，包括:VB adodc修改数据库记录、请问如何vb ado *** 作数据库，获取当前记录与下一记录。、vb 表格式数据库记录添加等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！