angusacdc

angusacdc dijo:Buenas, les dejo algo de lo que estamos viendo en la facu.. es un ABM en visual basic .net en modo desconectado.. es bastante simple.. prometo para la proxima uno en capas Esta es la cap por si lo quieren hacer asi se dan una idea..Aca el codigo del ABM: angusacdc dijo:'IMPORTO LAS BIBLIOTECAS IMPORTANTESImports System.DataImports System.Data.SqlClientImports System.Data.OleDbPublic Class Form1 'DECLARO E INSTANCIO SQLCONNECTION Y LE PASO COMO PARAMETRO EL STRING DE CONEXION A LA BD Dim CN As New SqlConnection("Data Source=.;Initial Catalog=prueba;Integrated Security=True" ) 'DECLARO E INSTANCIO DATAADAPTER Y LE PASO COMO PARAMETRO UNA CONSULTA Y LA CONEXION Dim DA As New SqlDataAdapter("Select * from Alumno", CN) 'DECLARO E INSTANCIO UN DATASET Dim DS As New DataSet 'DECLARO E INSTANCIO UN DATATABLE Dim DT As New DataTable 'CONEXION A LA BD Y TOMA DE DATOS Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically If DS.Tables.Contains("Alumno" ) Then DS.Tables.RemoveAt(0) End If DA.Fill(DS, "Alumno" ) DT = DS.Tables("Alumno" ) DataGridView1.DataSource = DS.Tables("Alumno" ) End Sub 'ALTA Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Dim DR As DataRow = DT.NewRow DR("Legajo" ) = TextBox1.Text DR("Nombre" ) = TextBox2.Text DR("Apellido" ) = TextBox3.Text DR("DNI" ) = Convert.ToString(TextBox4.Text) DR("Fecha_Nac" ) = TextBox5.Text DT.Rows.Add(DR) DataGridView1.DataSource = DS.Tables("Alumno" ) Catch ex As Exception MsgBox("Se produjo el siguiente error al intentar dar de alta: " + vbCrLf + ex.Message) End Try End Sub 'BAJA Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Dim fila As DataGridViewRow = DataGridView1.SelectedRows.Item(0) Dim Rows() As DataRow = DT.Select("Legajo = " & fila.Cells("Legajo" ).Value) For Each dr As DataRow In Rows 'CAMBIO EL ESTADO DEL DATAROW A DELETED dr.Delete() Next Catch ex As Exception MsgBox("Se produjo el siguiente error al intentar dar de baja: " + vbCrLf + ex.Message) End Try End Sub 'MODIFICACION Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim fila As DataGridViewRow = DataGridView1.SelectedRows(0) For Each x As DataRow In DT.Rows If x.Item(0) = fila.Cells(0).Value Then x("Legajo" ) = TextBox1.Text x("Nombre" ) = TextBox2.Text x("Apellido" ) = TextBox3.Text x("DNI" ) = TextBox4.Text x("Fecha_Nac" ) = TextBox5.Text End If Next DataGridView1.DataSource = DS.Tables("Alumno" ) Catch ex As Exception MsgBox("exception" ) End Try End Sub 'ACTUALIZAR LA BD Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try Dim CB As New SqlCommandBuilder(DA) DA.InsertCommand = CB.GetInsertCommand DA.DeleteCommand = CB.GetDeleteCommand DA.UpdateCommand = CB.GetUpdateCommand DA.Update(DS, "Alumno" ) Catch ex As Exception MsgBox("Se produjo el siguiente error al intentar actualizar la BD: " + vbCrLf + ex.Message) End Try End Sub 'SELECCION DE FILA Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick Try Dim fila As DataGridViewRow = DataGridView1.SelectedRows.Item(0) TextBox1.Text = Convert.ToString(fila.Cells(0).Value) TextBox2.Text = Convert.ToString(fila.Cells(1).Value) TextBox3.Text = Convert.ToString(fila.Cells(2).Value) TextBox4.Text = Convert.ToString(fila.Cells(3).Value) TextBox5.Text = Convert.ToString(FormatDateTime(fila.Cells(4).Value)) DataGridView1.DataSource = DS.Tables("Alumno" ) Catch ex As Exception MsgBox("hubo un error, seleccione la fila completa" ) End Try End SubEnd Classangusacdc dijo:Si estas estudiando Ingenieria, Unite a Ingenieringa:angusacdc dijo:Unite:Saludos .......

