Consulta de EXECUTE

eparrf · #1 (**permalink**) 08/12/2011, 16:42

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

gnzsoloyo · #2 (**permalink**) 09/12/2011, 10:29

Pues, si tiene demasiadas continuaciones de línea... quitale algunas:

Código vb:

Ver originalcnn.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 & ""

drako_darpan · #3 (**permalink**) 09/12/2011, 11:19

Hola que tal, por que no lo haces todo en un SP, asi te evitas el tener tantas lineas de codigo

gnzsoloyo · #4 (**permalink**) 09/12/2011, 12:41

Por cierto, ¿has notado que todo este bloque no tiene sentido?:

Código vb:

Ver original"', 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) &

Estás haciendo nueve veces la misma asignación del mismo dato al mismo campo.

Creo que algo está mal.