Neivan, ahora si nos entendimos
, funciona como tenia que ser
Sin embargo si yo ahora quisiera que si el usuario no selecciona ningún valor para los campos de de estado ciudad y ubicación geográfica se desplegarán todas las coincidencias para el servicio seleccionado.
Se me ocurrio hacelo asi, que va por alli como que no es la cosa
Sub Button1_Click(sender As Object, e As EventArgs)
Dim s As String = "Elementos seleccionados:<br>"
Dim i As Int32
Dim j As Int32
For i = 0 to Check1.Items.Count-1
If not Check1.Items(i).Selected Then
Iblmessage.Text = "Es necesario que seleccione un servicio"
Else If Check1.Items(i).Selected Then
Iblmessage.Text=""
Dim ds As DataSet
Dim strSql As String
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
strSql = " SELECT "
For j = 0 To Check1.Items.Count - 1
If Check1.Items(j).Selected Then
' Entra si esta seleccionado
strSql += " " & Check1.Items(j).value & ", "
end if
Next
strSql += " Agencia.Identificador as Agencia, Agencia.Direccion as Direccion, Agencia.Telefono as Telefono, Estado.Nombre_Estado as Estado, Ciudad.Nombre_Ciudad as Ciudad, Ubicacion.Descripcion as Ubicación From Agencia, Estado, Ciudad, Ubicacion "
strSql += " WHERE Agencia.EstadoID=Estado.EstadoID"
strSql += " AND Agencia.CiudadID=Ciudad.CiudadID"
strSql += " AND Agencia.UbicacionID=Ubicacion.UbicacionID"
strSql += " " & DropDownList1.SelectedItem.Value & ", "
strSql += " " & DropDownList2.SelectedItem.Value & ", "
strSql += " " & DropDownList3.SelectedItem.Value & ", "
MyConnection = New SqlConnection("SERVER=MDS01; DATABASE=be; INTEGRATED SECURITY=false;PASSWORD=sa;USER=sa")
MyCommand = New SqlDataAdapter(strSql, MyConnection)
ds = new DataSet()
MyCommand.Fill(ds, "Agencia")
MyDataGrid.DataSource=ds.Tables("Agencia").Default View
MyDataGrid.DataBind()
End If
Next
No se si me captas, si el usuario selleciona los combos de ubicaion, estado y ciudad debeb buscar los servicios por ubicacion regional pero si nolos selecciona dbeb buscar todas las coincidencias de servicio