The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.
Error in Select Statement VB 2008
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
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
Asked:
2 Solutions
try this also
refer
http://aspnet101.com/aspnet101/tutorials.aspx?id=17
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
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
Open in new window