Visual Basic - Ayuda para cargar una Grilla (MSHFlexGrid)

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda para cargar una Grilla (MSHFlexGrid)

Publicado por Jeronimo (2 intervenciones) el 09/09/2015 17:26:48
Hola a todos, estoy teniendo un problema para cargar los datos del access a una grilla de tipo MSHFlexGrid. les muestro parte del codigo donde se tendria que cargar la grilla.
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
Private Sub Command1_Click(Index As Integer)
Select Case Index
'Case 3
    'SELECT * FROM tabla WHERE columna LIKE 'letra%';
'    If Text2.Text <> "" Then
  '      Dim Codigo As Integer
   '     Dim Provincia As String
    '    Codigo = Text1.Text
     '   Provincia = Text2.Text
      '  Dim Ssql As String
       ' Dim ADORES As ADODB.Recordset
        'Set ADORES = New ADODB.Recordset
'        Ssql = "Select * From Provincias where Prov_Codigo Like '" & Provincia & "%'"
 '       ADORES.Open Ssql, DBase, adOpenStatic
  '      If ADORES.RecordCount < 1 Then
   '         MsgBox "No hay provincias con esos terminos"
    '    Else
     '       Aca se deberia de cargar la grilla
    '    End If
'    End If
Case 4
    Provincia.Hide
    Set Provincia = Nothing
    Agencia.Show
    For i = 0 To 3 Step 1
        Command1(i).Visible = False
    Next
End Select
'Text1.Text = ""
'Text2.Text = ""
'Grilla.Visible = False
End Sub

en la linea 18 se llenaria la tabla pero no se con que comandos.
aca les dejo una foto del proyecto
34o61jd

Desde ya muchas gracias
PD: Esta todo comentado porque si corro el programa me cuelga
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Ayuda para cargar una Grilla (MSHFlexGrid)

Publicado por Andres Leonardo (698 intervenciones) el 09/09/2015 18:30:24
Yo lo hago con este codigo
Debes mandar como parametros el nombre del FLEXGRID y la sentencia SQL
Ahh por cierto el nombre del recorset es RSIO y la conexion se llama "Conexion"
Ahi nos cuentas.

1
2
3
'En la llamada del Boton 
STRSQL =  'SELECT * FROM tabla WHERE columna LIKE 'letra%';
call  llenagridGeneric (Grilla,STRSQL)



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
Sub llenagridGeneric(MSf As MSFlexGrid, sql As String)
On Error GoTo etterro
 
cont = 0
MSf.Clear
MSf.Cols = 2
MSf.Rows = 2
'MsgBox SQL  ' Por si deseas ver el sql antes de ejecutarlo
Rsio.Open sql, conexion
 
'****si no hay resultados ********
    If Rsio.EOF = True And Rsio.BOF = True Then
    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"
    Rsio.Close
    Exit Sub
    End If
'salgo del sub
'**********************************
 
Dim i, j, k As Integer
   'Rs.Open SQL, conexion
   MSf.Cols = Rsio.Fields.Count '+ 1
   MSf.Clear
 
   j = 0
   While j < Val(MSf.Cols)
    MSf.TextMatrix(0, j) = Rsio.Fields(j).Name 'da el nombre del select
    datafile = datafile & Rsio.Fields(j).Name & vbTab
    MSf.ColWidth(j) = 2000 ' para dar un correcto ancho
     j = j + 1
   Wend
 
 
    While Not Rsio.EOF
        i = i + 1
        MSf.Rows = i
        k = 0
        While k < j
            MSf.TextMatrix(i - 1, k) = "" & Rsio(k)
            datafile = datafile & Rsio(k) & vbTab
            k = k + 1
        Wend
        datafile = datafile & vbCr
        Rsio.MoveNext 'aumenta el contador
    Wend
       Rsio.Close
etterro:
 
If Err.Number <> 0 Then MsgBox Err.Description
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda para cargar una Grilla (MSHFlexGrid)

Publicado por Jeronimo (2 intervenciones) el 09/09/2015 21:45:34
Ahora me pone como error "se requiere un objeto, como que no me reconose la MSHFlexGrid, este metodo sirve para todas las grillas incluyendo la MSHF?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar