Find specific value in dataset???

[zozzie]

Hi, I'm here again.

I have a datatable with the following columns:
UserID (pk, autonumber)
UserName (text)
RightsID (number)


I fill a dataset (DSUsers) with the values of this datatable and now I want to find a specific value of this dataset: the RightsID of the first UserID in the table.

I tried the following code:

Dim UserRights as Integer
UserRights = DSUsers.Tables("tblUsers").Rows(0)("RightsID")

But I constantly get the value '0' while it should be '2' because thats the actual value in the database.

Is my selection code wrong?

thanks

TOm

[RichardAtherton]

dim dr2 as datarow
Dim UserRights as Integer
dr2 = DSUsers.Tables.Item("tblUsers").Rows(0)
UserRights = dr2("RightsID")

[zozzie]

Thanks,

I tried your suggestion but I'm still getting the same resultvalue: 0

Here's my code:

SQLUser = "SELECT * FROM tblUsers WHERE UserName=" & user
DAUsers = New OleDbDataAdapter(SQLUser, DataConnectionUsers)
DataConnectionUsers.Open()
DAUsers.Fill(DSUsers, "tblUsers")
DataConnectionUsers.Close()

NumberUsers = DSUsers.Tables("tblUsers").Rows.Count()


dr2 = DSUsers.Tables.Item("tblUsers").Rows(1)
UserRights = dr2("UserID")

I really do't understand what's going wrong.


TOm

[nswan]

rows index starts at zero. try

dim temp as integer
temp = DSUsers.Tables(0).Rows(0).Item("RightsID")

[zozzie]

thanks nswan

I tried your suggestion but I still get the same result. I also doublechecked if the dataset contains values and the answer is yes because I filled up a datagrid with the values.

Any Ideas?

Tom

[nswan]

i edited it a couple of times. have you tried the latest one?

[zozzie]

yes, I tried it.

In attachment you can find the result of the datagrid (.jpg).

Here you can see the code


SQLUser = "SELECT * FROM tblUsers"
DAUsers = New OleDbDataAdapter(SQLUser, DataConnectionUsers)
DataConnectionUsers.Open()
DAUsers.Fill(DSUsers, "tblUsers")
DataConnectionUsers.Close()


Me.DataGridUsers.DataSource = DSUsers
Me.DataGridUsers.DataMember = "tblUsers"

dr2 = DSUsers.Tables.Item("tblUsers").Rows(0)
UserRights = dr2("RightsID")

any ideas?

Tom