elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  grabar registros en Base Datos con Visual Studio 2010
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: grabar registros en Base Datos con Visual Studio 2010  (Leído 2,139 veces)
fezaca

Desconectado Desconectado

Mensajes: 18


Ver Perfil
grabar registros en Base Datos con Visual Studio 2010
« en: 29 Marzo 2014, 22:16 pm »

Grabar datos en base de datos
Hola, tengo un formulario en el que hay cuatro TextBox y tres botones, al introducir datos en los TextBox y pulsar el boton grabar solo me los introduce en el DataGrid y no me los graba en mi base de datos.

Todo está hecho en Visual Studio 2010 y la base de datos con sqlExpres, alguien me puede ayudar.

Los otros dos botones "Eliminar" "Modificar" los dejo para cuando tenga solucionado el tema de grabar los registros en la base de datos.

Este es el código que tengo.

Código:
Imports System.Data.SqlClient
Public Class Form12

    Private Sub Form12_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.VARIOS' Puede moverla o quitarla según sea necesario.
        Me.VARIOSTableAdapter.Fill(Me.Database1DataSet1.VARIOS)

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nuevafilaClave As DataRow = Me.Database1DataSet1.Tables("VARIOS").NewRow

        nuevafilaClave("FABRICANTE") = Me.TextBox4.Text
        nuevafilaClave("MODELO") = Me.TextBox3.Text
        nuevafilaClave("DENOMINACIÓN DEL RECAMBIO") = Me.TextBox2.Text
        nuevafilaClave("REFERENCIA") = Me.TextBox1.Text

        Me.Database1DataSet1.Tables("VARIOS").Rows.Add(nuevafilaClave)
        Me.VARIOSTableAdapter.Update(Me.Database1DataSet1.Tables("VARIOS"))
    End Sub


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines