Sub Button1_Click(sender As Object, e As EventArgs)
Dim s As String = "Elementos seleccionados:<br>"
Dim i As Int32
'bandera para verificar si al menos selecciono un valor
Dim bln As Boolean = False
For i = 0 To check1.Items.Count - 1
If check1.Items(i).Selected Then
Iblmessage.Text = "Es necesario que seleccione al menos un servicio"
bln = True
Exit For
End If
bln = False
Next i
'selecciono al menos un servicio
If bln Then
For i = 0 To check1.Items.Count - 1
If check1.Items(i).Selected Then
GetData()
End If
Next
End If
End Sub
Private Sub
GetData()
Dim ds As DataSet
Dim strSql As String
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
strSql = " SELECT Agencia.Identificador as Agencia, Agencia.Direccion as Direccion, Agencia.Telefono as Telefono, Agencia.Estacionamiento as Agencia_Estacionamiento, Agencia.Cajero_Automatico as Cajero_Automatico, Agencia.Autobanco as Autobanco, Agencia.Taquilla_Externa as Taquilla_Externa, 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 += " AND Agencia.EstadoID=" & DropDownList1.SelectedItem.Value
strSql += " AND Agencia.CiudadID=" & DropDownList2.SelectedItem.Value
strSql += " AND Agencia.UbicacionID=" & 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").DefaultView
myDataGrid.DataBind()
End Sub