

Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Prepara tus exámenes
Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Prepara tus exámenes con los documentos que comparten otros estudiantes como tú en Docsity
Encuentra los documentos específicos para los exámenes de tu universidad
Estudia con lecciones y exámenes resueltos basados en los programas académicos de las mejores universidades
Responde a preguntas de exámenes reales y pon a prueba tu preparación
Consigue puntos base para descargar
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Comunidad
Pide ayuda a la comunidad y resuelve tus dudas de estudio
Ebooks gratuitos
Descarga nuestras guías gratuitas sobre técnicas de estudio, métodos para controlar la ansiedad y consejos para la tesis preparadas por los tutores de Docsity
Año 2024, curso de programoción de computadora 1
Tipo: Guías, Proyectos, Investigaciones
1 / 3
Esta página no es visible en la vista previa
¡No te pierdas las partes importantes!


Imports System.Data Imports System.Data.OleDb Imports System.Windows.Forms.VisualStyles.VisualStyleElement Public Class Form 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 * from Estudiantes", conn) DataGridView1.DataSource = dt.DefaultView da.Fill(dt) conn.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'Botón INSERTAR o GUARDAR Dim cedula = TextBox1.Text Dim apellido = TextBox2.Text Dim nombre = TextBox3.Text Dim nota = TextBox4.Text