Question

VB Access数据库的修改

现有一个窗口，有一个text控件和两个按钮。一个数据库，里面有数据序号，书名，作者，出版社，状态。想要实现在text输入书名，点击按钮1若状态为在库则修改为不在。若状态为不在则提示已经借出。按钮二实现还书，功能相似。我是小白所以请直接给出代码，添加哪些adoc控件。如果可以运行则给分。

Answer 1

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
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