Duda con esta fórmula de visual basic en excel
Tengo esta estructura en visual
Dim x As Integer, RS As New ADODB.Recordset
Dim nImporte as Currency, nCuotas as Integer, nPeriodo as Integer
Dim dFecha as Date
nImporte = CCur(TextBox_Importe.Text)
nCuotas = CInt(TextBox_Cuotas.Text)
nPeriodo = CInt(TextBox_Dias.Text)
dFecha= dtPicker.Value
RS.Open "tPrestamos",adLockDynamic,adLockBatchOptimistic,adCmdTable
For x=0 to nCuotas-1
RS.AddNew
RS!fecha=DateAdd(dFecha,nPeriodo*x,"d")
RS!cuota=nImporte/nCuotas
Next
RS.UpdateBatch
Pero me da error en la parte de : rs as new adodb. Recordset.
Agradecería que me ayudaran
Dim x As Integer, RS As New ADODB.Recordset
Dim nImporte as Currency, nCuotas as Integer, nPeriodo as Integer
Dim dFecha as Date
nImporte = CCur(TextBox_Importe.Text)
nCuotas = CInt(TextBox_Cuotas.Text)
nPeriodo = CInt(TextBox_Dias.Text)
dFecha= dtPicker.Value
RS.Open "tPrestamos",adLockDynamic,adLockBatchOptimistic,adCmdTable
For x=0 to nCuotas-1
RS.AddNew
RS!fecha=DateAdd(dFecha,nPeriodo*x,"d")
RS!cuota=nImporte/nCuotas
Next
RS.UpdateBatch
Pero me da error en la parte de : rs as new adodb. Recordset.
Agradecería que me ayudaran
1 respuesta
Respuesta de jrgces
1
Probablemente no tengas establecida la referencia a la librería de ADO. Para verificarlo, entra en el editor de VBA (Alt F11), y seleccionar Herramientas -> Referencias.
Todas las referencias activas se encuentran al principio de la lista y marcadas. Si ninguna de ellas empieza por "Microsoft ActiveX Data Objects", baja en la lista hasta encontrar la que tenga el número de versión más alto y seleccionala.
El nombre debería ser "Microsoft ActiveX Data Objects X.x Library", donde X.x depende de las versiones que tenga instaladas el equipo.
Todas las referencias activas se encuentran al principio de la lista y marcadas. Si ninguna de ellas empieza por "Microsoft ActiveX Data Objects", baja en la lista hasta encontrar la que tenga el número de versión más alto y seleccionala.
El nombre debería ser "Microsoft ActiveX Data Objects X.x Library", donde X.x depende de las versiones que tenga instaladas el equipo.
