Autor Tema: Recuperar El Nombre Del Campo (Leído 2918 veces)

pmike · « **en:** Miércoles 8 de Marzo de 2006, 22:39 »

Hola amigos.
Intento recuperar el nombre del campo de un dato en concreto de un DataGrid cuando se clica sobre el.

tengo el siguiente procedimiento pero solo me da el numero de la columna y registro (row y col)

Private Sub DataGridE_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

' Imprime el texto, fila y columna de la celda que pulsó el usuario.
Debug.Print DataGridE.Text; DataGridE.Row; DataGridE.Col

End Sub

Simplemente deseo recuperar el nombre del campo por ejemplo

hago clik en miguel para que me devuelva nombre.

Gracias

pmike · « **Respuesta #1 en:** Jueves 9 de Marzo de 2006, 20:32 »

Ya esta encontre la solucion, no era dificil.

Para recuperar el nombre de los atributos de una tabla en una bd.
Una vez producida la conexion con la bd definimos un tipo de field llamado 'campo'
y tambien un recordset para recorrer la bd q es 'rsConulTodo'
y luego devolvemos los atributos(name) y el valor de los mismos(Value) a un simple List mediante un bucle

campo As ADODB.Field

For Each campo In rsConsulTodo.Fields

List1.AddItem " " & campo.Name & ""
List2.AddItem "" & campo.Value & ""

Next campo

gege nada dificil

nos vemos

RadicalEd · « **Respuesta #2 en:** Jueves 9 de Marzo de 2006, 22:14 »

En el evento Click del DataGrid puedes colocarlo más facil todavia.

List1.AddItem DataGrid1.Text

Ojala te sirva.
Chao

pmike

Veras RadicalEd.

Lo q consigues con

List1.AddItem DataGrid1.Text

es devolver de la bd el contenido de la informacion a un atributo dado
pero no el nombre de dicho atributo

No es lo mismo devolver
edad ->nombre del atributo de la bd
22 -> valor del atributo

salud

Jose Arriagada

Estas funciones te entregan informacion de tu consulta a una tabla

** Cantidad de registros recuperados

CantReg = control.RECORDCOUNT - 1

** Cantidad de Columnas

CantCols = control.FIELDS.COUNT - 1

** Nombre de los campos

for i = 0 to CantCols
NombreCampo = control.FIELDS( i ).NAME
next i

** Valor de los campos
for i = 0 to CantCols
ValorCampo = control.FIELDS( i ).value
next i

DiabloRojo

Supongo que lo que deseas es devolver el nombre de la columna. Hace un buen rato que no trabajo con el datagrid pero creo que puedes obtener ese valor capturando el valor de la columna y asignando 0 al valor de la fila. Algo así:

Código: Text

 
Private Sub Datagrid1_Click()
   Dim ColActual as Integer
   Dim NombreCampo as String
   '
   'Capturas
   ColActual=Datagrid1.Col
   '
   'Estableces la celda activa
   Datagrid1.Col=ColActual
   DataGrid1.Row=0
   '
   NombreCampo=DataGrid1.Text
End
 
 

Mummmm... escribiendo el código me doy cuenta que no necesitas capturar la columna actual (pues esta no cambiará) lo único que necesitas es establecer la propiedad row a 0 (cero) para ubicarte en la primera fila (que asumo es fija y contiene los nombres de los campos).

Espero que sea lo que buscas.

Saludos.

DiabloRojo

DiabloRojo

Hola pmike. Pues me quedé con la duda después de enviar el post anterior y me puse a revisar en el VB. Lamentablemente no es la respuesta correcta o al menos en mi compu no funciona (últimamente he tenido problemas con ella). Dando y dando llegué a esto:

Código: Text

 
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   On Error Resume Next
   'Muestra el contenido de la cabecera de la columna
   Text1.Text = Adodc1.Recordset.Fields(DataGrid1.ColContaining(X)).Name
   'Establece la celda activa del grid
   DataGrid1.Col = DataGrid1.ColContaining(X)
   DataGrid1.Row = DataGrid1.RowContaining(Y)
   'Muestra el contenido de la celda activa
   Text2.Text = DataGrid1.Text
End Sub
 
 

Creé un pequeño proyecto que consta de 2 textbox, 1 datagrid y 1 adodc. El On Error Resume Next es por si el usuario hace click en los encabezados de columna. Ahora sí, espero que sea lo que andas buscando.

Saludos

DiabloRojo.

SoloCodigo

Autor Tema: Recuperar El Nombre Del Campo (Leído 2918 veces)

pmike

Recuperar El Nombre Del Campo

pmike

Re: Recuperar El Nombre Del Campo

RadicalEd

Re: Recuperar El Nombre Del Campo

pmike

Re: Recuperar El Nombre Del Campo

Jose Arriagada

Re: Recuperar El Nombre Del Campo

DiabloRojo

Re: Recuperar El Nombre Del Campo

DiabloRojo

Re: Recuperar El Nombre Del Campo