UC知道vb数据修改
来源：百度知道 编辑：UC知道 时间：2024/06/11 07:10:47
Set cn1 = New ADODB.Connection
cn1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\book.mdb"
cn1.Open
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = cn
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
sql1 = "select * from 图书信息 where 图书编号='" & Trim(Text2) & "' "
rs1.Open sql
If rs1.EOF Then
MsgBox "没有你所输入的图书编号！请重新输入！"
Text2 = ""
Text2.SetFocus
Exit Sub
Else
rs.edit
rs!借出情况 = "已借出"
rs!借阅人 = Trim(Text1)
rs.Update
End If
但是rs 没有edit 这个 修改的方法，请问这个地方该怎么办勒？
cn1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\book.mdb"
cn1.Open
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = cn
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
sql1 = "select * from 图书信息 where 图书编号='" & Trim(Text2) & "' "
rs1.Open sql
If rs1.EOF Then
MsgBox "没有你所输入的图书编号！请重新输入！"
Text2 = ""
Text2.SetFocus
Exit Sub
Else
rs.edit
rs!借出情况 = "已借出"
rs!借阅人 = Trim(Text1)
rs.Update
End If
但是rs 没有edit 这个 修改的方法，请问这个地方该怎么办勒？
不用写rs.edit的，直接可以修改。看看我的一个例子：MDB中取唯一ID号。
Public Function Get_No() As Long
Dim aDB As New ADODB.Connection
Dim aR As New Recordset
Dim n As Long
aDB.Open CnnStr
aR.Open "yyno", aDB, adOpenDynamic, adLockOptimistic
aR.MoveFirst
n = aR!currno
aR!currno = n + 1
aR.Update
aR.Close
Set aR = Nothing
aDB.Close
Set aDB = Nothing
Get_No = n
End Function
先找出要操作的记录,再用下面的方法读出借出情况.
读某字段的值用
rs("字段名")
然后用个IF语句看看状态,
用以下方法改字段值
rs("字段名")="某值"
rs.update