1006 authors

[chilli]

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'load

OleDbDataAdapter1.Fill(DataSet11)
Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'next


Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c
Me.BindingContext(DataSet11, "authors").Position = Me.BindingContext(DataSet11, "authors").Position + 1

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'previous

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c

Me.BindingContext(DataSet11, "authors").Position = Me.BindingContext(DataSet11, "authors").Position - 1
End Sub

Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
'first


Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c

Me.BindingContext(DataSet11, "authors").Position = 0
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'last

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c

Me.BindingContext(DataSet11, "authors").Position = Me.BindingContext(DataSet11, "authors").Count - 1
End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'goto

If TextBox4.Text = 0 Or TextBox4.Text > Me.BindingContext(DataSet11, "authors").Count Then
MsgBox("RECORD NOT FOUND")
Exit Sub
Else
Dim a, b, c As Integer
Me.BindingContext(DataSet11, "authors").Position = TextBox4.Text
a = 1
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = TextBox4.Text
Label5.Text = c
Me.BindingContext(DataSet11, "authors").Position = TextBox4.Text
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'update

Me.BindingContext(DataSet11, "authors").EndCurrentEdit()
Me.OleDbDataAdapter1.Update(DataSet11)
MsgBox("Record Successfully Updated")
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'insert

Me.BindingContext(DataSet11, "authors").AddNew()
MsgBox("Insert Record Now")

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
'delete

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingContext(DataSet11, "authors").Position
c = Me.BindingContext(DataSet11, "authors").Count
Label4.Text = a + b
Label5.Text = c
Me.BindingContext(DataSet11, "authors").RemoveAt(Me.BindingContext(DataSet1 1, "authors").Position)
Me.OleDbDataAdapter1.Update(DataSet11)
MsgBox("Record Successfully Deleted")
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'combobox
ComboBox1.DataSource = DataSet11.Authors


End Sub