Insert into MS-Access table does not work

[Manfred]

Hi all

I don't understand why the following sample won't work.

I added a tableadapter with drag and drop from the datasource which is a
MS-Access DB and try to insert a record. The record is in the dataset
but never gets inserted in the access db.
Me.Tabelle1Tabl eAdapter.Fill(M e.Db6DataSet.Ta belle1)
Dim drnew As DataRow
drnew = Db6DataSet.Tabe lle1.NewRow
drnew("Testfeld ") = "MyTestStringTo Insert"
Db6DataSet.Tabe lle1.Rows.Add(d rnew)
Tabelle1TableAd apter.Update(Db 6DataSet.Tabell e1)
Regards

Manfred

[eswar.net]

Manfred wrote:

Hi all

I don't understand why the following sample won't work.

I added a tableadapter with drag and drop from the datasource which is a
MS-Access DB and try to insert a record. The record is in the dataset
but never gets inserted in the access db.
Me.Tabelle1Tabl eAdapter.Fill(M e.Db6DataSet.Ta belle1)
Dim drnew As DataRow
drnew = Db6DataSet.Tabe lle1.NewRow
drnew("Testfeld ") = "MyTestStringTo Insert"
Db6DataSet.Tabe lle1.Rows.Add(d rnew)
Tabelle1TableAd apter.Update(Db 6DataSet.Tabell e1)
Regards

Manfred ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~
Hello Manfred,my name is Eswar and i am working as a programmer in
dotnet.
Add a 'CommandBuilder ' object of connection type you have used. As
dim cb as new OledbCommandBui lder(Me.Tabelle 1TableAdapter) and

Try this code.
Me.Tabelle1Tabl eAdapter.Fill(M e.Db6DataSet.Ta belle1)
Dim drnew As DataRow
drnew = Db6DataSet.Tabe lle1.NewRow
drnew("Testfeld ") = "MyTestStringTo Insert"
Db6DataSet.Tabe lle1.Rows.Add(d rnew)
Me.Tabelel1Tabl eAdapter.Insert Command=cb.GetI nsertCommand() ( I added this line)
Tabelle1TableAd apter.Update(Db 6DataSet.Tabell e1)

Note: After doing any modification you have to get the command of that
type by using CommandBuilder object and then call the "Update()"
command of table adapter.
Have a nice day