agregar campo a un datagrid despues de una consulta sql

[Guachalin]

bueno tengo la siguiente consulta en sql la cual enlazo con un datagrid:

select num_operacion, monto from operaciones

esto me daria por ej los siguientes resultados:

num operacion_____monto
1------------------50.000
2------------------25.000
3------------------15.000

bueno lo ke nesecito es ke despues de la consulta gregar un campo adicional al datagrid ke me sume los montos(SALDO)

la cosa es ke el resultado del grid sea asi:

num operacion________monto_______saldo
1---------------------50.000--------50.000
2---------------------25.000--------75.000
3---------------------15.000--------90.000

COMO agrego ese nuevo campo al datagrid, y como podria hacer la operacion para ir rellenando este campo

ayudaaa

[jrp01]

Puedes hacer esto:


Dim rs1 As New ADODB.Recordset
Dim rstemp As New ADODB.Recordset
Dim monto as Double

monto=0
Set rstemp = Nothing
rstemp.Fields.Append "Num Operacion", adSingle
rstemp.Fields.Append "Monto", adDouble
rstemp.Fields.Append "Saldo", adDouble
rstemp.Open
Set DataGrid1.DataSource = rstemp
DataGrid1.Columns(0).Width = 2400
DataGrid1.Columns(1).Width = 1500
DataGrid1.Columns(2).Width = 2000

sentencia = "Tu sentencia"
Set rs1 = cn.Execute(sentencia) 'cn es de conecion ADO
Do Until rs1.EOF
monto=rs1(1)
rstemp.AddNew
rstemp(0) = rs1(0)
rstemp(0) = rs1(1)
rstemp(3) = monto
monto=monto+monto
rstemp.Update
rs1.MoveNext
Loop

Espero que te sirva saludos2

[Guachalin]

Muchas Gracias, le hice algunos arreglos al codigo y me funciono

Una preguntita: Como puedo darle formato a un campo mostrado en el datagrid, en este caso Monto y Saldo por ejemplo: 10000 que se muestre asi 10.000(miles)

Este es el codigo:

Dim Monto As Double
Dim Monto2 As Double
Dim Consulta As String

Monto = 0
Set RsTemp = Nothing
RsTemp.Fields.Append "Num Operacion", adSingle
RsTemp.Fields.Append "Monto", adDouble
RsTemp.Fields.Append "Saldo", adDouble
RsTemp.Open
Set dgDocumentosCartera.DataSource = RsTemp
dgDocumentosCartera.Columns(0).Width = 2400
dgDocumentosCartera.Columns(1).Width = 1500
dgDocumentosCartera.Columns(2).Width = 2000
Consulta = "select noperacion,monto from cartera where estado='add' or estadoprorroga='prorroga'"

Set Cartera = Cnn.Execute(Consulta)

Do Until Cartera.EOF
Monto2 = Cartera(1)
RsTemp.AddNew
RsTemp(0) = Cartera(0)
RsTemp(1) = Cartera(1)
RsTemp(2) = Monto + Monto2
Monto = Monto + Monto2
RsTemp.Update
Cartera.MoveNext
Loop

EL RECORSET RsTemp lo declare en un modulo aparte donde declaro todos mis recorset

Public RsTemp As New ADODB.Recordset

With RsTemp
.ActiveConnection = Cnn
.LockType = adLockReadOnly
.CursorType = adOpenStatic
End With

[jrp01]

Yo he usado estos:

DataGrid1.Columns(3).NumberFormat = "Fixed" 'Numero
DataGrid1.Columns(4).NumberFormat = "Percent" 'Porciento
DataGrid1.Columns(5).NumberFormat = "Currency" 'Moneda $


Saludos

[Guachalin]

entre tanto buscar y buscar deje esto

dgDocumentosCartera.Columns(5).NumberFormat = "#,###"

ahi me funciono

DataGrid1.Columns(5).NumberFormat = "Currency" 'Moneda $

currency era una buena opcion pero, no supe como limitar comoas y puntos

gracias denuevo

[jrp01]

###,###,###.00 Tambien puedes porner este para no cortar cantidades

[Loquillo_]

Yo tengo 4 diskettes con el VSpread (original no pirateado), si lo desean, diganme como puedo colocarlos en algun sitio para que lo puedan copiar.

Este programa es un ocx (Control ActiveX) que permite editar y dar formato a un grid, es más, puede pintar las celdas.

[Racso_Lima]

Iniciado por Loquillo_

Yo tengo 4 diskettes con el VSpread (original no pirateado), si lo desean, diganme como puedo colocarlos en algun sitio para que lo puedan copiar.

Este programa es un ocx (Control ActiveX) que permite editar y dar formato a un grid, es más, puede pintar las celdas.

Dime si lo han colocado en algun site, estoy interesado en tu tema

Gracias