Execute Non Query() Msg Box("Transaction Recorded.") txtmem_id.
:) the error was gone the problem is in my database where I set the borrower column to number instead of text that's why it displays an error datatype mismatch..
every time a member borrow a book he must return it in 3 days.
About the Fine when a member borrow a book and exceeds it's due date a fine of 10pesos per day will be collected.
Execute Non Query() 0 Then Msg Box("Successfully deleted") Cleartext Boxes() End If End If con. Text = "" End Sub 'ADD BTN CLICKED Private Sub add Btn_Click(sender As Object, e As Event Args) Handles add Btn. Text Update LV(name) End Sub Private Sub List View1_Mouse Click(sender As Object, e As Mouse Event Args) Handles List View1.
Text = team End Sub Private Sub delete Btn_Click(sender As Object, e As Event Args) Handles delete Btn.
Message) End Try End Sub End Class Bro can I ask one more thing? I just want to capture some data from the borrower like his name which is in the members table and update the books table with his name as borrower. and what if i input a wrong id which is not existing how will i display that the record was not found? i have see it, and here is what i suggest : first, if i were you, i will create 2 form with table on it to hold member list and book list.In this tutorial that’s what we see, how to INSERT, SELECT, UPDATE and DELETE data to and from MS Access database with VB. For instance, mine was located at : C:/Users/Sedan/Documents/Data Bases/people Add("Team", 150) End Sub Public Sub Add() 'SQL STMT Dim SQL As String = "INSERT INTO people TB(N, P, T) VALUES(@PNAME,@POSITION,@TEAM)" cmd = New Ole Db Command(SQL, con) 'ADD PARAMETERS cmd. Click Retrieve() End Sub Private Sub update Btn_Click(sender As Object, e As Event Args) Handles update Btn. Close() Retrieve() Catch ex As Exception Msg Box(ex. Close() End Try End Sub Private Sub Cleartext Boxes() name Txt. Click Add() End Sub Private Sub retrieve Btn_Click(sender As Object, e As Event Args) Handles retrieve Btn.