SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: juravi en Jueves 23 de Diciembre de 2004, 23:19

Título: Update
Publicado por: juravi en Jueves 23 de Diciembre de 2004, 23:19
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
[/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
[/color]

Para ver si me pueden hechar la mano.
Saludos y Feliz Navidad :hola:
Título: Re: Update
Publicado por: ebolo en Viernes 24 de Diciembre de 2004, 16:09
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

Es decir el guión al final después del & y con un espacio entre medias.
Saludos.
Felices Fiestas a todos.
Título: Re: Update
Publicado por: juravi en Domingo 26 de Diciembre de 2004, 17:38
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

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

si conoces otra forma me puedes decir....
Que pases Feliz año
Título: Re: Update
Publicado por: DiabloRojo en Domingo 26 de Diciembre de 2004, 22:55
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

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
  1.  
  2. Dim consultaSQL as String
  3.  
  4. consultaSQL="UPDATE [I]Nombre_tabla[/I] SET..." ' tan larga como sea tu consulta
  5.  
  6. Set Prueba = Nothing
  7. '
  8. Prueba.Open consultaSQL
  9. '
  10. Set Prueba = Nothing
  11.  
  12.  


Espero que te sirva de algo...


DiabloRojo
Título: Re: Update
Publicado por: juravi en Lunes 27 de Diciembre de 2004, 14:55
: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:
Título: Re: Update
Publicado por: Brroz en Lunes 27 de Diciembre de 2004, 18:00
Hola.

Comentarios hechos aparte, en diseño, el editor de vb limita el número de divisiones de línea que puedes tener a no sé cuanto. Sencillamente no crees tantas divisiones de línea... haz cada línea más larga, aunque sea incomodo y tengas que 'h-escrolear' de seguido.

Chau.
Título: Re: Update
Publicado por: juravi en Martes 28 de Diciembre de 2004, 21:25
:devil:
Hola, otra vez gracias, pero con el codigo que me dista antes me funciono, es que la tabla tiene mas de 40 campos , pero con eso funciono y mi jefe no dijo nada :P
 :kicking:
Otra vez gracias :scream: