Hey,
I created a button (Next
) to navigate in a Table called CHAPTERS
;
My problem is that the button work Two, and sometimes three times. After that I get [Not specified error].
This is my code :
Dim S As Integer = Integer.Parse(Request.QueryString("id"))
Dim RQ As String
Dim DR As OleDbDataReader
RQ = "SELECT ID_C FROM CHAPTRES"
DR = Connexion.lecture(RQ)
While DR.Read
If DR.GetInt32(0) = S Then
Exit While
End If
End While
If DR.Read = True Then
S = DR.GetInt32(0)
Response.Redirect("Chapitre.aspx?id=" & S)
Else
// End of records (stop reading)
End If
Thanks.
UPDATES :
This the connecter
and lecture
functions in my Connexion.vb
file :
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Connexion
Public Shared Function conecter() As OleDbConnection
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & System.AppDomain.CurrentDomain.BaseDirectory & "/Learning.mdb")
MyConnexion.Open()
Return MyConnexion
End Function
Public Shared Function lecture(ByVal requete As String) As OleDbDataReader
Dim Mycommand As OleDbCommand = conecter().CreateCommand()
Mycommand.CommandText = requete
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Return myReader
End Function