La Biblia de Java 2 Anaya Datos tecnicos: Anaya Multimedia | ISBN 8441510377 | PDF | September 30, 2005 | 960 pages | 11.5 MB dijo:Este libro está diseñado para mostrarle toda la historia del lenguaje de programación Java que un libro puede contener. Veremos no sólo toda la sintaxis de Java, desde la declaración de variables hasta temas de orientación a objetos avanzada, sino también el lenguaje Java en el mundo real. Se cubrirán temas como permisos de acceso a applets, uso del visualizador de Java, creación de conexiones cliente/servidor sobre Internet, creación de Java Beans, conexión de bases de datos y multithread. En este libro se tratan cientos de temas, y cada uno de ellos viene con un ejemplo que muestra cómo funciona. Está dividido en temas separados y fácilmente accesibles y en cada uno de ellos se trata un caso de programación diferente. Algunos de estos temas son los que se muestran a continuación: dijo:1.- Toda la sintaxis de Java 2. 2.- Programación orientada a objetos. 3.- Herencia y clases internas. 4.- Abstract windowing toolkit (AWT). 5.- Botones, casillas de activación y botones de opción. 6.- Selectores, listas y cuadros de lista desplegables. 7.- Gráficos, imágenes, texto y fuentes. 8.- Menús, cuadros de diálogo y ventanas. 9.- Barras de progreso, barras de desplazamiento, separadores y cuadros de Desplazamiento. 10.- Tratamiento y ajuste de imágenes. 11.- Java Swing. 12.- Cambios de apariencia con Swing. 13.- Todos los componentes Swing. 14.- Componentes de texto Swing. 15.- Colecciones Java. 16.- Multithreads. 17.- Flujos de E/S. 18.- Manejo de ficheros. 19.- Redes y sockets. 20.- Árboles y tablas. 21.- Java Beans. 22.- Paquetes, interfaces y ficheros JAR. 23.- Seguridad. 24.- Manejo de excepciones. 25.- Manejo del teclado y del ratón. Esta lista no es completa. Uno al que prestaremos especial atención y que no se trata en la mayoría de los libros, es Java Swing, la nueva y revolucionaria interfaz para la programación de clases Java. http://turbo*bit.net/fnikd8brqnog.html..............6.01 MB (copiar el link sin el " * ") Pass: angusacdc Unite:

El libro de Java más premiado "Piensa en Java" segunda edición, introduce todos los fundamentos teóricos y prácticos del lenguaje Java, explicando con claridad y rigor no sólo lo que hace el lenguaje sino también el porqué. Escrito para "enseñar" el lenguaje, es un libro que sirve para iniciarse en Java y para llegar hasta un nivel avanzado, con gran número de ejemplos y ejercicios de programación. Indice: Capítulo 1: Introducción a los objetos Capítulo 2: Todo es un objeto Capítulo 3: Controlar el flujo del programa Capítulo 4: Inialización y limpieza Capítulo 5: Ocultar la implementación Capítulo 6: Reutilizando clases Capítulo 7: Polimorfismo Capítulo 8: Interfaces y clases internas Capítulo 9: Guardar objetos Capítulo 10: Manejo de errores con excepciones Capítulo 11: El sistema de E/S Java Capítulo 12: Identificación de tipos en tiempo de ejecución Capítulo 13: Crear ventanas y applets Capítulo 14: Hilos múltiples Capítulo 15: Computación distribuida Apéndices Caracteristicas: Tipo de archivo: PDF Tamaño: 33.61 MB Idioma: Español Edicion: 2º Editorial: Prentice Hall Autor: Bruce Eckel http://turbo*bit.net/1497athmfwv2.html ( sacar el * ) Pass: angusacdc Todo tiene el mismo Pass Queres compartir tus Libros, opinar o hacer algun pedido? Entonces Unite a esta nueva comu!

