Solved

Error in Select Statement VB 2008

Posted on 2009-03-31
3
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

0
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
3 Comments
 
LVL 9

Accepted Solution

by:
cdaly33 earned 250 total points
ID: 24035921
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

0
 
LVL 39

Assisted Solution

by:Pratima Pharande
Pratima Pharande earned 250 total points
ID: 24035945
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

0
 

Author Comment

by:Sheritlw
ID: 24036003
Thanks, both ways work.
I will split points.
Thanks again,
Sheri
0

Featured Post

Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

Question has a verified solution.

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

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…
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…
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…
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…

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question