abm - VB .Net 2008 - modo Desconectado

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 .......