filtrar datos hola tengo el siguiente codigo que me filtra los datos y ademas hace otras cosas pero nesecito saber que debo cambiarle ya que mi actual codigo no tiene en el select where y tampoco order by
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
If Not Page.IsPostBack Then
DropDownList1.DataTextField = "ubicacion"
DropDownList1.DataSource = MyQueryMethod2()
DropDownList3.DataTextField = "item"
DropDownList3.DataSource = MyQueryMethod3()
DropDownList4.DataTextField = "equipo"
DropDownList4.DataSource = MyQueryMethod4()
DropDownList5.DataTextField = "lugar"
DropDownList5.DataSource = MyQueryMethod5()
DropDownList5.DataBind()
DropDownList4.DataBind()
DropDownList3.DataBind()
DropDownList1.DataBind()
DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, "", "", "")
DataGrid1.DataBind()
viewstate("vcolumna") = "Lugar"
viewstate("vorden") = "ASC"
End If
End Sub
Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, "", "", "")
DataGrid1.DataBind()
campoorden.Text = ""
If DropDownList1.SelectedItem.Text = "moneda" Then
viewstate("vcolumna") = "Lugar"
viewstate("vorden") = "ASC"
Else
viewstate("vcolumna") = "Lugar"
viewstate("vorden") = "ASC"
End If
End Sub
Function MyQueryMethod(ByVal ubicacion As String, ByVal item As String, ByVal equipo As String, ByVal lugar As String) As System.Data.DataSet
Dim connectionString As String = "server=; user id=''; password=''; database="
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String
queryString = "SELECT [Inventario].[Lugar], [Inventario].[Equipo], [Inventario].[Modelo], [Inventario].[Serie], [Inventario].[Inventario], [Inventario].[Item] FROM [Inventario]"
queryString = queryString & " WHERE ([Inventario].[Ubicacion] = @Ubicacion)"
If item <> "" Then
queryString = queryString & " and ([Inventario].[item] = @item)"
End If
If equipo <> "" Then
queryString = queryString & " and ([Inventario].[equipo] = @equipo)"
End If
If lugar <> "" Then
queryString = queryString & " and ([Inventario].[lugar] = @lugar)"
End If
queryString = queryString & " order by lugar "
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand()
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_ubicacion As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_ubicacion.ParameterName = "@Ubicacion"
dbParam_ubicacion.Value = ubicacion
dbParam_ubicacion.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_ubicacion)
If item <> "" Then
Dim dbparam_item As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbparam_item.ParameterName = "@item"
dbparam_item.Value = item
dbparam_item.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbparam_item)
End If
If equipo <> "" Then
Dim dbparam_equipo As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbparam_equipo.ParameterName = "@equipo"
dbparam_equipo.Value = equipo
dbparam_equipo.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbparam_equipo)
End If
If lugar <> "" Then
Dim dbparam_lugar As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbparam_lugar.ParameterName = "@lugar"
dbparam_lugar.Value = lugar
dbparam_lugar.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbparam_lugar)
End If
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter()
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet()
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Private Sub DropDownList2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged
'datagrid1.datasource=myquerymethod(dropdownlist2. items(datagrid1.pagesize).text)
DataGrid1.PageSize = CInt(DropDownList2.SelectedItem.Value)
If campoorden.Text = "" Then
DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text(), IIf((campoitem.Text = ""), "", DropDownList3.SelectedItem.Text), IIf((campoequipo.Text = ""), "", DropDownList4.SelectedItem.Text), IIf((campolugar.Text = ""), "", DropDownList5.SelectedItem.Text))
Else
Dim dv As New System.Data.DataView()
dv.Table = MyQueryMethod(DropDownList1.Items(DropDownList1.Se lectedIndex).Text, IIf((campoitem.Text = ""), "", DropDownList3.SelectedItem.Text), IIf((campoequipo.Text = ""), "", DropDownList4.SelectedItem.Text), IIf((campolugar.Text = ""), "", DropDownList5.SelectedItem.Text)).Tables(0)
dv.Sort = campoorden.Text
DataGrid1.DataSource = dv
End If
'DataGrid1.DataBind()
'DataGrid1.DataSource = MyQueryMethod(DropDownList1.Items(DropDownList1.Se lectedIndex).Text, DropDownList4.SelectedItem.Text)
DataGrid1.DataBind()
End Sub
Private Sub DropDownList3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
campoequipo.Text = ""
campolugar.Text = ""
'DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, DropDownList3.SelectedItem.Text, DropDownList4.SelectedItem.Text)
DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, DropDownList3.SelectedItem.Text, "", "")
campoitem.Text = DropDownList3.SelectedItem.Text
DataGrid1.DataBind()
End Sub
Private Sub DropDownList4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList4.SelectedIndexChanged
campoitem.Text = ""
campolugar.Text = ""
'DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, DropDownList3.SelectedItem.Text, DropDownList4.SelectedItem.Text)
DataGrid1.DataSource = MyQueryMethod(DropDownList1.SelectedItem.Text, "", DropDownList4.SelectedItem.Text, "")
campoequipo.Text = DropDownList4.SelectedItem.Text
DataGrid1.DataBind()
End Sub
