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 & ""
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
0