UC知道vb数据库的某条信息修改，查询
来源：百度知道 编辑：UC知道 时间：2024/06/17 17:21:55
我用的一个if 语句进行查询 ，并且想对它进行修改，但是一直提示的错误信息是“在对应所需名称或叙述中，未找到项目” 请问该怎么对这个进行更改勒，才能达到我的目的！！谢谢！！
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 = cn1
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
End If
If rs1("借出情况") = "未借出" Then
rs1!借出情况 = "已借出"
rs1!借阅人 = Trim(Text1)
rs1!借阅时间 = Date
rs1.Update
end if
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 = cn1
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
End If
If rs1("借出情况") = "未借出" Then
rs1!借出情况 = "已借出"
rs1!借阅人 = Trim(Text1)
rs1!借阅时间 = Date
rs1.Update
end if
1，text1和text2是控件？可以直接用text1和text2调用？不需要用text1.text和text2.text?
2、“在对应所需名称或叙述中，未找到项目”一般都是数据库字段错误，你检查一下你的UPDATE字段和数据库字段是否一致
3、rs1!借出情况= 这样的方式我没用过，但前面你用的是rs1("借出情况")的这种方式啊！