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
3975 次
3 に答える
2
推しライン
da.SelectCommand.Parameters.Add("@user_code")
する必要があります
da.SelectCommand.Parameters.Add(param)
于 2012-10-04T09:13:50.387 に答える
1
param
パスする必要がありますadd
da.SelectCommand.Parameters.Add(param)
于 2012-10-04T09:14:45.553 に答える
1
それはコレクションSqlParameterCollection
ではないからです。string
ただし、適切なAdd
オーバーロードを呼び出すと、十分な情報があればインスタンスが作成されます。
このように、おそらく、
Dim newParam = da.SelectCommand.Parameters.Add("@user_code", sqlDbType.Char, 4)
newParam.Value = "0016"
または、このようにいくつかの行を置き換えます
da.SelectCommand.Parameters.Add( _
New SqlParameter("@user_code", SqlDbType.Char, 4) With { .Value = "0016" }))
または、多くの行を使用する場合は、追加するだけです
da.SelectCommand.Parameters.Add(param)
于 2012-10-04T09:11:11.173 に答える