Como Programar en Java 7ma Ed Deitel Si estudias ingeniería, unite! http://turbo*bit.net/kjs348zaphwn.html ( sacar el * ) Pass: angusacdc Todo tiene el mismo Pass Queres compartir tus Libros, opinar o hacer algun pedido? Entonces Unite a esta nueva comu!

Roger S. Pressman: Ingenieria del Software:Un Enfoque Practico Roger Pressman dijo: Indice: PARTE PRIMERA: EL PRODUCTO Y EL PROCESO CAPITULO 1. EL PRODUCTO, 3 CAPITULO 2. EL PROCESO, 13 PARTE SEGUNDA: GESTIÓN DE PROYECTOS DE SOFTWARE CAPITULO 3. CONCEPTOS SOBRE GESTIÓN DE PROYECTOS, 37 CAPITULO 4. PROCESO DE SOFTWARE Y MÉTRICAS DE PROYECTOS, 53 CAPITULO 5. PLANIFICACIÓN DE PROYECTOS DE SOFTWARE, 77 CAPITULO 6. ANÁLISIS Y GESTIÓN DEL RIESGO, 97 CAPITULO 7. PLANIFICACIÓN TEMPORAL Y SEGUIMIENTO DEL PROYECTO, 111 CAPITULO 8. GARANTIA DE CALIDAD DEL SOFTWARE (SQAICCS), 131 CAPITULO 9. GESTIÓN DE LA CONFIGURACIÓN DEL SOFTWARE (GCSISCM), 151 PARTE TERCERA: MÉTODOS CONVENCIONALES PARA LA INGENIERIA DEL SOFTWARE CAPITULO 10. INGENIERIA DE SISTEMAS, 165 CAPITULO 11. CONCEPTOS Y PRINCIPIOS DEL ANALISIS, 181 CAPITULO 12. MODELADO DEL ANÁLISIS, 199 CAPITULO 13. CONCEPTOS Y PRINCIPIOS DE DISENO, 219 CAPITULO 14. DISENO ARQUITECTÓNICO, 237 CAPITULO 15. DISENO DE LA INTERFAZ DE USUARIO, 259 CAPITULO 16. DISEÑO A NIVEL DE COMPONENTES, 273 CAPITULO 17. TÉCNICAS DE PRUEBA DEL SOFTWARE, 281 CAPITULO 18. ESTRATEGIAS DE PRUEBA DEL SOFTWARE, 305 CAPITULO 19. MÉTRICAS TÉCNICAS DEL SOFTWARE, 323 PARTE CUARTA: INGENIERIA DEL SOFTWARE ORIENTAD A OBJETOS CAPITULO 20. CONCEPTOS Y PRINCIPIOS ORIENTADOS A OBJETOS, 343 CAPITULO 21. ANÁLISIS ORIENTADO A OBJETOS, 361 CAPITULO 22. DISENO ORIENTADO A OBJETOS, 379 CAPITULO 23. PRUEBAS ORIENTADAS A OBJETOS, 407 CAPITULO 24. MÉTRICAS TÉCNICAS PARA SISTEMAS ORIENTADOS A OBJETOS, 421 PARTE QUINTA: TEMAS AVANZADOS EN INGENIERIA DEL SOFTWARE CAPITULO 25. MÉTODOS FORMALES, 435 CAPITULO 26. INGENIERIA DEL SOFTWARE DE SALA LIMPIA, 459 CAPITULO 27. INGENIERIA DEL SOFTWARE BASADA EN COMPONENTES, 473 CAPITULO 28. CLIENTEISERVIDOR, 491 CAPITULO 29. INGENIERIA W EB, 521 INGENIERIA DEL SOFTWARE DEL COMERCIO ELECTRONICO CONTENIDOS A PRIMERA VISTA CAPITULO 30. REINGENIERIA, 541 CAPITULO 31. INGENIERIA DEL SOFTWARE ASISTIDA POR COMPUTADORA, 559 CAPITULO 32. PERSPECTIVAS FUTURAS, 573 APÉNDICE, 581 ÍNDICE, 589 Caracteristicas: Tipo de archivo: PDF Tamaño: 87.97 MB Autor: Roger S. Pressman Editorial: McGraw Hill Edicion: 5º Idioma: Español Servidor: Megaupload Descarga: Pass: angusacdc angusacdc dijo: Si estas estudiando Ingenieria, Unite a Ingenieringa: .......

