Trouble displaying info from access db

[GeekyChicky79]

Hi Everyone,

I have the project below where I'm pulling out information from 1 table
"Subjects", pulling the Subjects, and SubjectCode. The Subjects are
displaying in the Combo Box just fine, but I can not get the
corresponding Subject Code to display in the Label.

I have 2 Data adapters/dataset,1 for Subjects, and the other for
SubjectCode, along with a Data View setup.

I'm a newbie on VB.NET. This project is pulling from an Access DB. Is
there anything that I should be looking for, or doing wrong that I'm
not getting the Subject Code to display in the Label?

Any help would be appreciated.
_______________ _______________ ____
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Fill the List box
dbSubject.Fill( DsSubject1)
dbSubjectCode.F ill(DsSubjectCo de2)
DisplayRecordPo sition()
End Sub

Private Sub cboSubjectName_ SelectedIndexCh anged(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
cboSubjectName. SelectedIndexCh anged
' DsSubject1.Clea r()
' dbSubject.Selec tCommand.Parame ters("Subjects" ).Value =
cboSubjectName. Text
' dbSubjectCode.F ill(DsSubjectCo de2)
End Sub

Private Sub lblSubName_Clic k(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles lblSubName.Clic k
DsSubjectCode2. Clear()
dbSubjectCode.S electCommand.Pa rameters("Subje ctCode").Value =
lblSubName.Text
dbSubjectCode.F ill(DsSubjectCo de2)

End Sub
'*****General Procedures*****
Private Sub DisplayRecordPo sition()
Dim intRecordCount As Integer
Dim intRecordPositi on As Integer

intRecordCount = DsSubject1.Tabl es("Subjects"). Rows.Count

If intRecordCount = 0 Then
lblSubName.Text = "(No records)"
Else
intRecordPositi on = Me.BindingConte xt(DsSubject1,
"Subjects").Pos ition + 1
lblSubName.Text = "Record: " & intRecordPositi on.ToString _
& " of " & intRecordCount. ToString
End If
End Sub
End Class
_______________ _______________ _______________ ________

[Jeff Allan]

The first question is, do you need a DataAdapter? Are you going to update,
insert or delete data? If so, then yes a DA is the way to go. If you are
just reading, use a DataReader. Much faster.

1.Fill Data Reader & Bind to Drop Down List (SQL Example)
'Populate Drop Down List
Dim coReader As SqlClient.SqlDa taReader

'SQL Server Connection Object From Form - You would replace with your Access
Connection object
conSQL.Open()

'SQL Server Command Object From Form - You would replace with an Access
command object
cmdSQL.CommandT ext = "SELECT Subject, SubjectCode FROM <<TABLE>ORDER BY
Subject"

coReader = cmdSQL.ExecuteR eader()
ddlSubject.Data Source = coReader
ddlSubject.Data TextField = "Subject"
ddlSubject.Data ValueField = "SubjectCod e"
ddlSubject.Data Bind()
coReader.Close( )
conSQL.Close()

2.On SelectedIndexCh ange of Combo Box, set Label Value
lblSubCode.Text = CTYPE(ddlSubjec ts.SelectedValu e, String)

This will give you a drop down populated with subjects and then when you
select one, the code of that subject will be displayed in the label.

"GeekyChick y79" <sk******@aol.c omwrote in message
news:11******** *************@j 44g2000cwa.goog legroups.com...

Hi Everyone,

I have the project below where I'm pulling out information from 1 table
"Subjects", pulling the Subjects, and SubjectCode. The Subjects are
displaying in the Combo Box just fine, but I can not get the
corresponding Subject Code to display in the Label.

I have 2 Data adapters/dataset,1 for Subjects, and the other for
SubjectCode, along with a Data View setup.

I'm a newbie on VB.NET. This project is pulling from an Access DB. Is
there anything that I should be looking for, or doing wrong that I'm
not getting the Subject Code to display in the Label?

Any help would be appreciated.
_______________ _______________ ____
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Fill the List box
dbSubject.Fill( DsSubject1)
dbSubjectCode.F ill(DsSubjectCo de2)
DisplayRecordPo sition()
End Sub

Private Sub cboSubjectName_ SelectedIndexCh anged(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
cboSubjectName. SelectedIndexCh anged
' DsSubject1.Clea r()
' dbSubject.Selec tCommand.Parame ters("Subjects" ).Value =
cboSubjectName. Text
' dbSubjectCode.F ill(DsSubjectCo de2)
End Sub

Private Sub lblSubName_Clic k(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles lblSubName.Clic k
DsSubjectCode2. Clear()
dbSubjectCode.S electCommand.Pa rameters("Subje ctCode").Value =
lblSubName.Text
dbSubjectCode.F ill(DsSubjectCo de2)

End Sub
'*****General Procedures*****
Private Sub DisplayRecordPo sition()
Dim intRecordCount As Integer
Dim intRecordPositi on As Integer

intRecordCount = DsSubject1.Tabl es("Subjects"). Rows.Count

If intRecordCount = 0 Then
lblSubName.Text = "(No records)"
Else
intRecordPositi on = Me.BindingConte xt(DsSubject1,
"Subjects").Pos ition + 1
lblSubName.Text = "Record: " & intRecordPositi on.ToString _
& " of " & intRecordCount. ToString
End If
End Sub
End Class
_______________ _______________ _______________ ________

[GeekyChicky79]

Frankly I don't think I do...but then again I'm new at all of this. All
I'm doing is pulling the information from the Access DB.

DB Name: Subjects
Table1: Subject (Drop down box)
Table2: SubjectCode (Listbox)

Just trying to figure out why the Label isn't displaying the
information. All I'm getting is the Record 1 of 12 displaying in that
Label, and not the "SubjectCod e"

If you had the program and click on the Combo Box in the Design View,
in the properties window where you have Data Source...it's pulling the
information for the Subject that way. And in the Form1_Load, it
pulls/displays the information only for the Combo Box.

Any thoughts?

[RobinS]

Are you talking about a Label control that is on the form?
Where is "Record 1 of 12" showing up? Sounds like the text
in a Binding Navigator. Are you setting that?

Robin S.
-----------------------------
"GeekyChick y79" <sk******@aol.c omwrote in message
news:11******** **************@ e3g2000cwe.goog legroups.com...

Frankly I don't think I do...but then again I'm new at all of this. All
I'm doing is pulling the information from the Access DB.

DB Name: Subjects
Table1: Subject (Drop down box)
Table2: SubjectCode (Listbox)

Just trying to figure out why the Label isn't displaying the
information. All I'm getting is the Record 1 of 12 displaying in that
Label, and not the "SubjectCod e"

If you had the program and click on the Combo Box in the Design View,
in the properties window where you have Data Source...it's pulling the
information for the Subject that way. And in the Form1_Load, it
pulls/displays the information only for the Combo Box.

Any thoughts?