Hola, tengo un problema de conversion de datos varchar a tipo de datos int que realmente no entiendo porque todos los datos que introduzco en la BD son varchar y los campos de las tablas tambien lo son. Solo me pasa al introducirlo en un campo de la BD. Os pongo el codigo:
Dim rst As ADODB.Recordset
Dim rstCab As ADODB.Recordset
Set rst = New ADODB.Recordset
Set rstCab = New ADODB.Recordset
Dim strselect As String
strselect = "SELECT vcg.FECHA, vcg.HORA, vcg.PROVEEDOR, vcg.OTRO, Sum(vcg.NETO) as Total, Sum(vcg.BRUTO) as TotBruto, Sum(vcg.IVANETO) as TotIva " & _
"FROM Vista_Compras_General as vcg " & _
"WHERE vcg.FECHA = '" & strfecha & "' " & _
"GROUP BY vcg.OTRO, vcg.FECHA, vcg.HORA, vcg.PROVEEDOR"
rst.Open strselect, cn, adOpenDynamic, adLockOptimistic
rstCab.Open "SELECT * FROM AlbCompraCab WHERE 0=1", cn, adOpenDynamic, adLockOptimistic
txtAlbCompCab = 0
If Not rst.EOF Then
Do While Not rst.EOF
rstCab.AddNew
rstCab("NUMSERIE") = "A"
rstCab("NUMALBARAN") = rst("OTRO") --> Aqui me da el problema.
rstCab("N") = "B"
rstCab("FACTURADO") = "T"
rstCab("NUMSERIEFAC") = "B"
rstCab("NUMFAC") = rst("OTRO")
rstCab("NFAC") = "B"
rstCab("ESUNDEPOSITO") = "F"
rstCab("ESDEVOLUCION") = "F"
rstCab("CODPROVEEDOR") = rst("PROVEEDOR")
rstCab("FECHAALBARAN") = Format(rst("FECHA"), "00/00/0000")
rstCab("PORTESPAG") = "F"
rstCab("TOTALBRUTO") = Round(rst("TotBruto"), 2)
rstCab("TOTALIMPUESTOS") = Round(rst("TotIva"), 2)
rstCab("TOTALNETO") = Round(rst("Total"), 2)
rstCab("CODMONEDA") = 1
rstCab("FACTORMONEDA") = 1
rstCab("FECHAENTRADA") = Format(rst("FECHA"), "00/00/0000")
rstCab("TIPODOC") = 4
rstCab("TIPODOCFAC") = 6
rstCab("HORA") = Format(rst("HORA"), "00:00:00")
rstCab.Update
rst.MoveNext
txtAlbCompCab = txtAlbCompCab + 1
DoEvents
txtAlbCompCab.Refresh
Loop
End If
rst.Close
Ya he probado de todo y no me funciona. He probado a hacer Conversiones Cstr...
Si me podeis ayudar, Gracias.
Saludos.
