Mostrar Mensajes
1
Temas Indispensables y Aportes / Re:Llenar Datos a un Recordset sin Base de Datos
« en: Enero 23, 2017, 07:28:06 pm »
Hola yacosta, fijate que use tu còdigo y lo asocie a unListview, y todo funciona perfecto, pero cuando uso una variable en lugar de una fila de listview, me aparece un error, y no logor pasar de ahí
Cuando usa esas dos variables sDate y nFolio, es cuando me genera el error, pero si en lugar de eso, uso una linea del listview, me genera el reporte adecuadamente.
El error es
Gracias por ayudar.
Código: [Seleccionar]
Private Sub demo()
Dim rsT As New ADODB.Recordset
Dim n As Integer
Dim sDate As String
Dim nFolio As Integer
Set rsT = New ADODB.Recordset
rsT.CursorLocation = adUseClient
rsT.Fields.Append "can", adDouble ' adVarChar, 5, adFldIsNullable
rsT.Fields.Append "pro", adVarChar, 50, adFldIsNullable
rsT.Fields.Append "pre", adDouble ' adVarChar, 100, adFldIsNullable
rsT.Fields.Append "importe", adDouble
rsT.Fields.Append "fecha", adDate
rsT.Fields.Append "ticket", adInteger
sDate = Format(lblfecha.Caption, "yyyy-mm-dd")
nFolio = Format(lblTicket.Caption, "######")
rsT.Open , , adOpenStatic, adLockBatchOptimistic
With ListView1
For n = 1 To ListView1.ListItems.Count '.Rows - 1
rsT.AddNew Array("can", "pro", "pre", "importe", "fecha", "ticket"), Array(ListView1.ListItems(n).SubItems(2), ListView1.ListItems(n).SubItems(3), ListView1.ListItems(n).SubItems(4), ListView1.ListItems(n).SubItems(5),sdate,nfolio)
Next n
End With
Set reporteCompras.DataSource = rsT
'reporteCompras.Show
'reporteCompras.PrintReport False, rptRangeFromTo, 1, 1
reporteCompras.PrintReport False
Unload reporteCompras
'rsT.Close
Set rsT = Nothing
End SubCuando usa esas dos variables sDate y nFolio, es cuando me genera el error, pero si en lugar de eso, uso una linea del listview, me genera el reporte adecuadamente.
El error es
Citar
La operación en varios pasos genero errores, compruebe los valores del estado
Gracias por ayudar.