Comparto código en el que muestro como estoy utilizando ambos métodos, para que les sea mas fácil hacerme una recomendación de cual usar y porque?
Metodo Data.Linq.DataContext.ExecutQuery
Public Function ObtenerProducto(ByVal Id As String, ByVal Almacen As String) As List(Of venta.Productos)
Dim Datos As List(Of venta.Producto) = New List(Of enta.Producto)
Dim Consulta As String
Try
Consulta = "SELECT
Id,
Nombre,
Descripcion,
FROM
DBO.Productos
WHERE
Id = {0}
AND Almacen = {1} "
' Dim db As New venta(ConfigurationManager.ConnectionStrings("dbventa").ToString())
' Inherits DataContext
'Public Sub New(ByVal Conexion As String)
' MyBase.New(Conexion)
'End Sub
Datos = db.ExecuteQuery(Of venta.Productos)(Consulta, Id, Almacen).ToList()
Catch ex As Exception
NotificarError(ex)
End Try
Return Datos
End Function
Metodo usando SqlClient.SqlDataReader
Public Function ObtenerProducto(ByVal Id As String, ByVal Almacen As String) As List(Of venta.Producto)
Dim Datos As List(Of venta.Producto) = New List(Of venta.Producto)
Dim Consulta As String
Try
Consulta = "SELECT
Id,
Nombre,
Descripcion
FROM
DBO.Productos
WHERE
Id = @Id
AND Almacen = @Almacen "
Dim SqlConexion As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("dbventa").ToString())
Dim SqlComando As SqlClient.SqlCommand = New SqlClient.SqlCommand(Consulta, SqlConexion)
Dim Sqldr As SqlClient.SqlDataReader
SqlComando.Parameters.AddWithValue("@Id", SqlDbType.VarChar).Value = Id
SqlComando.Parameters.AddWithValue("@Almacen", SqlDbType.VarChar).Value = Almacen
Dim previousConnectionState As Global.System.Data.ConnectionState = SqlComando.Connection.State
If ((SqlComando.Connection.State And Global.System.Data.ConnectionState.Open) <> Global.System.Data.ConnectionState.Open) Then
SqlConexion.Open()
End If
Sqldr = SqlComando.ExecuteReader()
While Sqldr.Read()
Dim valor As venta.pruducto = New venta.pruducto
valor.Id = Sqldr(0).ToString()
valor.Nombre = Sqldr(1).ToString()
valor.Descripcion = Sqldr(2).ToString()
Datos.add(valor)
End While
Sqldr.Close()
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
SqlConexion.Close()
End If
Catch ex As Exception
NotificarError(ex)
End Try
Return Datos
End Function
El objetivo de esta consulta es utilizar un método para el desarrollo de web API.
Gracias por su colaboración.