Ayuda en ADODC
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 ¡¡
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 ¡¡
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
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