A HOME AWAY FROM HOME FOR ICT STUDENTS

HELLO GUYS .IS VB.NET KIND OF PROVING DIFFICULT TO YAH.TRY OUT THIS IN YAH CODES AND JUST COPY AND PASTE THIS CODE TO YAH FORMS BUT REMEMBER TO MAKE ADJUST MENTS WHERE NECESSARY THAT IS ACCORDING TO YAH FORM DESIGN.IF ALL DOES NOT WORK CONTACT ME.IF IT ALL FAILS TO WORK OUT JUST SEE ME N AM GONNA CODE IT FOR YAH.IF YAH STILL NEED SOME COURSE WORK DONE FOR YAH JUST HOLLA ME AND COME WHILE YAH POCKET IS LOADED.ITS NOT EASY AS YOU MAY THINK BUT JUST TRY OUT THIS SIMPLIFIED CODES

Imports System.Data

Public Class Form1

Dim cb As New OleDb.OleDbCommandBuilder(da)

Dim inc As Integer

Dim MaxRows As Integer

Dim sql As String

Dim con As New OleDb.OleDbConnection

Dim ds As New DataSet

Dim da As OleDb.OleDbDataAdapter

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:Database.mdb"

con.Open()

sql = "SELECT * FROM Tablevb"

da = New OleDb.OleDbDataAdapter(sql, con)

da.Fill(ds, "AddressBook")

con.Close()

MaxRows = ds.Tables("AddressBook").Rows.Count

inc = -1

End Sub

Private Sub NavigateRecords()

txtFirstName.Text = ds.Tables("AddressBook").Rows(inc).Item(1)

txtSurname.Text = ds.Tables("AddressBook").Rows(inc).Item(2)

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

If inc <> MaxRows - 1 Then

inc = inc + 1

NavigateRecords()

Else

MsgBox("No More Rows")

End If

End Sub

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

If inc > 0 Then

inc = inc - 1

NavigateRecords()

ElseIf inc = -1 Then

MsgBox("No Records Yet")

ElseIf inc = 0 Then

MsgBox("First Record")

End If

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

If inc <> 0 Then

inc = 0

NavigateRecords()

End If
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

If inc <> MaxRows - 1 Then

inc = MaxRows - 1

NavigateRecords()

End If

End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

Dim cb As New OleDb.OleDbCommandBuilder(da)

ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text

ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text

da.Update(ds, "AddressBook")

MsgBox("Data updated")

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

btnSave.Enabled = False

btnAdd.Enabled = True

btnUpdate.Enabled = True

btnDelete.Enabled = True

inc = 0

NavigateRecords()

End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

btnSave.Enabled = True

btnAdd.Enabled = False

btnUpdate.Enabled = False

btnDelete.Enabled = False
txtFirstName.Clear()

txtSurname.Clear()

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

If inc <> -1 Then

Dim cb As New OleDb.OleDbCommandBuilder(da)

Dim dsNewRow As DataRow

dsNewRow = ds.Tables("AddressBook").NewRow()

dsNewRow.Item("FirstName") = txtFirstName.Text

dsNewRow.Item("Surname") = txtSurname.Text

ds.Tables("AddressBook").Rows.Add(dsNewRow)

da.Update(ds, "AddressBook")

MsgBox("New Record added to the Database")

btnSave.Enabled = False

btnAdd.Enabled = True

btnUpdate.Enabled = True

btnDelete.Enabled = True

End If

End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

If MessageBox.Show("Do you really want to Delete this Record?", "DELETE", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.No Then

MsgBox("Operation Cancelled")

Exit Sub

ds.Tables("AddressBook").Rows(inc).Delete()

MaxRows = MaxRows - 1
inc = 0

NavigateRecords()

da.Update(ds, "AddressBook")

End If

End Sub

End Class