Alex Medina

Mi blog, mis cosas…

' Query the database for the rows to be deleted.
Dim deleteOrderDetails = _
    From details In db.OrderDetails() _
    Where details.OrderID = 11000 _
    Select details

For Each detail As OrderDetail In deleteOrderDetails
    db.OrderDetails.DeleteOnSubmit(detail)
Next

Try
    db.SubmitChanges()
Catch ex As Exception
    Console.WriteLine(ex)
    ' Provide for exceptions
End Try

Más información en  http://msdn.microsoft.com/en-us/library/bb386925.aspx

Metiendola en un Namespace y enlazando con librerias si fuese necesario. Una clase tiene sus atributos,  su contrusctores (uno por defecto New()) y las propertys de acceso y modificacion.

Public Class PKSiniestro

Private _Id As Integer
Private _IdSolicitud As Integer

Public Sub New()
Me._Id = 0
Me._IdSolicitud = 0
End Sub

Public Sub New(ByVal Id As Integer, ByVal IdSolicitud As Integer)
Me._Id = Id
Me._IdSolicitud = IdSolicitud
End Sub

Public Property Id()
Get
Return _Id
End Get
Set(ByVal value)
_Id = value
End Set
End Property

Public Property IdSolicitud()
Get
Return _IdSolicitud
End Get
Set(ByVal value)
_IdSolicitud = value
End Set
End Property

End Class

Protected Sub GrdParcelas_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GrdParcelas.PageIndexChanging
 GrdParcelas.PageIndex = e.NewPageIndex
GrdParcelas.DataSource = CType(ViewState("listaParcelas"), List(Of Entidades.ParcelaCopy))
GrdParcelas.DataBind()
 End Sub

De Microsoft:

http://msdn.microsoft.com/en-us/vcsharp/aa336746.aspx

Ejemplos de utilización en un Blog de Microsoft:

http://blogs.msdn.com/vbteam/archive/tags/Converting+SQL+to+LINQ/default.aspx