Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but when
I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
6  3449 
Hi Paul,
Well, the following line of code could be the culprit: 60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
Try placing it inside the while loop.
Secondly, why aren't you using a DataSet and a DataAdapter?
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going
on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
To Paul:
I think it's just your loop structure, i am not sure if that is the correct
while loop construct
I think the while loop should be something like
Do While ds.Read()
lstModName.Items.Add(rsData("ModName").ToString)
Loop
I see nothing else wrong with wat you did
To Harsh:
All he wanted to do is to fill up a list, datareader may in fact be faster
in this situation
Cheers
J
ps: i am no expert :)
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going
on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going
on?
Yes, you're not reading the docs.
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
What does this line do ? Specifically CommandBehaviour.SingleRow ?
How do you think that might relate to your problem ?
The answer is here (sorry if the url wraps) http://msdn.microsoft.com/library/en...DataCommandBeh
aviorClassTopic.asp
I
--
Bingo, changing:
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
to
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleResult )
solves the problem.
Thanks to those who pointed it out!
Cheers
Paul M.
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going
on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
Paul - The problem is indeed the loop syntax. Please see: http://msdn.microsoft.com/library/de...asicbasics.asp
At the bottom you will see the following suggestion:
While...Wend loops can be nested to any level. Each Wend matches the most
recent While.
Tip The Do...Loop statement provides a more structured and flexible way to
perform looping.
There is no 'End While' in Visual Basic, and a search of MSDN returned no
results for 'End While'.
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box, the
list box only shows the first one and no others. Anyone know whats going
on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
Hello,
thanks for replying, I tried the loop syntax link you suggested
however it was invalid. As for your point about "end while" this is legal
syntax for vb .net, are you using an old version of MSDN?
Thanks
Paul M.
"peruser" <ja*******@hotmail.com> wrote in message
news:eq**************@TK2MSFTNGP12.phx.gbl... Paul - The problem is indeed the loop syntax. Please see:
http://msdn.microsoft.com/library/de...us/vbcon98/htm
l/vbconpart1visualbasicbasics.asp
At the bottom you will see the following suggestion:
While...Wend loops can be nested to any level. Each Wend matches the most
recent While.
Tip The Do...Loop statement provides a more structured and flexible way
to perform looping.
There is no 'End While' in Visual Basic, and a search of MSDN returned no
results for 'End While'.
"Paul M." <pa**@nospam.fsnet.co.uk> wrote in message
news:bh**********@newsg1.svr.pol.co.uk... Hi,
I am trying to add a dataset to a list box on an asp .net page, the
query results in about 20 rows coming back when I run it in access but
when I loop through the dataset adding each records field to the list box,
the list box only shows the first one and no others. Anyone know whats going
on?
Thanks
Paul
Code ======================================
Imports System.Diagnostics
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lstModName As System.Web.UI.WebControls.ListBox
Const MODULENAME = "frmFilter.aspx.vb"
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
1: Dim conMain As New System.Data.OleDb.OleDbConnection()
2: Dim comMain As New System.Data.OleDb.OleDbCommand()
3: Dim rsData As System.Data.OleDb.OleDbDataReader
4: On Error GoTo ERRORHANDLER
10: conMain.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\GizmosDB.mdb;")
20: conMain.Open()
30: comMain.CommandText = "SELECT DISTINCT tblGizmos.[ModName] FROM
tblGizmos;"
40: comMain.CommandType = CommandType.Text
50: comMain.Connection = (conMain)
60: rsData = comMain.ExecuteReader(CommandBehavior.SingleRow)
70: While rsData.Read()
80: lstModName.Items.Add(rsData("ModName").ToString)
90: End While
100: rsData.Close()
End Sub
End Class
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Adam Hartshorne |
last post by:
Hi All,
I have the following problem, and I would be extremely grateful if
somebody would be kind enough to suggest an efficient solution to it.
I create an instance of a Class A, and...
|
by: Ben Dewey |
last post by:
Project:
----------------------------
I am creating a HTTPS File Transfer App using ASP.NET and C#. I am
utilizing ActiveDirectory and windows security to manage the
permissions. Why reinvent...
|
by: Tim |
last post by:
I have block of code adding values to dropdown list under
if (!Page.IsPostBack)
{
adding items
}
else
{
refreshing data
}
|
by: Simon Jefferies |
last post by:
Hello,
I am trying to add an item to a checked list box, like:
clbList.Items.add("Hello",true)
I get an error back:
Run-time exception thrown: System.ArgumentOutOfRangeException -...
|
by: Kadett |
last post by:
Hi all, I have following problem: I'm creating a ListView (Details) control
at run-time and filling it with some records (let's say 10 000). This
operation seems to be quite fast, but when I call...
| | |
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
| | |
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The...
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...
| |
