Programación General > Visual Basic 6.0 e inferiores

 Update

(1/2) > >>

juravi:
Hola amigos, tengo un problema al momento de actualizar un registro que es demasiado largo y toma mas de una linea de codigo en vb y sentencia sql

Miren por ejemplo.

--- Citar ---Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing
--- Fin de la cita ---
[/color]

La pregunta es si conosen algo ademas de _& para unir lineas ya que esto me da error
si lo pongo asi no me da error


--- Citar ---Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing
--- Fin de la cita ---
[/color]

Para ver si me pueden hechar la mano.
Saludos y Feliz Navidad :hola:

ebolo:
Hola juravi, prueba a ponerlo de esta forma.

--- Citar ---Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Where ......",.......
Set Prueba = Nothing

--- Fin de la cita ---

Es decir el guión al final después del & y con un espacio entre medias.
Saludos.
Felices Fiestas a todos.

juravi:
Que onda ebolo, jjajaja disculpa .. no se en que estaba pensando..
el codigo es asi como lo pusiste


--- Citar ---Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Where ......",.......
Set Prueba = Nothing
--- Fin de la cita ---

Pero asi para varias lineas no me funciona.. Me manda error  solo acepta un solo & _
Osea:


--- Citar ---Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..  " & _
"Where ......",.......
Set Prueba = Nothing
--- Fin de la cita ---

si conoces otra forma me puedes decir....
Que pases Feliz año

DiabloRojo:
Tengo entendido que la consulta de actualización tiene esta forma:


--- Citar ---UPDATE Nombre_tabla SET Nombre_campo=Expresion1, Nombre_campo=expresión2,..., Nombre_campo=expresiónN WHERE Nombre_campo=Condición_de_búsqueda

--- Fin de la cita ---

Sin el FROM y añadiendo un SET. Por cuestiones de legibilidad tal vez podrías almacenar tu consulta a una variable String y luego pasar esta variable al método .Open. Algo así:


--- Código: Text --- Dim consultaSQL as String consultaSQL="UPDATE [I]Nombre_tabla[/I] SET..." ' tan larga como sea tu consulta Set Prueba = Nothing'Prueba.Open consultaSQL'Set Prueba = Nothing  

Espero que te sirva de algo...


DiabloRojo

juravi:
:devil:
Hola y gracias, lo voy a probar. Yo tenia otra solución pero mi jefe dice q es poco ortodoxa.
De nuevo.. Gracias

 :scream:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente