duplicate records being recorded

[Martin Williams]

Still working out a few bugs in a survey program I'm writing. The way I
have it configured is as each survey is completed, the dataset is updated.
When the program is closed, the database itself is updated. However, when I
check the database table, there are some answers that are duplicated two and
three times.

Here are some snippets...

//This sub is called on the last page of the survey when the "Finish" button
is clicked.
Sub GatherAndUpdate Answers()
//there is some code before this that gathers all the answers and assigns
them to variables
dim newrecord as datarow = mainform.dssurv eydata1.survey_ data.newrow
newrecord(0) = QuestionOneAnsw er
newrecord(2) = QuestionTwoAnsw er
//repeats like this until twelve

mainform.dssurv eydata1.survey_ data.rows.add(n ewrecord)

end sub

Sub UpdateData()
dim pdsInsertedRows as system.data.dat aset
pdsInsertedRows = mainform.dssurv ey_data1.getcha nges(datarowsta te.added)
mainform.oledbd ataadapter1.upd ate(pdsInserted Rows)
end sub

Private Sub Form1_Closing(. ..)
Call UpdateData()
end sub

When the "Finish" button is clicked on the last form,
GatherAndUpdate Answers() is called.

[Martin Williams]

Another problem discovered...

Some of the text fields in the database that require some longer answers are
cutting off the data. I have the appropriate fields set to "Memo", which is
not supposed to have a default length, but it's still happening. Any ideas?

"Martin Williams" <ma*******@comc ast.net> wrote in message
news:1a******** ************@co mcast.com...

Still working out a few bugs in a survey program I'm writing. The way I
have it configured is as each survey is completed, the dataset is updated.
When the program is closed, the database itself is updated. However, when I check the database table, there are some answers that are duplicated two and three times.

Here are some snippets...

//This sub is called on the last page of the survey when the "Finish" button is clicked.
Sub GatherAndUpdate Answers()
//there is some code before this that gathers all the answers and assigns
them to variables
dim newrecord as datarow = mainform.dssurv eydata1.survey_ data.newrow
newrecord(0) = QuestionOneAnsw er
newrecord(2) = QuestionTwoAnsw er
//repeats like this until twelve

mainform.dssurv eydata1.survey_ data.rows.add(n ewrecord)

end sub

Sub UpdateData()
dim pdsInsertedRows as system.data.dat aset
pdsInsertedRows = mainform.dssurv ey_data1.getcha nges(datarowsta te.added) mainform.oledbd ataadapter1.upd ate(pdsInserted Rows)
end sub

Private Sub Form1_Closing(. ..)
Call UpdateData()
end sub

When the "Finish" button is clicked on the last form,
GatherAndUpdate Answers() is called.

[Cor Ligthert]

Martin,

You are aware of the fact that the getchanges create a copy dataset of the
changes.
The original dataset will in this case not be affected by the build in
acceptchanges from the dataadapter.

Cor

[Martin Williams]

So, do I change my UpdateAnswers sub to just AcceptChanges from the dataset?
I thought the dataset was a disconnected view of the database itself, but
the program updates the database just from adding rows to the dataset. If
it works, it works, I'm just trying to get a handle on it.

"Cor Ligthert" <no************ @planet.nl> wrote in message
news:Ok******** ******@TK2MSFTN GP12.phx.gbl...

Martin,

You are aware of the fact that the getchanges create a copy dataset of the
changes.
The original dataset will in this case not be affected by the build in
acceptchanges from the dataadapter.

Cor

[Cor Ligthert]

Martin,

The acceptchanges set all the rowstate to done, what is a function as well
from the dataadapter, however you do that on the copy dataset getchanges.

So you can try to set that after the update.

As sample
\\\
if ds.haschanges then
ds.update(ds.ge tchanges)
ds.acceptchange s
end if
///
I hope this helps

Cor