Cómo crear una base de datos mediante ProgressBar y VB.Net

Aprender a crear una base de datos utilizando Visual Basic.NET ( VB.NET ) durante el uso de una barra de progreso como un indicador de proceso puede hacer que su aplicación sea más fácil de usar. Utilizando una base de datos como un lugar para almacenar los valores predeterminados del usuario u otra información que necesita su aplicación es sin duda mejor que usar muchos archivos de texto. Puede crear tablas en la base de datos para almacenar los datos y luego recuperarla usando sentencias SQL. Utilice el objeto " ADOX " para crear la base de datos, y el uso de la clase " OleDbConnection " para hacer una conexión y modificar la base de datos . Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador y ampliar "Visual Basic " por debajo " Plantillas instaladas". Haga clic en " Windows" y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.

2 Haga doble clic en " ProgressBar " para añadir un nuevo control de barra de progreso para el formulario, haga doble clic en " botón " para añadir un nuevo botón al formulario.
3

doble clic en " Button1 " para Crear un nuevo evento click en marcha el módulo de VB . Haga clic en el menú "Proyecto " , haga clic en " Agregar referencia ", y haga clic en la ficha " COM". Haga doble clic en " Microsoft ADO Ext. . 6.0 para DDL y Seguridad "para agregarlo como referencia a su proyecto
4

Copia y pega las siguientes líneas de código como las primeras líneas de código en el módulo : .
< P > Importaciones ADOXImports System.Data.OleDb
5

Copia y pega el siguiente código dentro del botón , haga clic en evento para declarar variables , definir los límites de la barra de progreso y establecer el primer valor :
< p > ADOXCat Dim As New ADOX.CatalogDim strSQL Como StringDim objCmd As New OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ()
6

Copiar y pegar el siguiente código para crear una base de datos :

ADOXCat.Create ( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = c: \\ temp \\ newdata.mdb ") ADOXCat = NothingMe.ProgressBar1 . Valor = 20Application.DoEvents ()
7

establecer una conexión con la base de datos creada en el paso anterior :

Dim con = New OleDbConnection ( " Provider = Microsoft.ACE.OLEDB .12.0 ; Data Source = c: \\ temp \\ newdata.mdb ") Me.ProgressBar1.Value = 30Application.DoEvents () Con.Open ()
8

Agregue el código siguiente para crear un nuevo tabla en la base de datos :

strSQL = " CREATE TABLE newtable (ID INTEGER, TEXTO dEL PRODUCTO ) " objCmd = New OleDbCommand ( strSQL , Con) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 40Application.DoEvents ()
9

Agregue el código siguiente para insertar un nuevo registro a la tabla creada en el paso anterior:

strSQL = "INSERT INTO VALORES newtable (ID , PRODUCTO ) ( 0 , 'tablet ') " objCmd = New OleDbCommand ( strSQL , Con) objCmd.ExecuteNonQuery () Me.ProgressBar1.Value = 50Application.DoEvents () con.close ()