Solved

Error in Select Statement VB 2008

Posted on 2009-03-31

Visual Basic.NET

2 solutions

Medium Priority

194 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 1000 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 1000 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

Remote Share

Article by: Kraeven

Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…

Visual Basic.NET

.NET Working Day Calculator

Article by: käµfm³d 👽

Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.

How to run like The Flash in Adobe After Effects

Video by: John

This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

Adobe Creative Suite CS

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…