Cómo guardar nombres de campos en variables?

23/07/2003 - 16:27 por LikidSoul | Informe spam
Hola listeros,
tengo una duda que posiblemente ya se ha contestado, pero os rogaría me la
volvíerais a contestar, pues he buscado ya bastante y no consigo
solventarlo... (mil gracias por vuestra paciencia!!)
Tengo 50 campos en una tabla de SQLServer, llamados In1, In2, In3, ...,
In48, In49, In50. Sé que existe una forma para insertarlo todo desde bucle,
con rdo (pues yo lo hice hace 4 ó 5 años), y me parecía que era algo así:

dim ilB as int
Do Until ilB = 50
ilB = ilB + 1
strIn = "In" & ilB
Debug.Print rs.[strIn] 'Pero así no funciona
Loop

Lo he probado de 20 maneras distintas (con paréntesis, con comillas,
comillas simples, sin corchetes, etc.)
Alguien puede ayudarme? Cómo puedo mostrar los 50 registros sin tener que
escribir Print rs!In1, Print rs!In2, Print rs!In3, ..., Print rs!In50, sino
Print rs![variable]

Gracias desde ya!
Cetim

Preguntas similare

Leer las respuestas

#1 Víctor B.
23/07/2003 - 16:36 | Informe spam
Prueba esto:

For H=0 to 49
Debug.Print rs.Fields(H).Value
Next

"LikidSoul" escribió en el mensaje
news:bfm5vu$ccq$
Hola listeros,
tengo una duda que posiblemente ya se ha contestado, pero os rogaría me la
volvíerais a contestar, pues he buscado ya bastante y no consigo
solventarlo... (mil gracias por vuestra paciencia!!)
Tengo 50 campos en una tabla de SQLServer, llamados In1, In2, In3, ...,
In48, In49, In50. Sé que existe una forma para insertarlo todo desde


bucle,
con rdo (pues yo lo hice hace 4 ó 5 años), y me parecía que era algo así:

dim ilB as int
Do Until ilB = 50
ilB = ilB + 1
strIn = "In" & ilB
Debug.Print rs.[strIn] 'Pero así no funciona
Loop

Lo he probado de 20 maneras distintas (con paréntesis, con comillas,
comillas simples, sin corchetes, etc.)
Alguien puede ayudarme? Cómo puedo mostrar los 50 registros sin tener que
escribir Print rs!In1, Print rs!In2, Print rs!In3, ..., Print rs!In50,


sino
Print rs![variable]

Gracias desde ya!
Cetim


Respuesta Responder a este mensaje
#2 Leonardo Azpurua
23/07/2003 - 16:42 | Informe spam
"LikidSoul" escribió en el mensaje
news:bfm5vu$ccq$
dim ilB as int
Do Until ilB = 50
ilB = ilB + 1
strIn = "In" & ilB
Debug.Print rs.[strIn] 'Pero así no funciona
Loop



Debería funcionar con rs.Fields(strIn)

Salud!

Leonardo
[MS MVP - VB]
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida