El número de valores de la consulta y el número de campos de destino son diferentes. VB 6.0

Estoy dando de alta unos productos...

Tengo este código para dar de alta los productos pero me tira el error del título...

Lo raro es que están todos los campos... No veo que falte ninguno... ¿A ver que ven ustedes? GRACIAS!

StrProductoExistente = "SELECT Cod_Producto FROM PRODUCTOS where Cod_Producto =" & TxtProductos(0).Text
Set RstProductoExistente = New ADODB.Recordset
RstProductoExistente.Open StrProductoExistente, Base, adOpenStatic, adLockOptimistic
With RstProductoExistente
If .BOF = False Or .EOF = False Then
MsgBox "El Código: " & !Cod_Producto & " ya existe. Ingrese un nuevo código ", vbInformation, "ALTA PRODUCTOS."
TxtProductos(0).Text = ""
TxtProductos(0).SetFocus
'txtModAfiliado(0).SetFocus
Exit Sub
Else
If ChkIVA(0).Value Then
Cod_Producto = Trim(TxtProductos(0).Text)
Desc_Producto = TxtProductos(1).Text
Cant_Producto = Val(TxtProductos(2).Text)
Precio_Producto = CDbl(TxtProductos(3).Text)
IVA_Incluido = CDbl(Precio_Producto) + CDbl(Precio_Producto) * 0.105
Set RstProductos = New ADODB.Recordset

StrNuevoProducto = "INSERT INTO PRODUCTOS(Cod_Producto,Desc_Prod,Cantidad,Precio_Unitario,IVA_Incluido) VALUES ('" & Cod_Producto & "','" & Desc_Producto & "'," & Cant_Producto & "," & CDbl(Precio_Producto) & "," & CDbl(IVA_Incluido) & ")"
MsgBox StrNuevoProducto
RstProductos.Open StrNuevoProducto, Base, adOpenStatic, adLockOptimistic
MsgBox RstProductos
MsgBox "El Producto " & frmCompras.TxtProductos(1).Text & " Se ha incorporado al STOCK. ", vbInformation, "ALTA DE PRODUCTOS."
TxtProductos(0).Text = ""
TxtProductos(1).Text = ""
TxtProductos(2).Text = ""
TxtProductos(3).Text = ""
TxtProductos(0).SetFocus
Set RstMaxProducto = New ADODB.Recordset
StrMaxProducto = "Select Max(Cod_Producto) As Maximo From PRODUCTOS"
RstMaxProducto.Open StrMaxProducto, Base, adOpenStatic, adLockBatchOptimistic
End If
If ChkIVA(1).Value Then
Cod_Producto = Trim(TxtProductos(0).Text)
Desc_Producto = TxtProductos(1).Text
Cant_Producto = Val(TxtProductos(2).Text)
Precio_Producto = CDbl(TxtProductos(3).Text)
IVA_Incluido = CDbl(Precio_Producto) + CDbl(Precio_Producto) * 0.21
Set RstProductos = New ADODB.Recordset
StrNuevoProducto = "INSERT INTO PRODUCTOS(Cod_Producto,Desc_Prod,Cantidad,Precio_Unitario,IVA_Incluido) VALUES ('" & Cod_Producto & "','" & Desc_Producto & "'," & Cant_Producto & "," & CDbl(Precio_Producto) & "," & CDbl(IVA_Incluido) & ")"
MsgBox StrNuevoProducto
RstProductos.Open StrNuevoProducto, Base, adOpenStatic, adLockOptimistic
MsgBox RstProductos ' Con este mensaje veo que están todos los campos... Tanto en la consulta como en el número de campos...

MsgBox "El Producto " & frmCompras.TxtProductos(1).Text & " Se ha incorporado al STOCK. ", vbInformation, "ALTA DE PRODUCTOS."
TxtProductos(0).Text = ""
TxtProductos(1).Text = ""
TxtProductos(2).Text = ""
TxtProductos(3).Text = ""
TxtProductos(0).SetFocus
Set RstMaxProducto = New ADODB.Recordset
StrMaxProducto = "Select Max(Cod_Producto) As Maximo From PRODUCTOS"
RstMaxProducto.Open StrMaxProducto, Base, adOpenStatic, adLockBatchOptimistic
End If
End If
If RstMaxProducto.State = adStateOpen Then RstMaxProducto.Close
Set RstMaxProducto = Nothing
End With

2 respuestas

Respuesta
2

Probablemente sea porque interpreta el separador decimal de tu configuración (la coma) como un separador de los valores a agregar a los campos. En la otra respuesta ya te indiqué cómo evitar ese problema, usando Replace() para cambiar la coma por un punto, o Str()

¡Gracias! El problema era que estaban mal declaradas unas variables... Pego el código funcionando!

