Mensaje enviado por Salvador Sánchez Enciso <ssanchez@mazatlan.gob.mx>

Ok, gracias así lo voy a hacer...
Sobre tu código voy a hacer la siguiente modificación

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
strSQLcli = "Select * from Clientes Order by " & DataGrid1.Columns(ColIndex).DataField
                                                                    ' --------------------- Aquí obtienes el nombre de la columna

   If rstCli.State = 1 Then rstCli.Close
   rstCli.Open strSQLcli, cnnCli, adOpenDynamic, adLockReadOnly
   Set DataGrid1.DataSource = rstCli
End Sub

DataGrid1.Columns(ColIndex).DataField




----- Original Message -----
From: Jordi L.R.
To: visualbasic-esp@egroups.com
Sent: Saturday, September 30, 2000 1:27 PM
Subject: RE: (VB-ESP) DataGrid ((((--Reordenarlo ---))))

Hola Salvador!

    Sin otro Recordset...me parece que no!!, lo que yo utilizo es esto
miratelo a ver si te sirve.

********************************************************************************
Option Explicit

Dim strSQLcli As String
Dim cnnCli As ADODB.Connection
Dim rstCli As ADODB.Recordset
______________________________________________________________________

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
   Select Case ColIndex
       Case 0
           strSQLcli = "Select * from Clientes Order by CodCliente"
       Case 1
           strSQLcli = "Select * from Clientes Order by NombreCli"
       Case 2
           strSQLcli = "Select * from Clientes Order by DomicilioCli"
       End Select
   If rstCli.State = 1 Then rstCli.Close
   rstCli.Open strSQLcli, cnnCli, adOpenDynamic, adLockReadOnly
   Set DataGrid1.DataSource = rstCli
End Sub
_______________________________________________________________________
Private Sub Form_Load()

Set cnnCli = New ADODB.Connection
Set rstCli = New ADODB.Recordset

rstCli.Index = "CodCliente"
rstCli.CursorLocation = adUseClient

cnnCli.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\InfoConta\Infoconta\InfoConta.mdb;Persist Security Info=False"
cnnCli.Open

If rstCli.State = 1 Then rstCli.Close
strSQLcli = "Select * from Clientes Order By CodCliente "
rstCli.Open strSQLcli, cnnCli, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = rstCli
End Sub
_________________________________________________________________________

********************************************************************************
----- Original Message -----
From: Salvador Sánchez Enciso
To: Foro Visual 2 ; Foro Visual
Sent: Friday, September 29, 2000 9:28 AM
Subject: (VB-ESP) DataGrid ((((--Reordenarlo ---))))

Tengo un datagrid al cual le asigno un recordset........

Mi pregunta es .....

Al asignarle el recordset se muestran los datos en el datagrid de acuerdo al orden establecido en el recordset, ¿Cómo puedo cambiar el orden en el datagrid sin tener que volver a asignarle de nueva cuenta otro recordset ?

Lo que quiero hacer es que al dar doble click en el encabezado de columna, ordene el datagrid de acuerdo a éste........

Gracias
Salvador Sánchez Enciso
MEX