Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Private conexion As SqlConnection
Private dataSet As DataSet
Private dataAdapter As SqlDataAdapter
Private bs As BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conexion As New SqlConnection
conexion.ConnectionString = "Data Source=.SQLEXPRESS;AttachDbFilename=C:" & _
"UsersMaxiAppDataLocalTemporary ProjectsPruebasDatabase1.mdf;Integrated Security=True;User Instance=True"
Dim dataAdapter As New SqlDataAdapter("SELECT * From Clientes", conexion)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(dataAdapter)
Dim dataSet As New DataSet
dataAdapter.Fill(dataSet, "Clientes")
Me.DataGridView1.DataSource = dataSet
Me.DataGridView1.DataMember = "Clientes"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fila As DataRow
fila = Me.dataSet.Tables("Clientes").NewRow()
fila("Nombre") = TextBox1.Text
fila("Apellido") = TextBox2.Text
Me.dataSet.Tables("Clientes").Rows.Add(fila)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.dataAdapter.Update(Me.dataSet, "Clientes")
End Sub
End Class