Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 07-ene-2008, 14:00   #1 (permalink)
rishart ha deshabilitado el karma
 
Fecha de Ingreso: enero-2008
Mensajes: 91
De acuerdo Ayuda con el Flex Grid

Hola soy algo nuevo en en esto de la programacion en visual basic pero me esta interesando mucho el tema por ello me gustaria si alguien puede ayudarme con mi problema ya que no tengo ni la menor idea de como hacerlo

la problematica es que no se como poner un flexgrid a mi sistema ni como configurarlo para que me muestre los datos que estan en la BD de donde y como delarar las variables para el flex y como puedo hacer que estos datos se puedan graficar??? apreciaria mucho su gran ayuda graciassss....
rishart está desconectado   Responder Citando
Antiguo 07-ene-2008, 14:33   #2 (permalink)
Colaborador
GeoAvila llegará a ser famoso muy prontoGeoAvila llegará a ser famoso muy prontoGeoAvila llegará a ser famoso muy pronto
 
Avatar de GeoAvila
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 3.780
Enviar un mensaje por MSN a GeoAvila Enviar un mensaje por Yahoo  a GeoAvila
Re: Ayuda con el Flex Grid

en la opción DataSource le podes asignar un Odbc

nos vemos.
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com
GeoAvila está desconectado   Responder Citando
Antiguo 09-ene-2008, 09:49   #3 (permalink)
fede_rosario ha deshabilitado el karma
 
Fecha de Ingreso: diciembre-2007
Mensajes: 28
Re: Ayuda con el Flex Grid

haber lo que yo hago es esto
le creo una mascara el flex osea como quiero que aparesca ,asi:
Private Sub configurar_grilla()
With MSFlexGrid1
.Clear
.Rows = 2
.FixedRows = 1
.FixedCols = 0
.Cols = 4
.Rows = 2
.FormatString = "Código |Descripción |Cantidad |Proveedor |Total/Articulo "
End With
End Sub
la cual la podes llamar cuando inicias el form en form_load ej

Private Sub Form_Load()
configurar_grilla
End Sub

despues para llenar el flex con los datos en mi caso hago una consulta la vuelco a un recordset u se la asigno al flex ej

Dim rsbal As New ADODB.Recordset
Dim cod_ocup As Integer
mensaje.Visible = True
lbldatos.Visible = True
lbldatos.caption = "Espere ...Procesando Datos "
DoEvents
txttotal.Text = ""
MSFlexGrid1.Clear
If fami Then
configurar_grilla2
sql = "select * from cliente order by idcliente"
rsbal.Open sql, cn, adOpenKeyset, adLockOptimistic
If rsbal.RecordCount < 1 Then
GoTo sale:
End If
Cant_reg = rsbal.RecordCount
rsbal.MoveFirst
Do While Not rsbal.EOF
cod_ocup = Mid(rsbal("ocup"), 1, 1)
MSFlexGrid1.AddItem rsbal.Fields("idcliente") & vbTab & rsbal.Fields("Apellido") & cod_ocup & vbTab & rsbal.Fields ("documento")
rsbal.MoveNext
Loop
rsbal.Close
txttotal.Text = Cant_reg
impfac = True
End If

fijate alomejor me explico muy a los apurones y no entendiste nada cualkier cosa avisa todo bien, exitos fede
fede_rosario está desconectado   Responder Citando
Respuesta
No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 04:32.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93