Crear una conexion con un datareader con parametro
Publicado por Tania (4 intervenciones) el 14/06/2006 14:35:31
Hola!
No se si me podreis ayudar, estoy intentado cargar unas cajas de texto al seleccionar un dato de un combo, el problema es que la sql que le paso para realizar la conexion debe tener como parametro de busqueda el contenido del combo, y no se como pasarselo, he probado con parameter pero me da fallo.
Dejo aqui el codigo a ver si pueden decirme donde está el problema, gracias de antemano:
'Declaraciones
Dim CNGobex400 As SqlConnection
Dim cm As SqlCommand
Dim Cs As String = "user id=USUARIO;data source=BASEDEDATOS;persist security info=True;initial catalog=TABLA"
Dim Dr As SqlDataReader
'Crea la conexion
CNGobex400 = New SqlConnection(Cs)
cm = New SqlCommand("select * from De100m5 order by [orden/partida] where [orden/partida]=?", CNGobex400)
cm.Parameters("orden").Value = txtOrden.Text
**** Es las lineas de arriba donde creo que puede estar el problema, al pasarle la sql***
'Abre la conexion
CNGobex400.Open()
Dr = cm.ExecuteReader()
'Carga las cajas de texto
If Dr.HasRows Then
txtOrden.Text = Dr.GetValue(0)
End If
Un saludo y gracias.
Tania
No se si me podreis ayudar, estoy intentado cargar unas cajas de texto al seleccionar un dato de un combo, el problema es que la sql que le paso para realizar la conexion debe tener como parametro de busqueda el contenido del combo, y no se como pasarselo, he probado con parameter pero me da fallo.
Dejo aqui el codigo a ver si pueden decirme donde está el problema, gracias de antemano:
'Declaraciones
Dim CNGobex400 As SqlConnection
Dim cm As SqlCommand
Dim Cs As String = "user id=USUARIO;data source=BASEDEDATOS;persist security info=True;initial catalog=TABLA"
Dim Dr As SqlDataReader
'Crea la conexion
CNGobex400 = New SqlConnection(Cs)
cm = New SqlCommand("select * from De100m5 order by [orden/partida] where [orden/partida]=?", CNGobex400)
cm.Parameters("orden").Value = txtOrden.Text
**** Es las lineas de arriba donde creo que puede estar el problema, al pasarle la sql***
'Abre la conexion
CNGobex400.Open()
Dr = cm.ExecuteReader()
'Carga las cajas de texto
If Dr.HasRows Then
txtOrden.Text = Dr.GetValue(0)
End If
Un saludo y gracias.
Tania
Valora esta pregunta


0