Henry Korth: Fundamento de base de datos 4º Ed. Reseña La quinta edición del libro Fundamentos de bases de datos ofrece todo lo necesario para una profunda comprensión de los sistemas de bases de datos. Los autores explican conceptos fundamentales de la gestión de bases de datos con todo el detalle y atención que los lectores de este clásico libro de texto esperan. Se examinan en profundidad los lenguajes de consultas, el diseño de esquemas, el desarrollo de aplicaciones, la implementación de sistemas, el análisis de datos y las arquitecturas de las bases de datos. El libro es apropiado tanto para cursos introductorios avanzados, así como referencia para profesionales. La quinta edición de Fundamentos de bases de datos conserva el estilo general de las ediciones anteriores a la vez que evolucionan su contenido y organización para reflejar los camnios que se han producido al diseñar, gestionar y utilizar las bases de daos. Algunos de los contenidos de esta nueva edición son: - Nueva organización de los capítulos, adelantando el estudio de SQL. - Tratamiento ampliado de SQL,incluyendo SQL:2003. - Una nueva parte dedicada al diseño de bases de datos con un tratamiento ampliado de la normalización y los datos temporales. - Tratamiento ampliado y actualizado de XML. - Tratamiento detallado de la implementación y las arquitecturas de los sistemas de bases de datos. - Tratamiento ampliado del diseño y desarrollo de aplicaciones. - Capítulos sobre minería y análisis de datos, y de recuperación de información. - Estudios de casos que incluyen las últimas versiones de IBM DB2, Oracle, Microsoft SQL Server y PostgreSQL (nuevo en esta edición). - Énfasis en los aspectos prácticos, aplicaciones e implementación, acompañados de un tratamiento intuitivo de los conceptos teóricos clave. Como en la anterior edición, el libro cuenta con una completa OLC de apoyo y complemento con materiales para el profesor y el alumno. Contenido: 1. Introducción. 2. Modelos entidad-relación. 3. Modelo relacional. 4. SQL. 5. Otros lenguajes relacionales. 6. Integridad y seguridad. 7. Diseño de bases de datos relacionales. 8. Bases de datos orientadas a objetos. 9. Bases de datos relacionales orientadas a objetos. 10. XML. 11. Almacenamiento y estructura de archivos. 12. Indexación y asociación. 13. Procesamiento de consultas. 14. Optimización de consultas. 15. Transacciones. 16. Control de concurrencia. 18. Arquitecturas de los sistemas de bases de datos. 19. Bases de datos distribuidas. 20. Bases de datos paralelas. 21. Desarrollo de aplicaciones y administración. 22. Consultas avanzadas y recuperación de información. 23. Tipos de datos avanzados y nuevas aplicaciones. 24. Procesamiento avanzado de transacciones. 25. Oracle. 26. DB2 de IBM. 27. SQL Server de Microsoft. APÉNDICES: A. Modelo de red (sólo en Web). B. Modelo jerárquico (sólo en Web). C. Diseño relacional avanzado (sólo en Web). Caracteristicas: Tipo de archivo: PDF Tamaño: 6.76 MB Idioma: Español Edicion: 4º Editorial: McGraw Hills Autor: Abraham Silberschatz, Henry Korth, S. Sudarshan Descarga: Resubiendo.. Pass: angusacdc Si estas estudiando Ingenieria, Unite a Ingenieringa: .......

