Visual basic, padres e hijos

Solo disponible en BuenasTareas
  • Páginas : 8 (1795 palabras )
  • Descarga(s) : 0
  • Publicado : 25 de mayo de 2011
Leer documento completo
Vista previa del texto
----datos
Imports ENTIDADES
Imports System.Data.SqlServerCe
Public Class CLS_BOLETA
#Region "LISTAREGISTROS"
Public Function LISTA_REGISTROS() As DataTable

Dim command As IDbCommand = CLS_CONEXION.GET_CONEXION.CreateCommand
Dim table_DT As New DataTable("LISTAREGISTROS")
Dim adapter As New SqlCeDataAdapter(CType(command, SqlCeCommand))

'Principalcommand.CommandType = CommandType.Text
command.CommandText = "SELECT NOMBRE,DIRECCION,CEDULA FROM PADRE"
command.Connection.Open()

Try

adapter.Fill(table_DT)

Return table_DT

Catch ERR As DataException
Throw ERR

Finally
If command.Connection.State = ConnectionState.Open Thencommand.Connection.Close()
End If
End Try
Return table_DT

End Function
#End Region
#Region "SELECCIONARBOLETA"
Public Function SELECCIONAR_BOLETA(ByVal CEDULA_LLAVE_UNICA As String) As CLS_PADRE

Dim command As SqlCeCommand = CLS_CONEXION.GET_CONEXION.CreateCommand

command.CommandText = "SELECT NOMBRE,DIRECCION,CEDULA FROMPADRE WHERE CEDULA =@CEDULA"
command.CommandType = CommandType.Text
command.Parameters.Clear()
command.Parameters.Add(New SqlCeParameter("@CEDULA", CEDULA_LLAVE_UNICA))

command.Connection.Open()

Dim valores_BOLETA As New CLS_PADRE

Try

Dim RESULTADO As SqlCeDataReader = command.ExecuteReader()
IfRESULTADO.Read Then

''BOLETA
valores_BOLETA.CEDULA = RESULTADO("CEDULA")
valores_BOLETA.DIRECCION = RESULTADO("DIRECCION")
valores_BOLETA.NOMBRE = RESULTADO("NOMBRE")

Dim hijos_mismo_lugar As New List(Of CLS_HIJO_MISMO_LUGAR)
'Inicio
''VER SI TIENE ACTIVIDADES EN MISMO LUGAR'LLENAR LISTA MISMO LUGAR
Dim command_mismo_lugar As SqlCeCommand = CLS_CONEXION.GET_CONEXION.CreateCommand
command_mismo_lugar.CommandText = "SELECT NOMBRE FROM MISMO_LUGAR WHERE CEDULAPADRE =@CEDULA"
command_mismo_lugar.CommandType = CommandType.Text
command_mismo_lugar.Connection.Open()command_mismo_lugar.Parameters.Clear()
command_mismo_lugar.Parameters.Add(New SqlCeParameter("@CEDULA", CEDULA_LLAVE_UNICA))

Dim DR_MISMO_LUGAR As SqlCeDataReader = command_mismo_lugar.ExecuteReader()
While DR_MISMO_LUGAR.Read

'Insertar
Dim act_mismo_lugar As New CLS_HIJO_MISMO_LUGARact_mismo_lugar.NOMBRE = DR_MISMO_LUGAR("NOMBRE")
hijos_mismo_lugar.Add(act_mismo_lugar)
act_mismo_lugar = Nothing
End While
command_mismo_lugar.Connection.Close()
DR_MISMO_LUGAR.Dispose()
command_mismo_lugar.Dispose()
valores_BOLETA.HIJOS_MISMO_LUGAR = hijos_mismo_lugar'Fin

Dim hijos_otro_lugar As New List(Of CLS_HIJO_OTRO_LUGAR)
'Inicio
''VER SI TIENE ACTIVIDADES EN OTRO LUGAR
'LLENAR LISTA OTRO LUGAR
Dim command_otro_lugar As SqlCeCommand = CLS_CONEXION.GET_CONEXION.CreateCommand
command_otro_lugar.CommandText = "SELECT NOMBRE FROM OTRO_LUGAR WHERECEDULAPADRE =@CEDULA"
command_otro_lugar.CommandType = CommandType.Text
command_otro_lugar.Connection.Open()
command_otro_lugar.Parameters.Clear()
command_otro_lugar.Parameters.Add(New SqlCeParameter("@CEDULA", CEDULA_LLAVE_UNICA))

Dim RESULTADO_OTRO_LUGAR As SqlCeDataReader = command_otro_lugar.ExecuteReader()...
tracking img