05/11/2004, 12:24
|
 | | | Fecha de Ingreso: enero-2003 Ubicación: Cochabamba-Bolivia
Mensajes: 93
Antigüedad: 22 años, 1 mes Puntos: 0 | |
| La verdad les agradesco todo el interes que prestan para ayudarme.. :P pero aun reporta error... :(
Public Function get_n() As Integer
Dim com As New SqlCommand("select cod_unidad from producto" & _
"where cod_producto=@c3", conexion)
com.Parameters.Add(New SqlParameter("@c3", SqlDbType.Int))
com.Parameters("@c3").Value = "1"
Dim dr As SqlDataReader
Try
conexion.Open()
dr = com.ExecuteReader() ---------->>> aca reporta error.. :(
If (dr.Read) Then
Return CType(dr("cod_unidad"), Integer)
End If
dr.Close()
Finally
conexion.Close()
End Try
End Function |