24)Write a VB program to accept the details of book, store those details into the database and delete the particular record of given book id. (Use InputBox).

Option Explicit

Dim C As New Connection
Dim R As New Recordset
Dim S As String
Private Sub cmdAdd_Click()
txtBno.Text = ""
txtBname.Text = ""
txtAuthor.Text = ""
txtPrice.Text = ""
txtBno.SetFocus
End Sub
Private Sub cmdDelete_Click()
Dim id
id = InputBox("Enter Book number")
R.Close
S = "delete from tblBook where (bno=" & id & ")"
R.Open S, C, adOpenDynamic, adLockOptimistic
S = "Select * From tblBook"
R.Open S, C, adOpenDynamic, adLockOptimistic
If Not R.BOF And Not R.EOF Then
R.MoveFirst
txtBno.Text = R.Fields(0).Value
txtBname.Text = R.Fields(1).Value
txtAuthor.Text = R.Fields(2).Value
txtPrice.Text = R.Fields(3).Value
End If
MsgBox "Book Deleted Successfully!", vbInformation, "Book"
End Sub
Private Sub cmdNext_Click()
R.MoveNext
If Not R.EOF Then
txtBno.Text = R.Fields(0).Value
txtBname.Text = R.Fields(1).Value
txtAuthor.Text = R.Fields(2).Value
txtPrice.Text = R.Fields(3).Value
Else
MsgBox "No More Records!", vbInformation, "Book"
End If
End Sub

Private Sub cmdSave_Click()
R.Close
S = "Insert Into tblBook Values(" & Val(txtBno.Text) & ",'" & txtBname.Text & "','" & txtAuthor.Text & "', " & Val(txtPrice.Text) & ")"
R.Open S, C, adOpenDynamic, adLockOptimistic
S = "Select * From tblBook"
R.Open S, C, adOpenDynamic, adLockOptimistic
If Not R.BOF And Not R.EOF Then
R.MoveFirst
txtBno.Text = R.Fields(0).Value
txtBname.Text = R.Fields(1).Value
txtAuthor.Text = R.Fields(2).Value
txtPrice.Text = R.Fields(3).Value
End If
MsgBox "Book Added Successfully!", vbInformation, "Book"
End Sub
Private Sub Form_Load()
S = "Select * From tblBook"
C.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VBSlipSol\Slip24\Ques-2\book.mdb;Persist Security Info=False"
R.Open S, C, adOpenDynamic, adLockOptimistic
If Not R.BOF And Not R.EOF Then
R.MoveFirst
txtBno.Text = R.Fields(0).Value
txtBname.Text = R.Fields(1).Value
txtAuthor.Text = R.Fields(2).Value
txtPrice.Text = R.Fields(3).Value
End If
End Sub


---