Can someone help me please. I can not figure out what is wrong. I get the error: "An unhandled exception of type 'System.Data.OleDb.OleDbException' occured in system.data.dll.
I am simply trying to update a field in a database by using the update command as follows:
Imports System.Data.OleDb
Dim myOleDbDataAdapter As OleDbDataAdapter
Dim myDataSet As DataSet = New DataSet
Dim myDataTable As DataTable = New DataTable
Dim myOleDbConnection As OleDbConnection
Dim myCommand As OleDbCommandBuilder
Dim artKeySave As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
myOleDbConnection = New _
OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "User ID=Admin;Data Source=C:\Test\test.mdb")
Try
myOleDbDataAdapter = _
New OleDbDataAdapter("select * from adminPassword", _
myOleDbConnection)
myOleDbDataAdapter.Fill(myDataTable)
lstAboutVBData.DataSource = myDataTable
lstAboutVBData.DisplayMember = "password"
Catch
Console.WriteLine("Error Opening {0}", _
myOleDbConnection.DataSource)
End Try
myCommand = New OleDbCommandBuilder(myOleDbDataAdapter)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
myOleDbDataAdapter.Fill(myDataSet, "adminPassword")
myDataTable = myDataSet.Tables("adminPassword")
Dim rowArticle As DataRow = myDataTable.NewRow()
rowArticle("password") = txtTitle
myDataTable.Rows.Add(rowArticle)
Dim newDataSet As DataSet
newDataSet = myDataSet.GetChanges()
'THE PROBLEM SEEMS TO BE HERE
myOleDbDataAdapter.Update(myDataSet, "adminPassword")
myDataSet.Tables("adminPassword").AcceptChanges()
End Sub
End Class