ABM en 5 Capas - en Visual Basic .Net en modo Desconectado con SQL Server Unite: Hoy vamos a aprender a hacer un ABM (Altas, Bajas y Modificaciones) sencillo en modo Desconectado, en 5 capas o Layers, una capa de interface de usuario (UI), una de negocio dividida en la parte estatica (BLL_Static), que son los atributos y en la parte dinamica (BLL_Dynamic), que son los metodos, y una ultima capa de datos, tambien dividida en 2 en una parte (DAL_Services), toda la conexion a la base de datos y la configurarion del comando y en la otra parte (DAL), la forma en la que se guardan los datos, es decir, la implementacion misma del Alta, Baja y Modificacion) con una Base de datos en mi caso de SQL Server --------------------------BARRA-------------------------- Primero que nada, creamos un proyecto del tipo Solucion y le asignamos un nombre. --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- A esa solucion, le agregamos un proyecto nuevo, de esta forma: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- El primer proyecto que le vamos a agregar a nuestra solucion, tiene que ser del tipo Aplicacion de Windows Forms (Tiene que ser el primero para que nos quede como proyecto predeterminado) como vemos en la foto: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Lo siguiente que tenemos que hacer es agregarle otro proyecto del tipo Biblioteca de Clases llamandolo BLL_Static en mi caso como vemos a continuacion: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Asi como agregamos este proyecto agregamos 3 proyectos mas del mismo tipo, con los siguientes nombres: BLL_Dynamic, DAL, DAL_Services Si todo salio bien, nos deberia quedar asi: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Una vez tenemos todos los proyectos agregados y todo listo tenemos que agregar las referencias. y lo vamos a hacer de esta forma: A la capa UI le agregamos referencias hacia las capas BLL_Static y BLL_Dynamic haciendo click derecho en el proyecto UI y click en la opcion Agregar referencia como lo vemos a continuacion: UI BLL_Static UI BLL_Dynamic --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Luego Seleccionamos los proyectos antes mencionados de a uno por vez de esta forma: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Una vez agregadas, de la misma forma agregamos 3 referencias mas: BLL_Dynamic DAL DAL BLL_Static DAL DAL_Services Una vez agregadas todas las referencias de los proyectos, lo que tenemos que hacer es meternos con las clases, empecemos con las de la capa de Interfaz de Usuario UI: En esta capa necesitamos crear una clase que en mi caso la llamé UI_Alumno, esto lo hacemos haciendo boton derecho en el proyecto UI, seleccionando la opcion Agregar Nuevo elemento como vemos a continuacion: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Y luego asi: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Con esa clase sola en este proyecto (UI) me alcanza para el ejemplo que estoy haciendo, pasemos a la Capa: DAL que es en la que por ahi se nos puede complicar un poco porque es la unica que agrega una Interfaz, lo veremos en las siguientes imagenes: De la misma manera que agregamos en el proyecto anterior una clase agregamos un nuevo elemento en nuestra capa DAL: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- pero esta vez seleccionamos un elemento del tipo Interfaz y lo llamamos Interfaz_ABM_Alumno, de esta forma: --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- Ya sabemos como agregar clases e interfaces, ahora tendriamos agregar las clases que hagan falta para que me quede conformada as la arquitectura: --------------------------BARRA-------------------------- Capa: BLL_Dynamic: Clases: BLL_Alumno_D.vb --------------------------BARRA-------------------------- Capa: BLL_Static: Clases: BLL_Alumno_S.vb --------------------------BARRA-------------------------- Capa: DAL: Clases: DAL_Alumno_Datos.vb Interfaces: Interfaz_ABM_Alumno.vb --------------------------BARRA-------------------------- Capa: DAL_Services: Clases: DAL_Comando.vb DAL_Conexion.vb --------------------------BARRA-------------------------- Capa: UI: Clases: Form1.vb UI_Alumno.vb --------------------------BARRA-------------------------- Para que nos quede mas visible, lo vemos en una imagen: Ya esta todo listo para empezar a programar, (o sino pegar el código que les pase ) --------------------------BARRA-------------------------- angusacdc dijo: Capa: BLL_Dynamic angusacdc dijo: Clase: BLL_Alumno_D Public Class BLL_Alumno_D Implements DAL.Interfaz_ABM_Alumno Sub New() Me.PersonaDatos = New DAL.DAL_Alumno_Datos End Sub Private _PersonaDatos As DAL.DAL_Alumno_Datos Public Property PersonaDatos() As DAL.DAL_Alumno_Datos Get Return _PersonaDatos End Get Set(ByVal value As DAL.DAL_Alumno_Datos) _PersonaDatos = value End Set End Property Public Sub Alta(ByVal Obj As Object) Implements DAL.Interfaz_ABM_Alumno.Alta Me.PersonaDatos.Alta(Obj) End Sub Public Sub Baja(ByVal Obj As Object) Implements DAL.Interfaz_ABM_Alumno.Baja Me.PersonaDatos.Baja(Obj) End Sub Public Sub Modificacion(ByVal Obj As Object) Implements DAL.Interfaz_ABM_Alumno.Modificacion Me.PersonaDatos.Modificacion(Obj) End Sub Public Function Seleccion(ByVal Obj As Object) As System.Collections.Generic.List(Of Object) Implements DAL.Interfaz_ABM_Alumno.Seleccion Return Me.PersonaDatos.Seleccion(Obj) End Function End Class --------------------------BARRA-------------------------- angusacdc dijo: Capa: BLL_Static angusacdc dijo: Clase: BLL_Alumno_S Public Class BLL_Alumno_S Sub New() End Sub Sub New(ByVal leg As Integer, ByVal nom As String, ByVal ape As String, ByVal f_nac As Date) Me.Legajo = leg Me.Nombre = nom Me.Apellido = ape Me.Fecha_Nacimiento = f_nac End Sub Private _leg As String Public Property Legajo() As String Get Return _leg End Get Set(ByVal value As String) _leg = value End Set End Property Private _Nom As String Public Property Nombre() As String Get Return _Nom End Get Set(ByVal value As String) _Nom = value End Set End Property Private _Ape As String Public Property Apellido() As String Get Return _Ape End Get Set(ByVal value As String) _Ape = value End Set End Property Private _FechaNac As Date Public Property Fecha_Nacimiento() As Date Get Return _FechaNac End Get Set(ByVal value As Date) _FechaNac = value End Set End Property End Class --------------------------BARRA-------------------------- angusacdc dijo: Capa: DAL angusacdc dijo: Clase: DAL_Alumno_Datos Public Class DAL_Alumno_Datos Implements Interfaz_ABM_Alumno Public Sub Alta(ByVal Obj As Object) Implements Interfaz_ABM_Alumno.Alta Dim DT As DataTable = DAL_Services.DAL_Comando.DataTable("select * from Alumno") Dim DR As DataRow = DT.NewRow Dim c As Integer = 0 Try c = DAL_Services.DAL_Comando.DataTable("select MAX(Alumno.Legajo) from Alumno").Rows(0).Item(0) + 1 Catch ex As Exception c += 1 End Try DR.Item(0) = c DR.Item(1) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Nombre DR.Item(2) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Apellido DR.Item(3) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Fecha_Nacimiento DT.Rows.Add(DR) DAL_Services.DAL_Comando.ActualizarTabla("select * from Alumno", DT) End Sub Public Sub Baja(ByVal Obj As Object) Implements Interfaz_ABM_Alumno.Baja Dim DT As DataTable = DAL_Services.DAL_Comando.DataTable("select * from Alumno where Alumno.Legajo = " & DirectCast(Obj, BLL_Static.BLL_Alumno_S).Legajo) DT.Rows(0).Delete() DAL_Services.DAL_Comando.ActualizarTabla("select * from Alumno", DT) End Sub Public Sub Modificacion(ByVal Obj As Object) Implements Interfaz_ABM_Alumno.Modificacion Dim DT As DataTable = DAL_Services.DAL_Comando.DataTable("select * from Alumno where Alumno.Legajo = " & DirectCast(Obj, BLL_Static.BLL_Alumno_S).Legajo) DT.Rows(0).Item(1) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Nombre DT.Rows(0).Item(2) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Apellido DT.Rows(0).Item(3) = DirectCast(Obj, BLL_Static.BLL_Alumno_S).Fecha_Nacimiento DAL_Services.DAL_Comando.ActualizarTabla("select * from Alumno", DT) End Sub Public Function Seleccion(ByVal Obj As Object) As System.Collections.Generic.List(Of Object) Implements Interfaz_ABM_Alumno.Seleccion Dim DT As DataTable = DAL_Services.DAL_Comando.DataTable("select * from Alumno") Dim listaAlumnos As New List(Of Object) For Each DR As DataRow In DT.Rows listaAlumnos.Add(New BLL_Static.BLL_Alumno_S(DR.Item(0), DR.Item(1), DR.Item(2), DR.Item(3))) Next Return listaAlumnos End Function End Class angusacdc dijo: Interface: Interfaz_ABM_Alumno Public Interface Interfaz_ABM_Alumno Sub Alta(ByVal Obj As Object) Sub Baja(ByVal Obj As Object) Sub Modificacion(ByVal Obj As Object) Function Seleccion(ByVal Obj As Object) As List(Of Object) End Interface --------------------------BARRA-------------------------- angusacdc dijo: Capa: DAL_Services angusacdc dijo: Clase: DAL_Comando Imports System.Data.SqlClient Public Class DAL_Comando Private Shared command As SqlCommand Shared Function Comando(ByVal SelectCommand As String, ByVal conexion As SqlConnection) As SqlCommand command = New SqlCommand(SelectCommand) command.CommandText = SelectCommand command.CommandType = CommandType.Text command.Connection = conexion Return command End Function Shared Function DataTable(ByVal SelectCommand As String) As DataTable Dim DA As New SqlDataAdapter(Comando(SelectCommand, DAL_Conexion.conectar)) Dim DT As New DataTable DA.Fill(DT) Return DT End Function Shared Function StructureTable(ByVal SelectCommand As String) As DataTable Dim DA As New SqlDataAdapter(Comando(SelectCommand, DAL_Conexion.conectar)) Dim DT As New DataTable DA.FillSchema(DT, SchemaType.Mapped) Return DT End Function Shared Sub ActualizarTabla(ByVal SelectCommand As String, ByVal DT As DataTable) Dim DA As New SqlDataAdapter(Comando(SelectCommand, DAL_Conexion.conectar)) Dim CB As New SqlCommandBuilder(DA) DA.InsertCommand = CB.GetInsertCommand DA.DeleteCommand = CB.GetDeleteCommand DA.UpdateCommand = CB.GetUpdateCommand DA.Update(DT) End Sub End Class angusacdc dijo: Clase: DAL_Conexion Imports System.Data.SqlClient Public Class DAL_Conexion Shared Conne As SqlConnection Shared Function Conectar() As SqlConnection Conne = New SqlConnection("Data Source=.;Initial Catalog=Alumno;Integrated Security=True") Return Conne End Function End Class --------------------------BARRA-------------------------- angusacdc dijo: Capa: UI angusacdc dijo: Clase: Form1 Public Class Form1 ' Creo un objeto del tipo Dim UI_Alumno As New UI_Alumno #Region "ABM" Private Sub ALTA(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try UI_Alumno.Alumno_BLL_Static.Nombre = TextBox2.Text UI_Alumno.Alumno_BLL_Static.Apellido = TextBox3.Text UI_Alumno.Alumno_BLL_Static.Fecha_Nacimiento = TextBox4.Text UI_Alumno.Alumno_BLL_Dynamic.Alta(UI_Alumno.Alumno_BLL_Static) listar() Catch ex As Exception MsgBox("Ingrese datos") End Try End Sub Private Sub BAJA(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click UI_Alumno.Alumno_BLL_Static.Legajo = Label5.Text UI_Alumno.Alumno_BLL_Dynamic.Baja(UI_Alumno.Alumno_BLL_Static) listar() End Sub Private Sub MODIFICACION(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click UI_Alumno.Alumno_BLL_Static.Legajo = Label5.Text UI_Alumno.Alumno_BLL_Static.Nombre = TextBox2.Text UI_Alumno.Alumno_BLL_Static.Apellido = TextBox3.Text UI_Alumno.Alumno_BLL_Static.Fecha_Nacimiento = TextBox4.Text UI_Alumno.Alumno_BLL_Dynamic.Modificacion(UI_Alumno.Alumno_BLL_Static) listar() End Sub #End Region #Region "Listar, Textboxs, Datagrid, Form" Sub listar() Try DataGridView1.DataSource = UI_Alumno.Alumno_BLL_Dynamic.Seleccion(UI_Alumno.Alumno_BLL_Static) textboxs() Catch ex As Exception End Try End Sub Sub textboxs() Try Label5.Text = DataGridView1.SelectedCells(0).Value TextBox2.Text = DataGridView1.SelectedCells(1).Value TextBox3.Text = DataGridView1.SelectedCells(2).Value TextBox4.Text = DataGridView1.SelectedCells(3).Value Catch ex As Exception Label5.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Try End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically listar() End Sub Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click textboxs() End Sub #End Region End Class angusacdc dijo: Clase: UI_Alumno Public Class UI_Alumno Sub New() Me.Alumno_BLL_Static = New BLL_Static.BLL_Alumno_S Me.Alumno_BLL_Dynamic = New BLL_Dynamic.BLL_Alumno_D End Sub Private _Alumno_S As BLL_Static.BLL_Alumno_S Public Property Alumno_BLL_Static() As BLL_Static.BLL_Alumno_S Get Return _Alumno_S End Get Set(ByVal value As BLL_Static.BLL_Alumno_S) _Alumno_S = value End Set End Property Private _Alumno_D As BLL_Dynamic.BLL_Alumno_D Public Property Alumno_BLL_Dynamic() As BLL_Dynamic.BLL_Alumno_D Get Return _Alumno_D End Get Set(ByVal value As BLL_Dynamic.BLL_Alumno_D) _Alumno_D = value End Set End Property End Class --------------------------BARRA-------------------------- Miren que lindo el ABM que me hice --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- --------------------------BARRA-------------------------- YAPA: Mi ABM es el Mejor Solo para entendidos link: http://www.youtube.com/watch?v=0C7WVAAy10g --------------------------BARRA-------------------------- angusacdc dijo: Si estas estudiando Ingenieria, Unite a Ingenieringa: --------------------------BARRA-------------------------- Si te gusto el post seguime Espero les haya servido! Saludos --------------------------BARRA-------------------------- .......

Buenas gente! hice una aplicación muy útil a la hora de postear muchos links (como peliculas o musica por ejemplo). Es muy fácil de usar: Solo tienen que seleccionar desde mediafire todos los links, copiarlos, los pegan en la caja de texto y dan click a "Generar enlaces!" Así van a obtener todos los enlaces de sus archivos ordenados y en un solo click! Detalles: La aplicacion esta hecha en C# en Visual Studio 2005 con un plugin (GOA Winforms) para generar un ejecutable .SWF link: Gracias diego por la ayuda! ( @elementalsoft ) Si queres bajarte el ejecutable ( .exe ) buscalo aca: Unite: Seguime si te gusto el post @angusacdc Espero q les sirva y si es asi recomienden!