Visual Basic.NET - Consulta SQL

   
Vista:

Consulta SQL

Publicado por Tony Valentino (17 intervenciones) el 12/05/2012 20:32:20
Function prestamo(ByRef numero As Integer) As Boolean

Dim oConexion As New SqlConnection()
oConexion.ConnectionString = "Data Source=GRANDE\SQLEXPRESS;Initial Catalog=Biblioteca;Integrated Security=True"
Dim oCmdSql As New SqlCommand
Dim dev As Integer
oConexion.Open()

oCmdSql.CommandType = Data.CommandType.Text
oCmdSql.CommandText = "select * from prestamo where numero = '" & TxCodLibro.Text & "'"
oCmdSql.Connection = oConexion
dev = oCmdSql.ExecuteNonQuery()
oConexion.Close()

Label17.Text = dev

If dev = -1 Then
Return True
Else
Return False
End If


End Function

Esta rutina es solo la funcion, que combinada con otra rutina mayor, realiza una busqueda de un registro y si lo encuentra o no, ejecuta otros procedimientos.

El problema es que en esta rutina de la funcion, siempre la consulta me retorna -1, haya encontrado o no registros, este la tabla vacia o no.

Que debo hacer o que sucede?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Consulta SQL

Publicado por David (46 intervenciones) el 14/05/2012 17:20:31
hola Tony, y si lo haces asi:

Function prestamo(ByRef numero As Integer) As Boolean

Dim oConexion As New SqlConnection()
oConexion.ConnectionString = "Data Source=GRANDE\SQLEXPRESS;Initial Catalog=Biblioteca;Integrated Security=True"
Dim oCmdSql As New SqlCommand
Dim dev As New DataTable
oCmdSql.CommandType = Data.CommandType.Text
oCmdSql.CommandText = "select * from prestamo where numero = '" & numero & "'"
oCmdSql.Connection = oConexion
Dim oAdapter As New SqlDataAdapter(oCmdSql)
oAdapter.Fill(dev)
If dev.Rows.Count > 0 Then
Return True
Else
Return False
End If
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Consulta SQL

Publicado por Tony Valentino (17 intervenciones) el 20/05/2012 00:38:11
Gracias David, justamente me funciono con el If dev.Rows.Count>0 pero primero llenando un DataSet.

Despues me di cuenta de que resultava tambien igual cuando le pones a la funcion:

Protected Function..... en vez de solo Function.......

Gracias hermano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar