Visual Basic - Consulta Demasiadas Lineas en EXECUTE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Consulta Demasiadas Lineas en EXECUTE

Publicado por Eduardo Parra (1 intervención) el 08/12/2011 23:07:39
Hola, tengo un problemita con el codigo en Visual Basic:
Me indica que hay un error ya que hay demasiadas lineas dento de la siguiente instrucción:

Alguien me podria indicar como puedo para dar continuidad o separar el codigo instrucción a instrucción.

Adjunto el codigo, en el que me da el siguiente error, cuando intento insertar otra linea de codigo: DEMASIADAS CONTINUACIONES DE LINEAS

cnn.Execute "UPDATE Coches set Matricula = '" & Text1(1) & _
"', Marca = '" & CmbMarca.ListIndex & _
"', Modelo = '" & Text1(2) & _
"', TipoVehiculo = '" & CmbVehiculo.ListIndex & _
"', FechaMatriculacion = '" & Text1(3) & _
"', Garantia = '" & Text1(4) & _
"', Kilometros = '" & Text1(5) & _
"', NBastidor = '" & Text1(6) & _
"', Color = '" & Text1(7) & _
"', Origen = '" & CmbOrigen.ListIndex & _
"', Combustible = '" & CmbCombustible.ListIndex & _
"', Cilindrada = '" & Text1(8) & _
"', Potencia = '" & Text1(9) & _
"', Puertas = '" & Text1(10) & _
"', Ciudad = '" & Text1(11) & _
"', Carretera = '" & Text1(12) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) &
"' where Id = " & IdRegistro & ""
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Christian
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta Demasiadas Lineas en EXECUTE

Publicado por Christian (713 intervenciones) el 16/12/2011 14:58:52
Parace que tiene un limite de & _ lo cual lo solucionas escribiendo en una sola linea
lo que no entiendo es porque actualizas Mixto tantas veces.

Dim m As String
m = "UPDATE Coches set Matricula = '" & Text1(1) & _
"', Marca = '" & CmbMarca.ListIndex & _
"', Modelo = '" & Text1(2) & _
"', TipoVehiculo = '" & CmbVehiculo.ListIndex & _
"', FechaMatriculacion = '" & Text1(3) & _
"', Garantia = '" & Text1(4) & _
"', Kilometros = '" & Text1(5) & _
"', NBastidor = '" & Text1(6) & _
"', Color = '" & Text1(7) & _
"', Origen = '" & CmbOrigen.ListIndex & _
"', Combustible = '" & CmbCombustible.ListIndex & _
"', Cilindrada = '" & Text1(8) & _
"', Potencia = '" & Text1(9) & _
"', Puertas = '" & Text1(10) & _
"', Ciudad = '" & Text1(11) & _
"', Carretera = '" & Text1(12) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & "' where Id = " & IdRegistro & ""
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar