Update data into database

My Code:

Code:

---

Imports System.Data
Public Class Form4
    Dim dt As New DataTable()
    Dim rowIndex As Integer = 0
    Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=Library_System.mdb"
    Dim sqlStr As String = "SELECT * FROM Book_Issue_Details"
    Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connstr)
    Dim issueID As Integer


    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click

        txtDateIssue.Clear()
        txtISBN.Clear()
        txtSID.Clear()

    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click

        Form2.Show()

        Me.Close()

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub btnDone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDone.Click

        Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connstr)
        Dim commandBuilder As New OleDb.OleDbCommandBuilder(dataAdapter)
        Dim dsNewRow As DataRow
        dsNewRow = dt.NewRow()

        dsNewRow.Item("Book_ISBN") = txtISBN.Text
        dsNewRow.Item("Date_Issued") = DateString
        dsNewRow.Item("Book_Issued_To") = txtSID.Text
        dt.Rows.Add(dsNewRow)
        dataAdapter.Update(dt)
        rowIndex = dt.Rows.Count - 0
        issueID = dt.Rows(rowIndex)("Issue_ID") + 1
        txtISBN.Text = issueID

        MsgBox("Book Issued Successfully")
        Form2.Show()
        Me.Hide()

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connstr)
        dataAdapter.Fill(dt)
        dataAdapter.Dispose()

    End Sub
End Class

---

My problem is the form is loading and when I type in the data and want to update my database. It says 'System.IndexOutOfRangeException was unhandled'. Anyone help me with this? Where do I have problem in the code?

Your Database has 5 colums, however you only handing it 3 colums of data.. If the other two are not set to accept nulls then that may throw an error...

However if you could show us exactly what line of code it highlights when you get this error , it'll be allot easier to work out the problem

It's also in the wrong place... that's .NET code... not VB6.... I'll alert the authorities...

-tg

[ moved ]