convertir este còdigo derecordset a dataset!!
Publicado por Julián Andrés (30 intervenciones) el 15/08/2006 15:06:02
Como hago para pasar de recordset a dataset este código, no he podido con él, mirenlo y me avisan gracias!!!!
Private Sub Sumar_Factura()
On Error Resume Next
Dim cadena As String, J As Integer, total As Long, cupones As Long
total = 0
cupones = 0
'Con esta rutina recorremos el recordset ya creado para obtener la sumatoria
'Podría reemplazarse por un Sum pero se perderían los datos del Recordset
dsCotempagoext.MoveFirst()
Do While dsCotempagoext.EOF = False
total = total + rsCotempagoext.Fields("Imp_Debe")
cupones = cupones + 1
dsCotempagoext.MoveNext()
Loop
txtTotal.Text = total
txtCupones.Text = cupones
End Sub
Private Sub Sumar_Factura()
On Error Resume Next
Dim cadena As String, J As Integer, total As Long, cupones As Long
total = 0
cupones = 0
'Con esta rutina recorremos el recordset ya creado para obtener la sumatoria
'Podría reemplazarse por un Sum pero se perderían los datos del Recordset
dsCotempagoext.MoveFirst()
Do While dsCotempagoext.EOF = False
total = total + rsCotempagoext.Fields("Imp_Debe")
cupones = cupones + 1
dsCotempagoext.MoveNext()
Loop
txtTotal.Text = total
txtCupones.Text = cupones
End Sub
Valora esta pregunta


0