Como recorro un campo en orden

[julianserna]

hola

tengo un campo en mi bd con solo numeros, necesito recorrerlo en orden ascendente y saber si estoy en el ultimo o en el primero, no se me ocurre algo efectivo, existe alguna forma de recorrer el campo facilmente y saber si estoy parado en el mayor o en el menor?

gracias ......

[RsOfT]

Puede utilizar un "order by Campo" asi sabrás que el primer registro que encuentre tu aplicación es el mejor.

[julianserna]

me sirve tu respuesta pero tengo un problema y no se como resolverlo....

tengo un formulario con los botones de primero, siguiente, anterior y ultimo y necesito habilitarlos o deshabilitarlos dependiendo del campo donde esté parado en el formulario, nose como hacerlo, por ejemplo si estoy parado en el primer campo deberia de deshabilitar el anterior y primero y habilitar los otros.

tienes alguna idea?

[RsOfT]

como lees la BD?

Si es con un DataSet, puedes manejarlos con una variable y si esa variable es igual al dataset.tables(0).rows.cont entonces desabilita el botón siguiente y el último

[julianserna]

y si lo hago con un reader directamente en la bd, se puede de esa forma?

[RsOfT]

pega tu código para verlo

[julianserna]

Con este codigo trato de para al siguiente dato en el campo cod_s pero no se si esté bien diseñado.


Private Sub cmdnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnext.Click
Dim selectsql As String
selectsql = "select * from tbl_banner order by cod_s"
Dim con As New OleDb.OleDbConnection(connectionstring)
Dim cmd As New OleDb.OleDbCommand(selectsql, con)
Dim reader As OleDb.OleDbDataReader
'se intenta abrir la base de datos y leer la informacion
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
If reader("cod_s") > txtid.Text Then
txtid.Text = reader("cod_s")
txturl.Text = reader("link_url_s")
txtdesceng.Text = reader("text_eng_s")
txtdescspa.Text = reader("text_spa_s")
'imgban.ImageUrl = reader("logo_s")
Exit Do
End If
Loop
reader.Close()
'se cierra la conexion a la base de datos
If (Not con Is Nothing) Then
con.Close()
End If
actualizar_vista()
End Sub

[RsOfT]

Bueno, no se me ocurre nada para saber si llego a final de archivo...