Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Can I fill a DBgrid control without a Data control ?

Posted on 1998-09-14
7
Medium Priority
?
289 Views
Last Modified: 2008-03-06
I want to know if I can fill a DBgrid control without a Data control and which one is better to use (which is faster). In case that yes, say me the first steps that I have do. Thanks
0
Comment
Question by:netkuk
  • 4
  • 3
7 Comments
 
LVL 1

Expert Comment

by:CarlosJac
ID: 1434841
Please, excuse me, my english is terrific ...

Yes, you can fill a DBGrid Control Without a Data Control.
Set DataMode property to 1 (Unbound).
Fill an array with the info to show in the grid.

You must to code the UnboundReadData event.

This example illustrates the use of the UnboundReadData event to read a row of data from a simple array (named UserData).
You must fill the UserData array with the info to show in the grid

Private Sub DBGrid1_UnboundReadData(ByVal RowBuf As RowBuffer, StartLocation As Variant, ByVal ReadPriorRows As Boolean)
Dim CurRow&, Row%, Col%, RowsFetched%, Incr%
                   
If ReadPriorRows Then
    Incr% = -1
Else
    Incr% = 1
End If

' If StartLocation is Null then start reading at the
' end or beginning of the data set.
If IsNull(StartLocation) Then
    If ReadPriorRows Then
        CurRow& = RowBuf.RowCount - 1
    Else
        CurRow& = 0

    End If
Else
    ' Find the position to start reading based on the
    ' StartLocation bookmark and the lngIncr% variable
    CurRow& = CLng(StartLocation) + Incr%
End If

' Transfer data from our data set array to the RowBuf
' object which DBGrid uses to display the data
For Row% = 0 To RowBuf.RowCount - 1
    If CurRow& < 0 Or CurRow& >= mTotalRows& Then Exit For
    For Col% = 0 To UBound(UserData, 1)
        RowBuf.Value(Row%, Col%) = UserData(Col%, CurRow&)

    Next Col%
    ' Set bookmark using CurRow& which is also our
    ' array index
    RowBuf.Bookmark(Row%) = CStr(CurRow&)
    CurRow& = CurRow& + Incr%
    RowsFetched% = RowsFetched% + 1
Next Row%
RowBuf.RowCount = RowsFetched%
End Sub


Good Luck
0
 

Author Comment

by:netkuk
ID: 1434842
Gracias. No es que no me satisfaga la solución. Todo lo contrario ! Lo único es que te agardeceria que me dijeses, des de la posición de programador en la que trabajas, que método és más eficiente (ràpido). Muchas gracias Carlos i espero tu respuesta (por cierto mi inglés también es terrífico así que mejor en español contigo que me parece que lo sabes muy bien.)
0
 
LVL 1

Accepted Solution

by:
CarlosJac earned 200 total points
ID: 1434843
Netkuk:
Qué bueno que hables español !
Si usas la DBGrid incluida en Visual Basic 5, la unica forma de cargar datos en forma unbound es la que te mostré en el código de ejemplo que te envié.  Se cargan los datos en un vector, y ese vector es lo que se muestra en la grilla a traves del evento Unbound_ReadData.
Esta forma es mucho más eficiente que trabajar con DataControl, es más rápida y te permite mucho mayor flexibilidad.  La desventaja es que (como ves en el ejemplo) requiere de mucho más trabajo de tu parte.
En sintesis: si lo más importante para tí es la eficiencia, la mejor forma es la unbound que te mostre en el ejemplo.

Si quieres gastar un poco de dinero puedes comprar la TrueDBGrid 5.0 de Apex (www.apexsc.com) que contiene toda la funcionalidad de la DBGrid y muchas otras capacidades.
Esta grilla tiene 3 modos unbound.  Uno de ellos es similar al de la DBGrid pero tiene mejor performance.  Tiene tambien otro modo unbound (storage) que tiene casi tan buena performance, pero no requiere codificación de eventos.

Mi consejo es: si con las capacidades de la DBGrid te alcanza, usala en modo unbound.  Si con la DBGrid no te alcanza podes comprar la TrueDBGrid 5, y obtener casi la misma performance pero sin codificar.

Buena Suerte.

Solo por curiosidad: qué idioma hablas ?  (Tu español es muy bueno)




0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:netkuk
ID: 1434844
Gracias por tu respuesta. ¡ Me ha ido de perfecta !


Por cierto, contestando a tu pregunta: soy de Barcelona, así que también hablo catalán.

0
 

Author Comment

by:netkuk
ID: 1434845
Por cierto, el ejemplo que me has dado lo he intentado implementar, o sea, lo he copiado en su correspondiente procedimiento del dbgrid (en el unbounddataread) y he creado el array userdata y lo he llenado. Sin embargo, cuando llamo al procedimiento con "dbgrid1_unbounddataread Rowbuff,1,true", me dice error 91. Yo he definido Rowbuf as Rowbuffer y luego Set Rowbuf=Rowbuffer. La verdad es que me he estado mirando la ayuda y no me acabo de enterar de como puñetas ver el contenido en el array.
Si me pudieras ayudar a completar el ejemplo que me has dado para que no me diera ese error y funcionara te lo agradeceria porque en lenguajes visuales tengo poca experiencia y tiendo a pensar y estructurar las cosas en "Topdown" con lo cual todos estos errores se me hacen una montaña.
Gracias de nuevo CarlosJac

0
 
LVL 1

Expert Comment

by:CarlosJac
ID: 1434846
Hola Netkuk:

Tu no tienes que ejecutar el evento unobundreaddata.  Tu tienes que llenar el vector userdata en el evento form_load.
Y tienes que copiar el codigo de ejemplo en el evento unboundreaddata de la grilla.  
Cuando la grilla necesita mostrar datos, por si sola ejecuta el evento unboundreaddata.
Tu no tienes que declarar Rowbuffer ni nada por el estilo.
Solo llenas el vector en el form_load y dejas que la grilla ejecute unboundreaddata cuando lo necesite.
Si me pasas tu direccion de correo electronico, puedo mandarte un form con una grilla unbound funcionando.

Suerte

CarlosJac
0
 

Author Comment

by:netkuk
ID: 1434847
Hola de nuevo CarlosJac.
Te digo los pasos que he hecho: he definido en "General" del formulario la tabla userdata(10,10) as string
He llenado mediante dos bucles anidados la tabla con mi nombre (p.ej)
He copiado el código que me dijiste y al ejecutar el pgm. no
me ha hecho nada.
Tambien he puesto un Dbgrid.refresh el el evento Click del Dbgrid
No sé si esto tiene algo que ver.
Te agradeceria que me pudieras enviar el código para que pudiera ver como tengo que ponerlo yo.
Puedes enviarme el códig a
guillrog_pratdesaba_prat@infomail.lacaixa.es
(un poquito larga...)
Gracias por las molestias CarlosJac.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

877 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question