Dim Cod_Producto As Long
Dim Desc_Producto As String
Dim Cant_Producto As Integer
Dim IVA_Incluido As Double
Dim Precio_Producto As Double
Dim StrNuevoProducto As String
Dim StrMaxProducto As String
Dim StrProductoExistente As String
Dim RstProductoExistente As New ADODB.Recordset
Dim Tipo_IVA As String
Cod_Producto = (TxtProductos(0).Text)
                            Desc_Producto = TxtProductos(1).Text
                            Cant_Producto = Val(TxtProductos(2).Text)
                            Precio_Producto = Val(TxtProductos(3).Text)
                            If ChkIVA(0).Value Then 'IVA 10,5
                                IVA_Incluido = Precio_Producto + Precio_Producto * 0.105
                                Tipo_IVA = 10.5
                                Set RstProductos = New ADODB.Recordset
                                StrNuevoProducto = "INSERT INTO PRODUCTOS(Cod_Producto,Desc_Prod,Cantidad,Precio_Parcial,IVA_Incluido,Tipo_IVA) VALUES ('" & Cod_Producto & "','" & Desc_Producto & "'," & Cant_Producto & ",'$ " & Str(Precio_Producto) & "','$ " & Str(IVA_Incluido) & "','" & Tipo_IVA & "')"
                                RstProductos.Open StrNuevoProducto, Base, adOpenStatic, adLockOptimistic
                                MsgBox "El Producto " & frmCompras.TxtProductos(1).Text & " Se ha incorporado al STOCK. ", vbInformation, "ALTA DE PRODUCTOS."
Respuesta
1

Tanto buscar la forma, encontré la solución... Estaba en la forma que declaraba y usaba las variables.

Dim Cod_Producto As Long
Dim Desc_Producto As String
Dim Cant_Producto As Integer
Dim IVA_Incluido As Double
Dim Precio_Producto As Double
Dim StrNuevoProducto As String
Dim StrMaxProducto As String
Dim StrProductoExistente As String
Dim RstProductoExistente As New ADODB.Recordset
Dim Tipo_IVA As String

If ChkIVA(0).Value Then 'IVA 10,5
IVA_Incluido = Precio_Producto + Precio_Producto * 0.105
Tipo_IVA = 10.5
Set RstProductos = New ADODB.Recordset
'StrNuevoProducto = "INSERT INTO PRODUCTOS(Cod_Producto,Desc_Prod,Cantidad,Precio_Parcial,IVA_Incluido) VALUES ('" & Cod_Producto & "','" & Desc_Producto & "'," & Cant_Producto & ",'" & Str(Precio_Producto) & " $','" & Str(IVA_Incluido) & " $')"
StrNuevoProducto = "INSERT INTO PRODUCTOS(Cod_Producto,Desc_Prod,Cantidad,Precio_Parcial,IVA_Incluido,Tipo_IVA) VALUES ('" & Cod_Producto & "','" & Desc_Producto & "'," & Cant_Producto & ",'$ " & Str(Precio_Producto) & "','$ " & Str(IVA_Incluido) & "','" & Tipo_IVA & "')"
RstProductos. Open StrNuevoProducto, Base, adOpenStatic, adLockOptimistic

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Agregar valores con coma a un campo access 2003

Estoy haciendo unos cálculos para agregar el IVA a unos productos... Cuando agrego el registro no me toma las comas... Ej: Un producto tiene valor 10 y cuando le agrego el 10,5%, en vez de 11,05 me lo muestra como 11... Y el 21 % en vez de 12,1 me...
1 respuesta

Cómo pasar de un textbox a un datagrid. VB 6.0

Desde ya muchas gracias por tomarse el tiempo para leer mi consulta. Tengo un formulario en el cual selecciono un código de un producto el cual me trae la descripción del Producto y su precio... En una caja de texto le agrego la cantidad que el...
1 respuesta

Bloqueo de Registros de Griselda

Borré el archivo ldb, pero igual tengo bloqueada mi tabla, ¿Hay alguna forma de acceder por access o por vb? Y este es el error que me tira cuando se bloquea: Error 3251 Current recordset does not support updating this may be a limitation of the...
1 respuesta

Saber si es mayor de edad. VB 6.0

Disculpe la molestia. Resulta que tengo un inconveniente que no lo puedo resolver. Te comento: Quiero hacer un alta pero solo es posible si la persona a dar de alta es mayor de edad (18 años), además quiero verificar que las fechas ingresadas sean...
1 respuesta

Pregunta sobre sistema Multiusuario

Quisiera saber como tengo que hacer con ADO sin data control para que mi sistema al detectar que esta siendo accedido por otro usuario muestre un mensaje. Te paso de nuevo mi código en el que declaro como optimista a mi sistema 'Declaraciones...
1 respuesta

Conectar con una Consulta Access

Esta es primera vez que le hago una consulta sobre el particular... Mi problema es el siguiente. Tengo una aplicación desarrollada con VB 6.0 y necesito accesar una Consulta de access. La consulta es el resultado de varios registros que se duplican...
1 respuesta

Tablas insertadas con Word

Soy usuario de Visual Basic 6 desde hace un año. Tengo problemas a la hora de entender el mecanismo de OLE Automatización entre otras cosas porque no lo tengo documentado a pesar de tener varios libros de VB 6, uno muy bueno de 1200 págs. Pero donde...
1 respuesta

Cargar datos al formulario al perder el foco

Me gustaría saber como hago para llenar los texbox de un formulario desde una base de datos access, tengo declarada la conexión a la BD en un modulo de declaraciones globales 'Conexiones Base de Datos Global Base As New ADODB. Connection Global...
1 respuesta

Conexión

Gracias por las otras respuesta y mi pregunta es la siguiente tu sabes si se puede, establecer una conexión a oracle crear un recorsert con esa conexión, y luego cerrar la conexión y trabajar con los datos del recorset sin la conexión, te agradecería...
2 respuestas

Combobox en Visual basic 6.0

Estoy haciendo una aplicación en visual basic 6.0 conectado con una base de datos en sql 2000. Lo que pasa es lo siguiente: Quisiera que al momento de cargar el combobox me aparezca los nombres, pero que al momento de guardar el combobox se guarde...
5 respuestas