4
« en: 14 de Junio 2015, 19:02 »
Hola amigos tengo un problema con este código y no se como resolverlo, os lo pongo por si me podeis ayudar. Además de pasarlo al DataGrid quiero que se grabe en la base de datos pero no me graba nada. Espero vuestra ayuda.
GRACIAS
Imports System.Data.SqlClient
Public Class Form3
Dim row(4) As String
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'REPUESTOSDataSet.BARCINO' Puede moverla o quitarla según sea necesario.
Me.BARCINOableAdapter.Fill(Me.REPUESTOSDataSet.BARCINO)
End Sub
Private Sub Guardar_Click(sender As System.Object, e As System.EventArgs) Handle Button2.Click
Dim fila As DataRow =
Me.REPUESTOSDataSet.BARCINO.NewRow()
'fila(0) = codigo autogenerado por lo tanto no lo asignamos
fila(1) = Me.TextBox4.Text 'Nombre de la categoria
fila(2) = Me.TextBox3.Text 'Nombre de la categoria
fila(3) = Me.TextBox2.Text 'Nombre de la categoria
fila(4) = Me.TextBox1.Text 'Nombre de la categoria
Me.REPUESTOSDataSet.BARCINO.Rows.Add(fila)
'Hasta aquí se agregaron los datos, pero sólo en el DATASET
TextBox4.Text = ""
TextBox3.Text = ""
TextBox2.Text = ""
TextBox1.Text = ""
'Actualizamos los cambios en la BD, metodo UPDATE
MsgBox("Update successful")
MsgBox("Update failed")
Me.BARCINOTableAdapter.Update(Me.REPUESTOSDataSet. BARCINO)
Me.Validate()
End Sub
Private Sub Modificar_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
End Sub
Mostrar Mensajes
RSS