Ayuda en ADODC

Alexforo
04 de Agosto del 2004
Como puedo simplificar esto ya que hago una consulta de una tabla por cada campo y se me ha junatdo mucho codigo(puesto que son varios campos)

Esto es lo que tengo

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case Is = 0
Frame7.Visible = True
Exit Sub

Case Is = 1
Adodc1.RecordSource = "SELECT * FROM Dominios ORDER BY Dominio"
Adodc1.Refresh

Case Is = 2
Adodc1.RecordSource = "SELECT * FROM Dominios ORDER BY Termina"
Adodc1.Refresh

Case Is = 3
Adodc1.RecordSource = "SELECT * FROM Dominios ORDER BY Periodo"
Adodc1.Refresh

Etc Etc
'Y asi estas estas intrucciones se repiten pero por cada campo

End Sub

Me pueden decir una forma de simplificarlo espero su ayuda gracias ¡¡

Bartolom
04 de Agosto del 2004
Asumiendo que el elemento Nº 0 no sirve, el Nº 1 de la lista corresponde a DOMINO, el Nº 2 a Termina y así sucesivamente, entonces haz el procedimiento así:

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case Is = 0
Frame7.Visible = True
Exit Sub
End Select


Adodc1.RecordSource = "SELECT * FROM Dominios ORDER BY '" & Text1.Text & "' "
Adodc1.Refresh

End sub

Así logras que una sola instrucción haga el trabajo, dependiendo de un parámetro variable, en este caso el contendio del combo, o sea, Combo1.Text

Saludos!
Bartolom
Chile