急求:关于一下dataadapter带参数的问题
源码如下:
Dim cmbclassda As New SqlDataAdapter()
cmbclassda.SelectCommand = New SqlCommand("select top 3 班级编号 from tb_class where 班级级别=1 order by 班级序号 desc", mycon)
mycon.Open()
cmbclassda.Fill(cmbclassds, "dsclass")
mycon.Close()
cmbclass.Items.Clear()
For i = 0 To cmbclassds.Tables("dsclass").Rows.Count - 1
cmbclass.Items.Add(cmbclassds.Tables("dsclass").Rows(i)(0))
Next
不带参数的可以正常运行!可我想要指定显示几条还有班级级别也由外部参数调用,如下:
Dim cmbclassda As New SqlDataAdapter()
cmbclassda.SelectCommand = New SqlCommand("select top (@a) 班级编号 from tb_class where 班级级别=@b order by 班级序号 desc", mycon)
With cmbclassda.SelectCommand
.Parameters.Add("@a", SqlDbType.Int)
.Parameters.Add("@b", SqlDbType.Int)
'topnum,intjb是由其它控件获取的两个数值
.Parameters("@a").Value = topnum
.Parameters("@b").Value = intjb
End With
mycon.Open()
cmbclassda.Fill(cmbclassds, "dsclass")
mycon.Close()
cmbclass.Items.Clear()
For i = 0 To cmbclassds.Tables("dsclass").Rows.Count - 1
cmbclass.Items.Add(cmbclassds.Tables("dsclass").Rows(i)(0))
Next
结果就没反映了!这程序错在哪啊?