[RESOLVED] simple datatable select statment

[SeaCapnJ]

Ok this is overly simple, but driving me crazy. Any thoughts are much appreciated.


Dim q As String
dim ro as datarow
'tbliptval is a public datatable

q = "CID = " & Process_cid & " And Name = '" & varname & "'"
Try
ro = tblIptVal.Select(msg)(0)
Catch e As Exception
MsgBox(e.ToString)
End Try

The query q should return one record, and does when i manually enter the sql.

Any thoughts? ahhhhhhhhh!

[salvelinus]

Not sure what you're trying to do. If q is supposed to be part of your SQL, where do you add it to anything? In the posted code it doesn't serve a purpose.

[SeaCapnJ]

Does this explain it better, I assigned the string to q to help in debugging. Any thoughts? thanks for the response.

Try
     ro = tblIptVal.Select("CID = " & Process_cid & " And Name = '" & varname & "'")(0)
     process_UDID = ro("UDID")
            
     If Not ro.IsNull("UDID") Then
          processSourceID = ro("PSID")
     End If
catch e as exception
            MsgBox(e.ToString)
End Try

[SeanGrebey]

Doesn't Select return an Array of DataRows, not a single DataRow?

[Briantcva]

Originally posted by SeanGrebey
Doesn't Select return an Array of DataRows, not a single DataRow?

It does indeed.

[SeaCapnJ]

Yah, it does.

That's why I am grabbing the table at index 0.

ro = tblIptVal.Select(msg)(0)

the error message it gives is something like:

"filter expression "0" does not evaluate to a boolean term." So maybe that is where im going wrong.

[Briantcva]

Originally posted by SeaCapnJ
Yah, it does.

That's why I am grabbing the row at index 0.

But you've declared "ro" as a datarow object - not an array of objects of type datarow.

Dim ro() as DataRow

[SeaCapnJ]

I guess I didnt edit that response quick enough.

but ill play with it, maybe it is the indexing ?

[SeaCapnJ]

Dim r As DataRow()

r = tblIptVal.Select(msg)

Tried that, Got the same error message about indexing at 0.
Man I have written 100's of these, what am I doing wrong here? grr!

[Briantcva]

Post your current code so we're not talking past one another.

[SeaCapnJ]

I get an index out of range message, which tends leads me to believe that the query is resulting in null. However, when I manually enter the query, I get a record.

Dim ro As DataRow()
        Dim q As String
 
        q = "CID = " & Process_cid & " And Name = '" & varname & "'"
 
        Try
            MsgBox(q)
            ro = tblIptVal.Select(q)
            process_UDID = ro(0)("udid")
            
        Catch e As Exception
            MsgBox(e.ToString)
        End Try

[SeaCapnJ]

Well the problem is with varname, for some reason when I type it in, its not exactly like what I see. I do not have the answer to what is wrong, but I do not understand why the string that I see and the string that I type are not the same.

[Briantcva]

How are they different?

[SeanGrebey]

varname doesn't have a single quote in it does it?

[SeaCapnJ]

Always the simple solution. Why could I find the record I was looking for? Because I was deleting that record in a forum i wrote months ago. Bah!

Thanks so much for the help guys.