Urgente!! Repuperar Campo

[gabrielcartes]

Por favor necesito ayuda..... requiero sacar un campo de una tabla en asp es algo asi:

Set RsVerCliente = Server.CreateObject("ADODB.RecordSet")

SQLverCliente= "SELECT " &_
" rut " &_
"FROM " &_
" Cliente_Internet " &_
"WHERE " &_
" campo = 1"

RsVerCliente.Open SQLverCliente, cn

If (Not RSVerCliente.EOF) Then
Rut = Cdbl(RSVerCliente("rut"))
End If


LA PREGUNTA ES: COMO HAGO ESTO MISMO EN ASP.NET trabajando con VB.


GRACIAS.

[RootK]

Puedes usar un datareader.. y si estas usando sqlserver te podría quedar así..:

Dim oConn As New SqlConnection("server=nombreServidor;uid=user;pwd= password;database=NombreBD;connect timeout=2400")
Dim SQLverClient As String = "SELECT rut FROM Cliente_Internet WHERE campo = 1"
Dim cmd As New SqlCommand(SQLverClient, oConn)

Dim RSVerCliente As SqlDataReader = cmd.ExecuteReader

If RSVerCliente.Read Then
Rut = CDbl(RSVerCliente("rut"))
End If

RSVerCliente.Close()
oConn.Close()

Salu2

[gabrielcartes]

Hola Amigo!!! no me funciona el ejemplo... me arroja el siguiente error:

ExecuteReader requires an open and available Connection. The connection's current state is Closed


Por favor... si pueden ayudarme....

[RootK]

Sorry.. me falto abrir la conexion

Falta ésto:

Dim cmd As New SqlCommand(SQLverClient, oConn)
oConn.Open()
Dim RSVerCliente As SqlDataReader = cmd.ExecuteReader
...
..

[gabrielcartes]

No funciono!!!!, tengo este query:

Dim oConn As New SqlConnection(UrlConexion)
Dim SQLverClient As String = "SELECT usu_tipo FROM usuarios_sistema where usu_codigo = '" & Request("txtUsuario") & "' AND usu_estado = 'Y'"
Dim cmd As New SqlCommand(SQLverClient, oConn)
oConn.Open()
Dim RSVerCliente As SqlDataReader = cmd.ExecuteReader

Dim Tipo as String

If RSVerCliente.Read Then
Tipo = CDbl(RSVerCliente("usu_tipo"))
End If
Response.Write (Tipo)
RSVerCliente.Close()
oConn.Close()


y me arroja el siguiente error:

Input string was not in a correct format.


Por favor ayudame, gracias amigo.....

[gabrielcartes]

Funcionoooooooooooooooo Graciassssssssssss