Solved

Error in Select Statement VB 2008

Posted on 2009-03-31

Visual Basic.NET

2 solutions

193 Views

Last Modified: 2012-05-06

Hi EE,

Below I have a select statement to access a company table in MS Access.
There is one record in the table, but it returns an error saying that there is no data in the row or column... there is...
It also passes the has rows, but when it gets to the first field "CompanyID", I get the error.
What am I doing wrong?
Thanks

Dim ds As New DataSet
 
        If DatabaseToUse() = BizObjs.DBType.Access Then
            'Access Database
            Dim dc As New OleDb.OleDbConnection(ConnectionString)
            Dim cmd As New OleDb.OleDbCommand("Select * from Company", dc)
 
 
            Try
                dc.Open()
                Dim dr As OleDbDataReader = cmd.ExecuteReader()
                If dr.HasRows Then
                    CompanyID = dr("CompanyID")
                    CompanyName = dr("CompanyName")
                    Add1 = dr("Address1")
                    Add2 = dr("Address2")
                    City = dr("CityName")
                    StateID = dr("StateID")
                    Postal = dr("Postal")
                    CntryID = dr("CntryID")
                    DefaultStateID = dr("DefaultStateID")
                    DefaultCntryID = dr("DefaultCntryID")
 
                End If
                dr.Close()
            Catch ex As Exception
 
                MessageBox.Show(ex.Message)
                Throw ex
 
            Finally
                dc.Close()
 
            End Try
        End If

Open in new window

Comment

Question by:Sheritlw

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

3 Comments

LVL 9

Accepted Solution

by:cdaly33

cdaly33 earned 250 total points

ID: 240359212009-03-31

You need to call dr.Read to get the first record.

Dim ds As New DataSet
 
        If DatabaseToUse() = BizObjs.DBType.Access Then
            'Access Database
            Dim dc As New OleDb.OleDbConnection(ConnectionString)
            Dim cmd As New OleDb.OleDbCommand("Select * from Company", dc)
 
 
            Try
                dc.Open()
                Dim dr As OleDbDataReader = cmd.ExecuteReader()
                If dr.HasRows Then
                    dr.Read 'read the first record
                    CompanyID = dr("CompanyID")
                    CompanyName = dr("CompanyName")
                    Add1 = dr("Address1")
                    Add2 = dr("Address2")
                    City = dr("CityName")
                    StateID = dr("StateID")
                    Postal = dr("Postal")
                    CntryID = dr("CntryID")
                    DefaultStateID = dr("DefaultStateID")
                    DefaultCntryID = dr("DefaultCntryID")
 
                End If
                dr.Close()
            Catch ex As Exception
 
                MessageBox.Show(ex.Message)
                Throw ex
 
            Finally
                dc.Close()
 
            End Try
        End If

Open in new window

LVL 39

Assisted Solution

by:Pratima Pharande

Pratima Pharande earned 250 total points

ID: 240359452009-03-31

try this also

refer

http://aspnet101.com/aspnet101/tutorials.aspx?id=17

Dim ds As New DataSet
 
        If DatabaseToUse() = BizObjs.DBType.Access Then
            'Access Database
            Dim dc As New OleDb.OleDbConnection(ConnectionString)
            Dim cmd As New OleDb.OleDbCommand("Select * from Company", dc)
 
 
            Try
                dc.Open()
                Dim dr As OleDbDataReader = cmd.ExecuteReader()
                While objDR.Read()
                    CompanyID = dr("CompanyID")
                    CompanyName = dr("CompanyName")
                    Add1 = dr("Address1")
                    Add2 = dr("Address2")
                    City = dr("CityName")
                    StateID = dr("StateID")
                    Postal = dr("Postal")
                    CntryID = dr("CntryID")
                    DefaultStateID = dr("DefaultStateID")
                    DefaultCntryID = dr("DefaultCntryID")
 Exit While
                End While
                dr.Close()
            Catch ex As Exception
 
                MessageBox.Show(ex.Message)
                Throw ex
 
            Finally
                dc.Close()
 
            End Try
        End If

Open in new window

Author Comment

by:Sheritlw

ID: 240360032009-03-31

Thanks, both ways work.
I will split points.
Thanks again,
Sheri

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Xml Literals

Article by: jpaulino

XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should. An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…

Visual Basic.NET

The ThreadPool: Multithreading for Performance

Article by: PaulHews

Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs. One of the ways we can do this is by implementing parallel algorithms in our software. One recent…

Visual Basic.NET

NetCrunch network monitor live walk-through

Video by: AdRem

NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…

display Triangles! and Circles! in a Microsoft Access Query -- Get Previous Record too

Video by: crystal

Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…