Programando de Madrugada

Metodos de eliminacion Private Sub eliminarclienteBD ( ByVal pnombres As String , ByVal papellidos As String , _ ByVal pDireccion As String , ByVal pdni As String ) Dim myStoreBD As New StoreBD ( ) Try Dim queryCliente As IQueryable ( Of Cliente ) = From c In myStoreBD . Cliente Where c . Dni = pdni Select c Dim updateCliente As Cliente = queryCliente . FirstOrDefault 'actualizamos el registro updateCliente . Nombre = pnombres updateCliente . Apellidos = papellidos updateCliente . Direccion = pDireccion myStoreBD . SubmitChanges ( ) Catch ex As Exception Finally End Try End Sub Private Sub eliminarclienteBD ( ByVal pdni As String ) Dim myStoreBD As New StoreBD ( ) Try Dim queryCliente As IQueryable ( Of Cliente ) = From

Clase Entidad en Linq Imports System . Data . Linq Imports System Imports System . Collections . Generic Imports System . ComponentModel Imports System . Data Imports System . Data . Linq . Mapping Imports System . Linq < Table ( Name : = "TContactenos" ) > _ Public Class CContactenos Private _Id As Long Private _Nombres As String Private _Dni As String Private _Email As String Public Sub New ( ) MyBase . New ( ) End Sub < Column ( Storage : = "_Id" , DbType : = "BigInt NOT NULL" , IsPrimaryKey : = True ) > _ Public Property Id ( ) As Long Get Return Me . _Id End Get Set ( value As Long ) If ( String . Equals ( Me . _Nombres , value ) = False ) Then Me . _Id = value End If End Set End Property < Column ( Storage : = &qu

Clase Ejemplo de como Enlazar a una BD y una Tabla Con System.Data.LinQ Option Strict On Option Explicit On Imports System Imports System . Collections . Generic Imports System . ComponentModel Imports System . Data Imports System . Data . Linq Imports System . Data . Linq . Mapping Imports System . Linq Imports System . Linq . Expressions Imports System . Reflection Namespace PhoneAppLinQ Partial Public Class MyBD Inherits System . Data . Linq . DataContext Private Shared mappingSource As System . Data . Linq . Mapping . MappingSource = New AttributeMappingSource Public Sub New ( ByVal connection As String ) MyBase . New ( connection , mappingSource ) End Sub Public Sub New ( ByVal connection As String , ByVal mappingSource As System . Data . Linq . Mapping . MappingSource ) MyBase . New ( connection , mappingSource ) End Sub