Improve company productivity with a Business Account.Sign Up

x
?
Solved

Getting data into a vb.net form from Access database

Posted on 2010-08-17
12
Medium Priority
?
458 Views
Last Modified: 2012-05-10
Hello,

Would this code work? I am trying to count the number of "A" entered in the Response field.
the database is called Survey.
   
Dim number As Integer
        Dim con As OleDbConnection
        Dim comm As OleDbCommand
        Dim reader As OleDbDataReader
        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Survey.accdb;")
        comm = New OleDbCommand("Select count(Response)as number from Answers where SurveyID = 1 and QuestionID =1 and Response = 'A'", con)
        ' Open Connection
        con.Open()
        ' reader read comm
        reader = comm.ExecuteReader
        ' Get from the reader the UserName and UserPasswrod
        While reader.Read
            number = reader.Item("Response")

        End While
        con.Close()
       
       
       
0
Comment
Question by:adamtrask
  • 5
  • 4
  • 2
  • +1
12 Comments
 
LVL 6

Expert Comment

by:rbgCODE
ID: 33458069
Because you are using Count this should only return one value, and you don't need execute reader, what is the error you are getting?
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 33458075
add a space before "as"

comm = New OleDbCommand("Select count(Response) as number from Answers where SurveyID = 1 and QuestionID =1 and Response = 'A'", con)

or in access vba, just not sure if it will work on .net

comm = New OleDbCommand("Select count("*") as number from Answers where SurveyID = 1 and QuestionID =1 and Response = 'A'", con)
0
 

Author Comment

by:adamtrask
ID: 33458078
To tell you the truth I haven't tried it yet....
I'll do that now and get back to you
0
A proven path to a career in data science

At Springboard, we know how to get you a job in data science. With Springboard’s Data Science Career Track, you’ll master data science  with a curriculum built by industry experts. You’ll work on real projects, and get 1-on-1 mentorship from a data scientist.

 
LVL 6

Expert Comment

by:rbgCODE
ID: 33458121
or you can try this...

 Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\survey.accdb;Persist Security Info=False"
        Dim cmd As String = "Select Count(response) as iCount from Answers Where surveyID=1 and questionID=1 nad Response='A'"
        Dim adapter As New OleDbDataAdapter(cmd, conn)
        Dim rs As New DataSet
        adapter.Fill(rs)

rs.Count as well as rs("iCount") should tell you the total number of people who chose a.
0
 

Author Comment

by:adamtrask
ID: 33458441
This the error i am getting

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect
0
 
LVL 10

Expert Comment

by:Jini Jose
ID: 33458506
there is a spelling mistake in your code. change the nad to and before Response='A'"
0
 

Author Comment

by:adamtrask
ID: 33458708
rbgCODE:

It looks like it's working. The thing is I don't know how to extract the value contained in "rs".

Is it possible to do some thing like:
dim count as integer = rs.value....???
0
 
LVL 10

Expert Comment

by:Jini Jose
ID: 33458793
check the below link. you will get the basic idea

http://www.devdos.com/vb/lesson4.shtml


0
 
LVL 10

Expert Comment

by:Jini Jose
ID: 33458806
you can get the values as below

rs.Fields(0).Value


0
 

Author Comment

by:adamtrask
ID: 33458974
I get the following error:

Fields is not a member of system.Data.Dataset
0
 
LVL 10

Expert Comment

by:Jini Jose
ID: 33459057
sorry I posted the vb6 codes.
0
 

Accepted Solution

by:
adamtrask earned 0 total points
ID: 33461125
Thanks to every one who responded. I found the solution using the ExecuteScalar method which executes the SQL statement associated with the Command object and returns a single value. So in the case of the code above it would be some thing like that:

Dim Number as integer
comm = New OleDbCommand("Select count(Response)from Answers where SurveyID = 1 and QuestionID =1 and Response = 'A'", con)
con.Open()
Number =comm.ExecuteScalar
con.close()
0

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

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

Audit trails are very important in any system to hold people responsible for certain transactions and hold them to take ownership of their actions. This article is dedicated to all novice "Microsoft Access" developers.
With the functions here, you can parse, convert, and format back and forth between feet and inches and fractions and decimal inches - for normal as well as extreme values and with extreme precision.
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…

608 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