Tengo un único formulario en el cual tengo un DataGrid, cuatro TextBox y tres botones, "GUARDAR" "MODIFICAR" "ELIMINAR", tengo que poner datos en los TextBox y con el botón GUARDAR tendria que guardarse en la base de datos y al mismo tiempo verse en el DataGrid.
El botón MODIFICAR lo tengo para en caso de equivocarme al introducir datos poderlo modificar, y al pulsar dos veces sobre el registro se vean en los TextBox y despues de modificado reescribir esos datos.
El botón ELIMINAR es para que cuando un registro no tiene utilidad borrarlo de la base de datos..
Los codigos que tengo son los que siguen mas abajo pero solo me los deja en el DataGrid y cuando reinicio la aplicación no aparecen.
Por favor alguien me puede ayudar.
Código:
Imports System.Data.SqlClient
Public Class Form5
Dim row(4) As String
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'Database1DataSet1.GOTICO' Puede moverla o quitarla según sea necesario.
Me.GOTICOTableAdapter.Fill(Me.Database1DataSet1.GOTICO)
Button1.Text = "Salir"
Button2.Text = "Guardar"
Button3.Text = "Modificar"
Button4.Text = "Eliminar"
DataGridView1.ColumnCount = 4
DataGridView1.Columns(0).Name = "Fabricante"
DataGridView1.Columns(1).Name = "Modelo"
DataGridView1.Columns(2).Name = "Denominacion del Recambio"
DataGridView1.Columns(3).Name = "Referencia"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
Form1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
GOTICOBindingSource.AddNew()
GOTICOBindingSource.Current("fabricante") = TextBox4.Text
GOTICOBindingSource.Current("modelo") = TextBox3.Text
GOTICOBindingSource.Current("denominación del recambio") = TextBox2.Text
GOTICOBindingSource.Current("referencia") = TextBox1.Text
TextBox4.Text = ""
TextBox3.Text = ""
TextBox2.Text = ""
TextBox1.Text = ""
Me.Validate()
GOTICOBindingSource.EndEdit()
GOTICOTableAdapter.Update(Database1DataSet1.GOTICO)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub