Getting Value from Last Record in DB 1

[dvannoy]

I'm trying to look at the last record inserted into a SQL table. I'm not getting an errors using the below code but cannot get text to appear in the textbox.

Thanks in advance

Protected Function getLastRec() As DataRow

Dim con As New SqlConnection(strcn)
Dim da As New SqlDataAdapter("select field from Table", con)
Dim ds As New DataSet()
con.Open()
da.Fill(ds)
Dim dr As DataRow = DirectCast(ds.Tables(0).Rows(ds.Tables(0).Rows.Count - 1), DataRow)
Return dr
t1.Text = dr.Item(0).ToString

End Function

 

[jbenson001]

you are returning the datarow BEFORE you are setting the text

 

[gk53]

try something like that

If ds.Tables,Count > 0 Then
   if ds.Tables(0).Rows.Count > 0 then
    Dim dr As DataRow = ds.Tables(0).Rows(ds.Tables(0).Rows.Count - 1))
    t1.Text = dr.Item(0).ToString
   end if
End If

or preferable change your query to
"select top 1 field from table order by field desc"

 

[dvannoy]

jbenson001. thanks for that. didn't catch that.

gk53, that's pretty much what I ended up doing.... thanks

 

[jbenson001]

Glad to help