Buenos días Amigos!! Como Siempre yo buscando respuestas de las cosas que no se o que no puedo resolver. Tengo un programita que ya termine y se me ocurrió agregarle un detalle más. En una Form tengo
2 DataCombo. Uno de ellos lo tengo conectado por medio de un
Command de una Conexión de un
DataEnvironment el cual me regresa los nombres de unas Especialidades Médicas ingresadas en una tabla (llamada Especialidades), y el otro sin Command. Lo que me gustaría es que al elegir la especialidad me devuelva una lista con los Médicos que dan consultas en esa especialidad (Almacenados en otra tabla llamada Medicos). De la manera que en este momento lo tengo declarado me devuelve el primer registro que coincide con esta especialidad como ya mencione desearía poder generar una lista de todos los que practícan esa especialidad. Mi actual declaración esta de esta manera.
Private Sub DataEspecialidad_Click(Area As Integer)
Dim rsConsulta7 As ADODB.Recordset
Set rsConsulta7 = New ADODB.Recordset
strVALOR_ESP = DataEspecialidad.Text
SQL = "SELECT * FROM Medicos WHERE NombreEspecialidad = '" & Me.DataEspecialidad.BoundText & "' ORDER BY NombreEspecialidad;"
rsConsulta7.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly ', adCmdText
If rsConsulta7.EOF = False And rsConsulta7.BOF = False Then
DataMedico.Text = rsConsulta7.Fields("NombreMedico")
rsConsulta7.MoveNext
End If
End Sub
Desde ya muchas gracias a quien desee colaborar!!!
