Página 1 de 1
ListBox - MySQL
Publicado: Jue Oct 27, 2016 8:48 pm
por Daniel Pechir
HOLA A TODOS
NECESITO LLENAR UN ListBox CON LA ESTRUCTURA DE UNA TABLA MySQL
GRACIAS POR SU AYUDA
DANIEL PECHIR TAGER
Re: ListBox - MySQL
Publicado: Vie Oct 28, 2016 3:08 am
por martindelangel
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...
Re: ListBox - MySQL
Publicado: Vie Oct 28, 2016 7:28 pm
por Daniel Pechir
GRACIAS MARTIN
YO NECESITO MOSTRAR LA ESTRUCTURA EN EL LISTBOX ( NOMBRE DE LAS COLUMNAS DE LA TABLA )
DANIEL PECHIR TAGER
Re: ListBox - MySQL
Publicado: Vie Oct 28, 2016 9:12 pm
por martindelangel
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...
Re: ListBox - MySQL
Publicado: Vie Oct 28, 2016 9:23 pm
por Daniel Pechir
GRACIAS MARTIN
DIOS TE BENDICE
DANIEL
Re: ListBox - MySQL
Publicado: Vie Oct 28, 2016 10:12 pm
por Daniel Pechir
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
Re: ListBox - MySQL
Publicado: Mar Nov 01, 2016 8:09 pm
por jfgimenez
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
Re: ListBox - MySQL
Publicado: Mié Nov 02, 2016 12:52 am
por Daniel Pechir
YA ESTA
GRACIAS JOSE
DIOS TE BENDICE
DANIEL