Xailer forum

HOLA A TODOS

NECESITO LLENAR UN ListBox CON LA ESTRUCTURA DE UNA TABLA MySQL

GRACIAS POR SU AYUDA

DANIEL PECHIR TAGER

Hola Daniel:

Teniendo una tabla de Mysql/MariaDb

tabla : tblgrupos

con 4 columnas:

GRUPO_ID,REFE,OFICINA,ACTIVA

y desea poner en un LISTBOX LA COLUMNA OFICINA ( columna 3)

LOCAL aData := {}, aDatos := {}, aGrupos:={}


aData := Appdata:cnn:QueryArray( "SELECT OFICINA From tblgrupos ORDER BY OFICINA" )

IF Len( aData ) == 0
MSGSTOP( "No Existen Registros de Oficinas Instaladas en el Sistema" )
::Close()
ENDIF

AEval( aData, {| X, N| AAdd( AAdd( aGrupos,X[ 3 ] ) } ) // x[3] coloumna 3 en la tabla que corresponde a "OFICINA"

::oListGrupo:aItems := aGrupos
::oListgrupo:Refresh()


Saludos...

GRACIAS MARTIN

YO NECESITO MOSTRAR LA ESTRUCTURA EN EL LISTBOX ( NOMBRE DE LAS COLUMNAS DE LA TABLA )

DANIEL PECHIR TAGER

Hola Daniel:

Disculpa . no lei bien tu mensaje.

con este select obtienes los nombres de las columnas:

SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_SCHEMA = 'nombre base de datos' AND TABLE_NAME = 'nombretabla'

Saludos...

GRACIAS MARTIN

DIOS TE BENDICE

DANIEL

PERDON MARTIN

YO MADO EL SIGUIENTE QUERY

cSelect := "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE "+;
"TABLE_SCHEMA = '"+AppData:cDataBase+"' and Table_Name = '"+cArchivo+"'"

WITH OBJECT ::oConsu
:oDataSource := AppData:oMySqlDS
:cSelect := cSelect
:nCursorType := adOpenDynamic
:nLockType := adLockOptimistic
:cProcess := 'GENERAL'
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir el archivo", "Error de conexion.." )
RETURN NIL
ENDIF
ENDIF
:lReadOnly := .F.
END

DESPUES LO ABRO CON FAST REPORT, PERO SOLO MUESTRA UN CAMPO "COLUMN_NAME" EL CUAL ESTA VACIO

COMO OBTENDO UNA MATRIZ CON LOS NOMBRES DE LAS COLUMNAS ?

DANIEL

Daniel Pechir escribió:COMO OBTENDO UNA MATRIZ CON LOS NOMBRES DE LAS COLUMNAS ?

Revisa la propiedad aFields del dataset. Contiene un array con todos los campos (columnas) del dataset, donde cada elemento es un objeto del tipo TDataField

YA ESTA

GRACIAS JOSE

DIOS TE BENDICE

DANIEL