Tengo una base de datos de acces con ado y queria crear un boton el cual hiciera que el campo nombre ordenara alfabeticamente todo el datagrid

y tambien otro para que el campo codigo se ordene de mayor a menor...

creo que se puede y es facil pero la verdad no encuentro nada...

espero puedan ayudarme...Edited by: bromx

Te pongo un ejemplo que ordena el DataGrid según la columna (encabezamiento) pinchado.

Código:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
 Static sOrden As String
 sOrden = IIf(sOrden = "asc", "desc", "asc")
 Adodc1.RecordSource = "Select * From [LaTabla] Order By [" & _
 DataGrid1.Columns(ColIndex).DataField & "]" & sOrden
 Adodc1.Refresh
End Sub

Lo puedes adaptar a un CommandButton.

Saludos

mil disculpas pero habia perdido la brujula y me habia olvidado que ya habia hecho el post... lo habia hecho apurado...

tengo un problema...

Private Sub Command1_Click()
Static sOrden As String
sOrden = IIf(sOrden = "asc", "desc", "asc")
datos.RecordSource = "Select * From [Datagrid1] Order By [" & _
DataGrid1.Columns(ColIndex).DataField & "]" & sOrden
datos.Refresh
End Sub

en la linea DataGrid1.Colums(ColIndex) etc....

me tira error en columns de variable no definida...

probe poniendole los nombres de mis columnas pero mismo error... perdon por la ignorancia...

gracias por la ayuda

Si te fijas en el ejemplo, el código no va en el evento click de un CommandButton, sino al pinchar en el encabezado del DataGrid.


Para hacerlo desde un CommandButton:


datos.RecordSource = "Select * From [NombreDeLaTabla] Order By [NombreDelCampo]" & sOrden

Supongo de "datos" es un control Data ADO (Adodc).

Saludos

me sigue tirando un pequeño error

Private Sub Command1_Click()
Datos.RecordSource = "Select * From [DataGrid1] Order By [Nombre]" & sOrden
End Sub

y marca el sOrden como variable not defined

Te pongo el código completo:

Private Sub Command1_Click()
Static sOrden As String
sOrden = IIf(sOrden = "asc", "desc", "asc")
datos.RecordSource = "Select * From [Datagrid1] Order By [Nombre]" & sOrden
datos.Refresh
End Sub

¿La tabla se llama Datagrid1?

Saludos

uh perdon por apurado me pasa... agradezco tu paciencia

si la tabla se llama datagrid1

ahora me tira un arrod de sintaxis en la clausula from

y me marca la linea datos.Refresh

alguna idea? es raro eso...

¿Cómo conectas el control Data "datos" la primera vez?

Cuando pregunto porla tabla no me refiero al Grid, si no al nombre dela tabla (donde se guardan los registros)de la BD.

Saludos

de donde saco el nombre de la tabla?

en el datagrid tengo un filtro tambien que funciona bien... no se si te sirve de ayuda para ayudarme valga la redundancia...

Private Sub txtFiltro_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If txtFiltro <> "" Then
datos.Recordset.Filter = "Nombre LIKE '*" + txtFiltro + "*'"
Else

datos.Recordset.Filter = ""
datos.Refresh
End If

KeyAscii = 0
End If
End Sub

Vamos a ello.
El nombre de la tabla es el que has puesto en lapropiedadRecordSource del control Adodc, ya sea en diseño o por código.

Saludos

ahi estamos... el nombre RecordSource es taller que es el nombre de la base hecha en access entonces por lo tanto tendria que quedar asi, no?:

Private Sub Command1_Click()
Static sOrden As String
sOrden = IIf(sOrden = "asc", "desc", "asc")
datos.RecordSource = "Select * From [taller] Order By [Nombre]" & sOrden
datos.Refresh
End Sub

pero me sigue tirando error de sintaxis en el From y me marca el datos.refresh

gracias por la paciencia nuevamente

Edited by: bromx

Bien, parece que vamos llegando al final.


En diseño, te posicionas sobre el control Adodc "datos" y en la lista de propiedades busca "CommandType" y le pones la opción 1 - adCmdText
Saludos

cuando quiero poner la opcion 1 adCmdText me tira un error que dice: "Instruccion sql no valida, se esperaba: Delete, insert procedure update insert o select...

Bueno. Ahora en diseño del control Adodc vas a la lista de propiedades y en RecordSource tendrás puesto taller no?. Pues lo sustituyes por esto:
Select * From taller
y ya le puedes modificar la propiedad CommandType a 1.

Saludos

gracias maestro funciona de las mil maravillas sos un fenomeno... no sabes como te lo agradezco!

tengo una ultima duda mas sencilla aun...
como hago para que una caja de texto de entrada permita multilinea o sea que cuando el usuario presione enter baje a otro renglon para poner mas detalles pero dentro del mismo box?