ExecuteReader: Connection property has not been initialized.

Using vb.net 2005 - I just need to run a quick query...and return the results.
I have the query defined in Access (2003), so if it works to just execute that, I'm okay with that route as well...
Here's my code:

Dim strSQL As String = "SELECT EntryDate, UserName, IIf(Decision=True,'gratned','denied') AS Permitted, Amount FROM tblHistory WHERE ShareName=[@ShareName];"
Dim sConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\*****\*****\tsset.mdb;" 'server data masked

Dim con As OleDbConnection = New OleDbConnection(sConStr)
con.Open()
Dim ShareParm As New OleDbParameter
With ShareParm  'I've not used parameters before, so maybe I didn't set this up correctly?
  .ParameterName = "@ShareName"
  .OleDbType = OleDbType.VarChar
  .Size = 50
  .Value = txtShare.Text
End With

Dim cmd As OleDbCommand = New OleDbCommand(strSQL)
cmd.Parameters.Add(ShareParm)

Dim dr As OleDbDataReader = cmd.ExecuteReader  ' <<<  This is where it bombs with the error in the title

While dr.Read
   ....
LVL 67
sirbountyAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

SanclerCommented:
Add

cmd.Connection = con

after

Dim cmd As OleDbCommand = New OleDbCommand(strSQL)

Roger
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
sirbountyAuthor Commented:
Yay!  It's Roger (aka, Mr. Patience)  :^)
Let me give that a shot...thanx.
0
sirbountyAuthor Commented:
I got a ContextSwitchDeadlock (oh my! )
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

sirbountyAuthor Commented:
Hmm - worked that time (I was stepping before)...but when it gets to the dr.read section, it skips right over, as if it's not 'read' anything...any idea (or does this take us outside of the scope of the original question?)
0
SanclerCommented:
Turn this

"SELECT EntryDate, UserName, IIf(Decision=True,'gratned','denied') AS Permitted, Amount FROM tblHistory WHERE ShareName=[@ShareName];"

into this

"SELECT EntryDate, UserName, IIf(Decision=True,'gratned','denied') AS Permitted, Amount FROM tblHistory WHERE ShareName = ?;"

or even this

"SELECT EntryDate, UserName, IIf(Decision=True,'gratned','denied') AS Permitted, Amount FROM tblHistory WHERE ShareName = ?"

OleDb uses ? rather than names as placeholders and then applies the parameters in the ORDER in which they are referred to rather than using their NAMES.

Roger
0
SanclerCommented:
And is 'gratned' intended to be 'granted'?  Not that that should affect operation ;-)

Roger
0
sirbountyAuthor Commented:
No it doesn't - and I've flipflopped that numerous times (because in the Access query, it's misspelled...I keep copying from that and then updating it in my code...haha) - but thanx for noticing...
0
sirbountyAuthor Commented:
Hmm - nope, neither work.
Since you've obviously solved the question as stated, I'll open this in a new one...(hoping that you'll help me there as well! :^)
0
sirbountyAuthor Commented:
http://www.experts-exchange.com/Q_22468189.html if you're interested.
Thanx Roger. :^)
0
sirbountyAuthor Commented:
<smack> - I was testing this in my form_load...so my txtShare was empty! lol...
Thanx Roger
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

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.