No se han especificado valores para algunos de los parámetros requeridos

[ASelo182]

¡Hola amigos! Tengo un problema con VB6 que no puedo resolver... me estoy volviendo loco

Estoy tratando de guardar en una base de datos los datos introducidos en 6 List distintos.




Para ello, utilizo el siguiente código:

Código PHP:

  Dim CnN As New ADODB.Connection
Dim Rst As New ADODB.Recordset
 
Private Sub Command4_Click()
z = 0
Do While z < lstCodigo.ListCount
CnN.Execute "INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & txtCliente & "', " & Val(lstCantidad.List(z)) & ", '" & lstDetalle.List(z) & "', " & Val(lstPrecio.List(z)) & ", " & Val(lblTotal) & ", " & Val(txtNumeroFactura) & ", " & Val(lstCodigo.List(z)) & ", '" & txtFecha & "', " & lstUnidades.List(z) & " )"
 
  MsgBox "guardado"
Loop
End Sub 
   

Sin embargo, este codigo parece no funcionar ya que me tira el siguiente error: "no se han especificado valores para algunos de los parámetros requeridos".

De hecho, he probado usando el INSERT de otra forma:

Código PHP:

  Dim CnN As New ADODB.Connection
Dim Rst As New ADODB.Recordset
 
Private Sub Command4_Click()
z = 0
Do While z < lstCodigo.ListCount
m = " Insert into ventas (NumeroFactura , Cliente , Codigo , Detalle , Precio , Fecha, Unidad, CantidadVendida, PrecioTotal ) values (" & Val(txtNumeroFactura) & " , ' " & txtCliente & " ' , " & lstCodigo.List(z) & " , ' " & lstDetalle.List(z) & " ' , ' " & lstPrecio.List(z) & " ' , ' " & txtFecha & " ', " & lstUnidades.List(z) & ", " & lstCantidad.List(z) & " , " & lstTotal.List(z) & " )"
 
conexion_basedatos.Execute m 'conexion_basedatos está definida en un Modulo'
 
MsgBox "guardado"
Loop
End Sub 
   

Pero desgraciadamente sigue mostrando el mismo error.

¿A alguien se le ocurre en dónde puede estar el problema?
¡Desde ya, muchas gracias!

[pkj]

La línea del execute no sé como vá, pero lo que si te puedo decir es que si no aumentas Z no vas a guardar nada más que la primera línea de cada listbox, y que el msgbox debería ir despues del Loop.

Suerte

[lokoman]

Hola!!
Intenta asi:

Código vb:

Dim CnN As New ADODB.Connection 
Dim Rst As New ADODB.Recordset 
 
Private Sub Command4_Click() 
z = 0 
Do While z < lstCodigo.ListCount 
CnN.Execute "INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & txtCliente & "', " & Val(lstCantidad.List(z)) & ", '" & lstDetalle.List(z) & "', " & Val(lstPrecio.List(z)) & ", " & Val(lstTotal.list(z)) & ", " & Val(txtNumeroFactura) & ", " & Val(lstCodigo.List(z)) & ", '" & txtFecha & "', " & lstUnidades.List(z) & " )" 
 
z=z+1
Loop 
  MsgBox "guardado" 
End Sub
 

Noté que no usas el lstTotal.list(z). Recuerda que debes tener la misma candidad de items en todos los listbox.

[ASelo182]

Gracias a los dos por su ayuda.
Desgraciadamente, me sigue apareciendo el mismo error. He vuelto a revisar el execute y posteriormente usé el código que me proporcionó lokoman pero al ejecutarlo vuelve a aparecer el mensaje ("no se han especificado valores para algunos de los parámetros requeridos") y al depurar, me marca toda la línea del execute.

Código:

CnN.Execute "INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & txtCliente & "', " & Val(lstCantidad.List(z)) & ", '" & lstDetalle.List(z) & "', " & Val(lstPrecio.List(z)) & ", " & Val(lstTotal.List(z)) & ", " & Val(txtNumeroFactura) & ", " & Val(lstCodigo.List(z)) & ", '" & txtFecha & "', " & lstUnidades.List(z) & " )"

Ya no sé que hacer... tal vez tenga que cambiar los list por un flexgrid

[lokoman]

Haz esto:
Copia toda la linea en la pantalla de immediato (sale con ctrl+G):

?"INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & txtCliente & "', " & Val(lstCantidad.List(z)) & ", '" & lstDetalle.List(z) & "', " & Val(lstPrecio.List(z)) & ", " & Val(lstTotal.List(z)) & ", " & Val(txtNumeroFactura) & ", " & Val(lstCodigo.List(z)) & ", '" & txtFecha & "', " & lstUnidades.List(z) & " )"

luego, puedes ver si te falta algun parametro... eso es lo que dice el error... AAAAAHHHHHH!!! tambien es posible que en el detalle o en algun campo de texto tengas una comilla simple (') eso tambien causaria ese error.

[ASelo182]

Es inútil, amigo. He realizado lo que me dices, he quitado y agregado comillas simple (') en los campos de texto pero siempre aparece el mismo error. Ya no se qué hacer. No se me ocurre nada, tengo la mente en blanco =(

[Monimo]

NO he revisado bien tu código pero estas seguro que todo esta convertido al tipo de dato que tienes especificado en tu tabla?? Si puedes borrar los datos, ve probando uno por uno , es decir primero solo inserta Cliente y su valor, luego cliente y la cantidad vendida, luego cliente, cantidadvendida y detalle.. asi hasta que te tire el error...sabrás entonces que parámetro te falta... por definir o en especifico que lo esta arrojando..

[ASelo182]

¡Gracias a todos por su ayuda! Finalmente utilicé un Flex en vez del List y funcionó :D