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  2637 
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: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
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...
| |
