¿ayuda: Sumar columna de un dbgrid?

[principefreddy]

buenas. como hago para sumar las columnas de un DBGRID y mostrarlas en un texto. tomando en cuenta que por lo menos hoy hay 10 registros pero mañana pueden haber 20 mas. osea habria que sumarse automaticamente los 30 datos de la columna. espero me entiendan.

nota: solo tengo 2 columnas. una que se llama producto y otra precios.
columna1 columna2
productos precios
casa 100
carro 200
isla 500
total.text: 800

basicamente es eso. sumar los datos de la columna2 deñ DBGRID.

[Avellaneda]

Iniciado por principefreddy

buenas. como hago para sumar las columnas de un DBGRID y mostrarlas en un texto. tomando en cuenta que por lo menos hoy hay 10 registros pero mañana pueden haber 20 mas. osea habria que sumarse automaticamente los 30 datos de la columna. espero me entiendan.

nota: solo tengo 2 columnas. una que se llama producto y otra precios.
columna1 columna2
productos precios
casa 100
carro 200
isla 500
total.text: 800

basicamente es eso. sumar los datos de la columna2 deñ DBGRID.

Buenas, lo mas sencillo es crear una consulta de agrupamiento de registros y mostrar el resultado en el TextBox:

Código:

Dim rs As DAO.Recordset
Set rs = bd.OpenRecordset("SELECT Sum(precios) AS SumaTotal FROM LaTabla")
Total.Text = rs!SumaTotal

[principefreddy]

no entendi lo de dao.recordset. no he utilizado eso nunca. me podria explicar si tengo que activar algun componente o referencia. y su tengo que conectar algo de esa manera.

[Avellaneda]

Iniciado por principefreddy

no entendi lo de dao.recordset. no he utilizado eso nunca. me podria explicar si tengo que activar algun componente o referencia. y su tengo que conectar algo de esa manera.

Lo de DAO lo puse para que no tengas interferencias con ADO (suponiendo que lo tengas activado) ya que los dos tienen la misma propiedad Recordset, si no es así, lo puedes quitar, aunque tampoco va a dar error porque lo dejes.

Al utilizar el control DBGrid, se supone que ya tienes activada la referencia a DAO.

[principefreddy]

no funciona

[Avellaneda]

Iniciado por principefreddy

no funciona

¿Qué quiere decir 'no funciona'?

¿algún error, no hace nada?

¿puedes hacer un Copy-Paste del código que utilizas?

[principefreddy]

me dice que se require un objeto. y coloca una linea amarilla sobre la segunda linea del codigo que me mandaste.

[principefreddy]

Dim rs As DAO.Recordset
Set rs = bd.OpenRecordset("SELECT Sum(Porcen) AS SumaTotal FROM deduc2")
total.Text = rs!SumaTotal

[Avellaneda]

Iniciado por principefreddy

Dim rs As DAO.Recordset
Set rs = bd.OpenRecordset("SELECT Sum(Porcen) AS SumaTotal FROM deduc2")
total.Text = rs!SumaTotal

En vez de bd. pon el nombre de la variable que le hayas dado al abrir la base de datos.

[Avellaneda]

Iniciado por Avellaneda

En vez de bd. pon el nombre de la variable que le hayas dado al abrir la base de datos.

Me acabo de dar cuenta, por el mensaje privado que me enviaste que no tienes una conexión abierta a la base de datos, sino un enlace al control Data.

Prueba así:

Código:

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Set bd = OpenDatabase(App.Path & "\Base de Datos\honorarios.mdb")
Set rs = bd.OpenRecordset("SELECT Sum(precios) AS SumaTotal FROM deducciones2")
Total.Text = rs!SumaTotal
Set rs = Nothing
Set bd = Nothing

Nota importante:
No contesto a mensajes privados cuando se puede hacer en el foro. Creo que el fin del foro es ese, que todos aprendan (o rectifiquen).

[principefreddy]

ya solucione una parte. coloque un datagrid

y cree un boton y un texto. aqui esta

Private Sub sumar_Click()
Dim I As Integer
Dim Val1 As Double
Dim Formato As String
txttotal.Text = " "
Formato = "###,####.00"
For I = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = I
Val1 = Val1 + CDbl(DataGrid1.Columns(1))
Next I
txttotal.Text = Format(Val1, Formato)
End Sub

[principefreddy]

como hago para ajustar las columnas del datagrid. no se si sea igual que en el dbgrid ?

[Avellaneda]

Iniciado por principefreddy

ya solucione una parte. coloque un datagrid

y cree un boton y un texto. aqui esta

Private Sub sumar_Click()
Dim I As Integer
Dim Val1 As Double
Dim Formato As String
txttotal.Text = " "
Formato = "###,####.00"
For I = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = I
Val1 = Val1 + CDbl(DataGrid1.Columns(1))
Next I
txttotal.Text = Format(Val1, Formato)
End Sub

¿Pero en qué quedamos, estás utilizando un DataGrid o un DBGrid, ADO o DAO?

Y aunque sea con ADO, puedes utilizar la misma consulta que puse, sin necesidad de recorrer todas las filas del DataGrid.

[principefreddy]

estaba utilizando el DBGRID. pero ahora estoy utilizando en datagrid y ado. como hago para colocar las columnas del data mas grandes o mas pequeñas. es igual que el dbgrid ?

[Avellaneda]

Iniciado por principefreddy

estaba utilizando el DBGRID. pero ahora estoy utilizando en datagrid y ado. como hago para colocar las columnas del data mas grandes o mas pequeñas. es igual que el dbgrid ?

Sí, es igual que el dbgrid:

DBGrid1.Columns(0).Width = 500
DataGrid1.Columns(0).Width = 500

[alejozd]

Buenas!!!
Garcias de antemano, leyendo esto solucione mi problema para sumar los valores de una columna en un datagrid, pero como lo unico que hice fue acomodar el codigo, quisiera saber el papel del for en el codigo.
Lo que entiendo es que recorre una por una las casillas del datagrid y va sumando..

Gracias a Avellaneda

Saludos desde Bogota Colombia!!