1006 authors

[chilli]

Private Sub Button5_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button5.Click
'load

OleDbDataAdapte r1.Fill(DataSet 11)
Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c

End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click
'next


Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c
Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Posi tion + 1

End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button3.Click
'previous

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c

Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Posi tion - 1
End Sub

Private Sub First_Click(ByV al sender As System.Object, ByVal e As System.EventArg s) Handles First.Click
'first


Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c

Me.BindingConte xt(DataSet11, "authors").Posi tion = 0
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button4.Click
'last

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c

Me.BindingConte xt(DataSet11, "authors").Posi tion = Me.BindingConte xt(DataSet11, "authors").Coun t - 1
End Sub

Private Sub Label4_Click(By Val sender As System.Object, ByVal e As System.EventArg s) Handles Label4.Click

End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
'goto

If TextBox4.Text = 0 Or TextBox4.Text > Me.BindingConte xt(DataSet11, "authors").Coun t Then
MsgBox("RECORD NOT FOUND")
Exit Sub
Else
Dim a, b, c As Integer
Me.BindingConte xt(DataSet11, "authors").Posi tion = TextBox4.Text
a = 1
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = TextBox4.Text
Label5.Text = c
Me.BindingConte xt(DataSet11, "authors").Posi tion = TextBox4.Text
End If
End Sub

Private Sub Button6_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button6.Click
'update

Me.BindingConte xt(DataSet11, "authors").EndC urrentEdit()
Me.OleDbDataAda pter1.Update(Da taSet11)
MsgBox("Record Successfully Updated")
End Sub

Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles TextBox1.TextCh anged

End Sub

Private Sub Button7_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button7.Click
'insert

Me.BindingConte xt(DataSet11, "authors").AddN ew()
MsgBox("Insert Record Now")

End Sub

Private Sub Button9_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button9.Click
'delete

Dim a, b, c As Integer
a = 1
Label4.Text = a
b = Me.BindingConte xt(DataSet11, "authors").Posi tion
c = Me.BindingConte xt(DataSet11, "authors").Coun t
Label4.Text = a + b
Label5.Text = c
Me.BindingConte xt(DataSet11, "authors").Remo veAt(Me.Binding Context(DataSet 11, "authors").Posi tion)
Me.OleDbDataAda pter1.Update(Da taSet11)
MsgBox("Record Successfully Deleted")
End Sub

Private Sub ComboBox1_Selec tedIndexChanged (ByVal sender As System.Object, ByVal e As System.EventArg s) Handles ComboBox1.Selec tedIndexChanged
'combobox
ComboBox1.DataS ource = DataSet11.Autho rs


End Sub