Must declare the scalar variable "@CheckUser"

[Tony M]

vs 2005 - vb .net - web forms - xp pro

Can't figure out why I keep getting the error Must declare the scalar
variable "@CheckUser".
The error happens on SqlDA.Fill(SqlDS). Just trying to make sure EMail
address doesn't exist in database before I insert data.
Connection string and everything else is correct. If I use Dim SQL = "Select
* from Clients where EMail = " & chr(39) & "So**************@msn.com" &
chr(39) it works fine.
Dim parmIfExist As New SqlParameter("@CheckUser", txtEmail.Text)
SQL = "Select * from Clients where EMail = @CheckUser"
SqlCmd.CommandText = SQL
SqlCmd.Connection() = SQLcon
SqlCmd.Connection.Open()
SqlCmd.Parameters.Clear()
SqlCmd.Parameters.Add(parmIfExist)
Dim SqlDA As New SqlDataAdapter(SQL, SQLcon)
Dim SqlDS As New Data.DataSet()
Dim DR As Data.DataRow

SqlDA.Fill(SqlDS) << Error on this line Must declare the scalar variable
"@CheckUser".

If SqlDS.Tables(0).Rows.Count = 0 Then
Do stuff
end if
Thanks

[Teemu Keiski]

Hi,

you don't use the SqlCmd object which has the SqlParameter associated,
instead you pass the SQL directly to the data adapter when it wouldn't have
knowledge of the parameter.

"Dim SqlDA As New SqlDataAdapter(SQL, SQLcon)"

Solution would be:

Construct the SqlDataAdapter with the SqlCmd

OR

Omit SqlCmd and set parameter directly with
SqlDa.SelectCommand.Parameters.Add(...)

--
Teemu Keiski
ASP.NET MVP, AspInsider
Finland, EU
http://aspadvice.com/blogs/joteke

"Tony M" <To*************@msn.comwrote in message
news:uq**************@TK2MSFTNGP05.phx.gbl...

>
vs 2005 - vb .net - web forms - xp pro

Can't figure out why I keep getting the error Must declare the scalar
variable "@CheckUser".
The error happens on SqlDA.Fill(SqlDS). Just trying to make sure EMail
address doesn't exist in database before I insert data.
Connection string and everything else is correct. If I use Dim SQL =
"Select * from Clients where EMail = " & chr(39) &
"So**************@msn.com" & chr(39) it works fine.
Dim parmIfExist As New SqlParameter("@CheckUser", txtEmail.Text)
SQL = "Select * from Clients where EMail = @CheckUser"
SqlCmd.CommandText = SQL
SqlCmd.Connection() = SQLcon
SqlCmd.Connection.Open()
SqlCmd.Parameters.Clear()
SqlCmd.Parameters.Add(parmIfExist)
Dim SqlDA As New SqlDataAdapter(SQL, SQLcon)
Dim SqlDS As New Data.DataSet()
Dim DR As Data.DataRow

SqlDA.Fill(SqlDS) << Error on this line Must declare the scalar
variable "@CheckUser".

If SqlDS.Tables(0).Rows.Count = 0 Then
Do stuff
end if
Thanks