[vb8] Add NewRow to .mdb problems

[Pitmaster]

Hi there,
hoping somebody can help out here. Searched half earth to find a
solution but no success yet. The following code doesn't gave any fault
or warning but doesn't what it is suppose to do.
Can somebody explain why this code does not produce an extra new row in
my database?

Thanks, Nico
*************** *************** *************** *************** ************
Imports System.Data.Ole Db

Public Class Form1
Inherits System.Windows. Forms.Form
Dim VarDataAdapter As New OleDbDataAdapte r()
Dim VarConnection As New OleDbConnection ()
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

VarConnection.C onnectionString =
"Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=PetChamp .mdb;User
Id=admin;Passwo rd=;"
VarDataAdapter. SelectCommand = New OleDbCommand("S ELECT * FROM
Omzet")
VarDataAdapter. SelectCommand.C onnection = VarConnection

Dim newRow As PetChampDataSet .OmzetRow =
Me.PetChampData Set1.Omzet.NewR ow()
newRow.Artikel = "Muis met staart"
newRow.EANcode = "123"
Me.PetChampData Set1.Omzet.Rows .Add(newRow)
OmzetTableAdapt er.Update(PetCh ampDataSet1)
End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'TODO: This line of code loads data into the
'PetChampDataSe t1.Omzet' table. You can move, or remove it, as needed.
Me.OmzetTableAd apter.Fill(Me.P etChampDataSet1 .Omzet)
End Sub

[C-Services Holland b.v.]

Pitmaster schreef:

Hi there,
hoping somebody can help out here. Searched half earth to find a
solution but no success yet. The following code doesn't gave any fault
or warning but doesn't what it is suppose to do.
Can somebody explain why this code does not produce an extra new row in
my database?

Thanks, Nico
*************** *************** *************** *************** ************
Imports System.Data.Ole Db

Public Class Form1
Inherits System.Windows. Forms.Form
Dim VarDataAdapter As New OleDbDataAdapte r()
Dim VarConnection As New OleDbConnection ()
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

VarConnection.C onnectionString =
"Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=PetChamp .mdb;User
Id=admin;Passwo rd=;"
VarDataAdapter. SelectCommand = New OleDbCommand("S ELECT * FROM
Omzet")
VarDataAdapter. SelectCommand.C onnection = VarConnection

Dim newRow As PetChampDataSet .OmzetRow =
Me.PetChampData Set1.Omzet.NewR ow()
newRow.Artikel = "Muis met staart"
newRow.EANcode = "123"
Me.PetChampData Set1.Omzet.Rows .Add(newRow)
OmzetTableAdapt er.Update(PetCh ampDataSet1)
End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'TODO: This line of code loads data into the
'PetChampDataSe t1.Omzet' table. You can move, or remove it, as needed.
Me.OmzetTableAd apter.Fill(Me.P etChampDataSet1 .Omzet)
End Sub

You're adding a new row to the dataset (which just holds the result of
your query), not to the mdb file. You'll need to use an insert query to
add a new row to the database. I.e.: "insert into omzet..." etc. and
then execute that query on the database.

--
Rinze van Huizen
C-Services Holland b.v