Reading through a datareader

[Sam anonymous]

This is what I have so far but if someone could show me how to read
through the datareader once I can get the rest.
Thank you.
Private Sub lstCoursesOffer ed_SelectedInde xChanged(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
lstCoursesOffer ed.SelectedInde xChanged
Dim intcount As Integer = 0
mblnLoading = True
If Not mblnStart Then
Dim clsCoursesOffer ed As New CClassReader()
clsCoursesOffer ed.Courses =
mstrCoursesOffe red(lstCoursesO ffered.Selected Index)
Call clsCoursesOffer ed.SelectCourse ()
????? Move clsClass.fieldn ames to txtboxes: txtSection, txtCallNbr,
txtEnroll, txtMaxEnroll,
txtWebVideo(, txtSpecialComme nt, txtTermID)

Load the meeting days checked boxes

?????? Read through the datareader finding the matching DeptId in the
cboDeptId
Set it to be selected

Read through the datareader finding the matching CourseID in the
cboCourseID
Set it to be selected

Read through the datareader finding the matching InstrName in the
cboInstrName
Set it to be selected

Read through the datareader finding the matching
BuildRoomID in the cboBuildRoom
Set it to be selected

Read through the datareader finding the matching ClassType in the
cboClasstype
Set it to be selected

Read through the datareader finding the matching Status in the
cboStatus
Set it to be selected

End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ken Tucker [MVP]]

Hi,

Here is the code for a sample console app.

Imports System.Data.Sql Client

Module Module1

Sub Main()
Dim strConn As String
Dim conn As SqlConnection
Dim drCustomer As SqlDataReader
Dim cmd As SqlCommand

strConn = "Server = " + Environment.Mac hineName + ";"
strConn += "Database = NorthWind;"
strConn += "Integrated Security = SSPI;"

conn = New SqlConnection(s trConn)
cmd = New SqlCommand("Sel ect * from Customers", conn)
conn.Open()
drCustomer = cmd.ExecuteRead er
Do While drCustomer.Read
Console.WriteLi ne(drCustomer(" CustomerID"))
Loop
conn.Close()

End Sub

End Module
Ken
--------------------------
"Sam anonymous" <al************ *@comcast.net> wrote in message
news:uk******** ******@tk2msftn gp13.phx.gbl...

This is what I have so far but if someone could show me how to read
through the datareader once I can get the rest.
Thank you.
Private Sub lstCoursesOffer ed_SelectedInde xChanged(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
lstCoursesOffer ed.SelectedInde xChanged
Dim intcount As Integer = 0
mblnLoading = True
If Not mblnStart Then
Dim clsCoursesOffer ed As New CClassReader()
clsCoursesOffer ed.Courses =
mstrCoursesOffe red(lstCoursesO ffered.Selected Index)
Call clsCoursesOffer ed.SelectCourse ()
????? Move clsClass.fieldn ames to txtboxes: txtSection, txtCallNbr,
txtEnroll, txtMaxEnroll,
txtWebVideo(, txtSpecialComme nt, txtTermID)

Load the meeting days checked boxes

?????? Read through the datareader finding the matching DeptId in the
cboDeptId
Set it to be selected

Read through the datareader finding the matching CourseID in the
cboCourseID
Set it to be selected

Read through the datareader finding the matching InstrName in the
cboInstrName
Set it to be selected

Read through the datareader finding the matching
BuildRoomID in the cboBuildRoom
Set it to be selected

Read through the datareader finding the matching ClassType in the
cboClasstype
Set it to be selected

Read through the datareader finding the matching Status in the
cboStatus
Set it to be selected

End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[CJ Taylor]

while (myDataReader.R ead())

myTextBox.Text = myDataReader("c olName")

wend
"Sam anonymous" <al************ *@comcast.net> wrote in message
news:uk******** ******@tk2msftn gp13.phx.gbl...

This is what I have so far but if someone could show me how to read
through the datareader once I can get the rest.
Thank you.
Private Sub lstCoursesOffer ed_SelectedInde xChanged(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
lstCoursesOffer ed.SelectedInde xChanged
Dim intcount As Integer = 0
mblnLoading = True
If Not mblnStart Then
Dim clsCoursesOffer ed As New CClassReader()
clsCoursesOffer ed.Courses =
mstrCoursesOffe red(lstCoursesO ffered.Selected Index)
Call clsCoursesOffer ed.SelectCourse ()
????? Move clsClass.fieldn ames to txtboxes: txtSection, txtCallNbr,
txtEnroll, txtMaxEnroll,
txtWebVideo(, txtSpecialComme nt, txtTermID)

Load the meeting days checked boxes

?????? Read through the datareader finding the matching DeptId in the
cboDeptId
Set it to be selected

Read through the datareader finding the matching CourseID in the
cboCourseID
Set it to be selected

Read through the datareader finding the matching InstrName in the
cboInstrName
Set it to be selected

Read through the datareader finding the matching
BuildRoomID in the cboBuildRoom
Set it to be selected

Read through the datareader finding the matching ClassType in the
cboClasstype
Set it to be selected

Read through the datareader finding the matching Status in the
cboStatus
Set it to be selected

End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!