Reputation: 108
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As DataSet = New DataSet()
Dim param As SqlParameter = New SqlParameter("@user_code", SqlDbType.Char, 4)
param.Value = "0016"
Const sqlstr As String = "select sectors.sector_code,sector_name from user_sectors inner join sectors on user_sectors.sector_code = sectors.sector_code where user_code = @user_code and sectors.sector_code not in ('z')"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, _con)
da.SelectCommand.Parameters.Add("@user_code")
da.Fill(ds)
ddl.DataValueField = "sector_code"
ddl.DataTextField = "sector_name"
ddl.DataSource = ds.Tables(0)
ddl.DataBind()
End Sub
Upvotes: 2
Views: 4007
Reputation: 35706
Thats because its a SqlParameterCollection
and not a string
collection.
If you call the appropriate Add
overload it will however make the instance for you, if given enough information.
Like this perhaps,
Dim newParam = da.SelectCommand.Parameters.Add("@user_code", sqlDbType.Char, 4)
newParam.Value = "0016"
or, replace several lines like this
da.SelectCommand.Parameters.Add( _
New SqlParameter("@user_code", SqlDbType.Char, 4) With { .Value = "0016" }))
or, if you want to use many lines, just add
da.SelectCommand.Parameters.Add(param)
Upvotes: 1
Reputation: 263693
You should pass param
in add
da.SelectCommand.Parameters.Add(param)
Upvotes: 1
Reputation: 15413
I guess line
da.SelectCommand.Parameters.Add("@user_code")
should be
da.SelectCommand.Parameters.Add(param)
Upvotes: 2