Table in Dataset?

[Elena]

I am trying to get a number from the last row in a table.
When I get to the line of code to get the count, I get an
error:

An Unhandled exception of
type 'System.IndexOutOfRangeException' occured in
system.data.dll
Additional Information: Cannot find table 0

The code is below:

'get a new item number
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
Dim intCount As Integer = dsID.Tables(0).Rows.Count
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

Is there something I am missing?

Thanks in advance!
Elena

[Cor]

Hi Elena,

Dim intCount As Integer = dsID.Tables(0).Rows.Count
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

The index starts at 0
The count starts at 1

Therefore or it is Rows.Count - 1
or
intCount - 1

Cor

[Jan Nielsen]

Hi Elena
As far as I can see you don't fill the dataset.

You lack:

Dim dsID As DataSet = New DataSet daID.Fill(dsID) Dim intCount As Integer = dsID.Tables(0).Rows.Count
HTH

Jan

"Elena" <el**********@yahoo.com> skrev i en meddelelse
news:0b****************************@phx.gbl... I am trying to get a number from the last row in a table.
When I get to the line of code to get the count, I get an
error:

An Unhandled exception of
type 'System.IndexOutOfRangeException' occured in
system.data.dll
Additional Information: Cannot find table 0

The code is below:

'get a new item number
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
Dim intCount As Integer = dsID.Tables(0).Rows.Count
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

Is there something I am missing?

Thanks in advance!
Elena

[Armin Zingler]

"Elena" <el**********@yahoo.com> schrieb

I am trying to get a number from the last row in a table.
When I get to the line of code to get the count, I get an
error:

An Unhandled exception of
type 'System.IndexOutOfRangeException' occured in
system.data.dll
Additional Information: Cannot find table 0

The code is below:

'get a new item number
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
Dim intCount As Integer = dsID.Tables(0).Rows.Count
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

Is there something I am missing?

You don't fill the Dataset. Use the DataAdapter's Fill method.
--
Armin

[Cor]

Elena
I did not see the error Jan saw.

See my message there where 2 errors, the one which Jan saw and the one I
saw.

Cor

[Elena]

I fixed both errors. I now get an error with the
dataset... See my reply to Jan.

Thanks,
Elena

-----Original Message-----
Elena
I did not see the error Jan saw.

See my message there where 2 errors, the one which Jan saw and the one Isaw.

Cor
.

[Cor]

Elena

Will you try it like this

strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
dim cmd as new OledbCommand(strsql, conn)
Dim daID As new OleDbDataAdapter(cmd)
Dim dsID As new DataSet
daID.Fill(dsID)
Dim intCount As Integer = dsID.Tables(0).Rows.Count-1
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

I think this will work, I dont know for typos you know

Cor

[Armin Zingler]

"Elena" <el**********@yahoo.com> schrieb

when i fill the dataset using this code:
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
daID.Fill(dsID, "Action")

I get the error at the fill line:
An unhandled exception of
type 'system.data.oledb.oledbexception' occurred in
system.data.dll

What am I missing here?

You can catch the exception and examine it.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

I still get the same error :-/

Elena

-----Original Message-----
Elena

Will you try it like this

strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
dim cmd as new OledbCommand(strsql, conn)
Dim daID As new OleDbDataAdapter(cmd)
Dim dsID As new DataSet
daID.Fill(dsID)
Dim intCount As Integer = dsID.Tables(0).Rows.Count-1
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

I think this will work, I dont know for typos you know

Cor

.

[Cor]

Elena,

It is friday night here you know, I don't know if I stay long.

But try this, than we see the error better
\\\
Try
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
dim cmd as new OledbCommand(strsql, conn)
Dim daID As new OleDbDataAdapter(cmd)
Dim dsID As new DataSet
daID.Fill(dsID)
Dim intCount As Integer = dsID.Tables(0).Rows.Count-1
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1
Catch oledbExc As SqlException
MessageBox.Show(oledbExc.ToString, "", MessageBoxButtons.OK,
MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
///
Cor

[Cor]

Hi Jan,

I had some problems with the SelectionChangeCommitted

I have made a sample in this newsgroup.

I think that it works when you fill the datasource as we did expected,
but when you fill it direct, it has strange behaviour,

Cor

[Jan Nielsen]

Hi Elena
That is hard to say
Try to add en error handler like this
***********
Try

....Your code

Catch Ex as Exception
msgbox ex.Message
End Try
Than might give you a better idea of where to find the error
HTH

Jan
"Elena" <el**********@yahoo.com> skrev i en meddelelse
news:01****************************@phx.gbl...

when i fill the dataset using this code:
strsql = "Select * from Action where item_identifier = " &
Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
daID.Fill(dsID, "Action")

I get the error at the fill line:
An unhandled exception of
type 'system.data.oledb.oledbexception' occurred in
system.data.dll

What am I missing here?

-----Original Message-----
Hi Elena
As far as I can see you don't fill the dataset.

You lack:

Dim dsID As DataSet = New DataSet

daID.Fill(dsID)

Dim intCount As Integer = dsID.Tables(0).Rows.Count

HTH

Jan

"Elena" <el**********@yahoo.com> skrev i en meddelelse
news:0b****************************@phx.gbl...

I am trying to get a number from the last row in a table. When I get to the line of code to get the count, I get an error:

An Unhandled exception of
type 'System.IndexOutOfRangeException' occured in
system.data.dll
Additional Information: Cannot find table 0

The code is below:

'get a new item number
strsql = "Select * from Action where item_identifier = " & Val(TextBox1.Text) & " order by action_identifier"
' Create data adapter object
Dim daID As OleDbDataAdapter = New OleDbDataAdapter
(strsql, conn)
' Create a dataset object and fill with data using data
adapter's Fill method
Dim dsID As DataSet = New DataSet
Dim intCount As Integer = dsID.Tables(0).Rows.Count
Dim intActionIdentifier As Integer = dsID.Tables(0).Rows
(intCount)("action_identifier").ToString
intActionIdentifier = intActionIdentifier + 1

Is there something I am missing?

Thanks in advance!
Elena

.