Valor de tipo de datos

Esto esta en la ayuda de ADO de tu Visual Basic, busca ahi, se las llama
variables de constantes o algo asi.

Salu2

Maximiliano Damian Accotto


"Ricardo Uribe" escribió en el mensaje
news:
> He visto un codigo en Visual Basic en el que comparan el tipo de dato

un
> campo de Sql con un valor numerico, he buscado en la ayuda a ver si

> esos valores pero no he encontrado nada, alguien me puede decir donde
puedo
> encontrar una lista de que valor numerico corresponde a cada tipo de

> de SQL.
>
> Este es el codigo que he visto.
>
> For i = 0 To rs.Fields.Count - 1
> Select Case rs.Fields(i).Type
> Case 200, 129, 130, 202
> txtcampo(i).MaxLength = rs.Fields(i).DefinedSize
> End Select
> Next i
>
>
>

He visto un codigo en Visual Basic en el que comparan el tipo de dato de

campo de Sql con un valor numerico, he buscado en la ayuda a ver si salen
esos valores pero no he encontrado nada, alguien me puede decir donde

encontrar una lista de que valor numerico corresponde a cada tipo de datos
de SQL.

Este es el codigo que he visto.

For i = 0 To rs.Fields.Count - 1
Select Case rs.Fields(i).Type
Case 200, 129, 130, 202
txtcampo(i).MaxLength = rs.Fields(i).DefinedSize
End Select
Next i

Gracias, estuve viendo la ayuda, bueno aun no encuentro lo que busco, pero
encontre un pequeño ejemplo.
Voy a comenzar a probar a ver si me salen los valores que necesito.


"Maximiliano D. A." <maxi_accotto[arroba]speedy[.]com[.]ar> escribió en el
mensaje news:
> Esto esta en la ayuda de ADO de tu Visual Basic, busca ahi, se las llama
> variables de constantes o algo asi.
>
> Salu2
>
> Maximiliano Damian Accotto
>
>
> "Ricardo Uribe" escribió en el mensaje
> news:
> > He visto un codigo en Visual Basic en el que comparan el tipo de dato
de
> un
> > campo de Sql con un valor numerico, he buscado en la ayuda a ver si
salen
> > esos valores pero no he encontrado nada, alguien me puede decir donde
> puedo
> > encontrar una lista de que valor numerico corresponde a cada tipo de
datos
> > de SQL.
> >
> > Este es el codigo que he visto.
> >
> > For i = 0 To rs.Fields.Count - 1
> > Select Case rs.Fields(i).Type
> > Case 200, 129, 130, 202
> > txtcampo(i).MaxLength = rs.Fields(i).DefinedSize
> > End Select
> > Next i
> >
> >
> >
>
>