Hola.. les planteo mi duda, ojalá puedan orientarme.
Tengo un datalist en el cual muestro distintas ciudades y pretendo que al hacer click sobre una ciudad me muestre toda la información referente a esta.
El datalist ya esta conectado correctamente con la Bd.
Mi problema es que no se de que forma mover el recordset.. Este siempre apunta en la primera posición del datalist. las flechas del teclado no permiten apuntar a otras ciudades.. Sin embargo con el mouse si puedo ver otras ciudades porqeu de alguna manera forzo al recordset.
Pero sé que lo que hago no está bien hecho, me pueden ayudar.
Al cargar el formulario manda llamar listado 'muestra las ciudades en el Datalist
Public Sub Listado()
Dim Sql As String
Sql = "Select Director, gerente"
Sql = Sql & ", direccion, Colonia "
Sql = Sql & ",Cp, Ciudad, Estado from Plaza order by ciudad"
If Rs.State <> adStateClosed Then
Rs.Close
End If
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cn, adOpenStatic
Set DataList1.RowSource = Rs
DataList1.ListField = "Ciudad"
DataList1.BoundColumn = "Ciudad"
End Sub
Private Sub DataList1_Click()
Dim Sql As String
ciudad = DataList1.Text
Sql = "Select * From Plaza Where Ciudad= '" & ciudad & "'"
If Rs.State <> adStateClosed Then
Rs.Close
End If
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cn, adOpenStatic
TxtDirector.Text = Rs!Director
TxtCiudad.Text = Rs!ciudad
...............
TxtEstado.Text = Rs!estado
Rs.Close
ListarPlazas
End Sub
Tienen idea de que puedo hacer.. Gracias por leerme..
