Concatenar sentencia sql larga

[t0n1]

Hola!!! Necesito saber como concantenar esta sentencia que no me entra a lo largo del formulario. Este es el código:

sql = "insert into facturas (numfacPri, numfacSec, fechafac, CodCli, Nombredecliente, Domicilio, Localidad, ConddeVenta, NrodeCUIT, NumRemito, Cant1, Cant2, Cant3, Cant4, Cant5, Cant6, codart1 , codart2, codart3, codart4, codart5, codart6, Importe1, Importe2, Importe3, Importe4, Importe5, Importe6, Total, Subtotal, Pesos) Values (" & lblNumfacPri.Caption & ", " & lblNumfacSec.Caption & ", '" & lblFecha & "', " & CodCli & ", '" & cmbNombre & "', '" & txtDomicilio.Text & "', '" & txtLocalidad.Text & "', '" & txtCond.Text & "', " & txtCuit.Text & ", '" & txtRemito.Text & "', " & txtCant.Text & ", " & txtCant2.Text & ", " & txtCant3.Text & ", " & txtCant4.Text & ", " & txtCant5.Text & ", " & txtCant6.Text & ", '" & codart1 & "', '" & codart2 & "', '" & codart3 & "', '" & codart4 & "', '" & codart5 & "', '" & codart6 & "', " & txtImp.Text & ", " & txtImp2.Text & ", " & txtImp3.Text & ", " & txtImp4.Text & ", " & txtImp5.Text & ", " & txtImp6.Text & ", " & txtTotal.Text & ", " & txtSubtotal.Text & ", " & txtPesos.text & ")"

Cuando termino con la sentencia me aparece el cartel de error: "Se esperaba fín de la instrucción o etiqueta o..."

Saludos!!!

[lokoman]

Hola!!

Código vb:

sql = "insert into facturas (numfacPri, numfacSec, " _
    & "fechafac, CodCli, Nombredecliente, Domicilio, Localidad, ConddeVenta, NrodeCUIT, NumRemito, " _
    & "Cant1, Cant2, Cant3, Cant4, Cant5, Cant6, codart1 , codart2, codart3, codart4, codart5, codart6, " _
    & "Importe1, Importe2, Importe3, Importe4, Importe5, Importe6, Total, Subtotal, Pesos) Values (" _
    & lblNumfacPri.Caption & ", " & lblNumfacSec.Caption & ", '" & lblFecha & "', " & CodCli _
    & ", '" & cmbNombre & "', '" & txtDomicilio.Text & "', '" & txtLocalidad.Text & "', '" _
    & txtCond.Text & "', " & txtCuit.Text & ", '" & txtRemito.Text & "', " & txtCant.Text & ", " _
    & txtCant2.Text & ", " & txtCant3.Text & ", " & txtCant4.Text & ", " & txtCant5.Text & ", " _
    & txtCant6.Text & ", '" & codart1 & "', '" & codart2 & "', '" & codart3 & "', '" & codart4 _
    & "', '" & codart5 & "', '" & codart6 & "', " & txtImp.Text & ", " & txtImp2.Text & ", " _
    & txtImp3.Text & ", " & txtImp4.Text & ", " & txtImp5.Text & ", " & txtImp6.Text & ", " _
    & txtTotal.Text & ", " & txtSubtotal.Text & ", " & txtPesos.Text & ")"
 

Verifica que todo guarde correctamente!

[t0n1]

Iniciado por lokoman

Hola!!

Código vb:

sql = "insert into facturas (numfacPri, numfacSec, " _
    & "fechafac, CodCli, Nombredecliente, Domicilio, Localidad, ConddeVenta, NrodeCUIT, NumRemito, " _
    & "Cant1, Cant2, Cant3, Cant4, Cant5, Cant6, codart1 , codart2, codart3, codart4, codart5, codart6, " _
    & "Importe1, Importe2, Importe3, Importe4, Importe5, Importe6, Total, Subtotal, Pesos) Values (" _
    & lblNumfacPri.Caption & ", " & lblNumfacSec.Caption & ", '" & lblFecha & "', " & CodCli _
    & ", '" & cmbNombre & "', '" & txtDomicilio.Text & "', '" & txtLocalidad.Text & "', '" _
    & txtCond.Text & "', " & txtCuit.Text & ", '" & txtRemito.Text & "', " & txtCant.Text & ", " _
    & txtCant2.Text & ", " & txtCant3.Text & ", " & txtCant4.Text & ", " & txtCant5.Text & ", " _
    & txtCant6.Text & ", '" & codart1 & "', '" & codart2 & "', '" & codart3 & "', '" & codart4 _
    & "', '" & codart5 & "', '" & codart6 & "', " & txtImp.Text & ", " & txtImp2.Text & ", " _
    & txtImp3.Text & ", " & txtImp4.Text & ", " & txtImp5.Text & ", " & txtImp6.Text & ", " _
    & txtTotal.Text & ", " & txtSubtotal.Text & ", " & txtPesos.Text & ")"
 

Verifica que todo guarde correctamente!

Me apareció este cartel:

"Error de desbordamiento aritmético al convertir expresión al tipo de dat int"

Están todos los datos tal cual su tipo. No toque nada.

Saludos!

[lokoman]

En tu BD tienes un campo tipo INTEGER, pero le estas pasando un valor mas grande... por eso el error...

http://msdn.microsoft.com/es-es/libr...(v=vs.80).aspx

Copia el contenido del Select y prueba en tu motor de BD

[t0n1]

Iniciado por lokoman

En tu BD tienes un campo tipo INTEGER, pero le estas pasando un valor mas grande... por eso el error...

http://msdn.microsoft.com/es-es/libr...(v=vs.80).aspx

Copia el contenido del Select y prueba en tu motor de BD

Listo. Ahí le cambié el tipo de dato al campo número de cuit a texto. Gracias!!!

[lokoman]