Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Public Class Form1
'Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\julio\Documents\BD Salon de Belleza.accdb")
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\julio\Documents\prueba2024.accdb")
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Botón vista
conn.Open()
dt = New DataTable
ds = New DataSet
ds.Tables.Add(dt)
da = New OleDbDataAdapter("select cedula,nombre, apellido, nota from
ESTUDIANTES", conn)
DataGridView1.DataSource = dt.DefaultView
da.Fill(dt)
conn.Close()
MsgBox(" DATOS EXIXSTENTE EN LA BASE DE DATOS ")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Botón INSERTAR
Dim cedula = TextBox1.Text
Dim apellido = TextBox2.Text
Dim nombre = TextBox3.Text
Dim nota = TextBox4.Text
conn.Open()
dt = New DataTable
ds = New DataSet
ds.Tables.Add(dt)
da = New OleDbDataAdapter("Insert into estudiantes (cedula, apellido,
nombre, nota) values ('" & cedula & "', '" & apellido & "', '" & nombre & "','" & nota & "')",
conn) DataGridView1.DataSource = dt.DefaultView
da.Fill(dt)
conn.Close()
MsgBox("DATOS INSERTADOS")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Open()
'Botón modificar
