Cómo totales de entrada en una base de datos

El uso de una base de datos Access le ofrece varias opciones para manipular los datos mediante el uso de sentencias SQL. Realizar la conexión a la base de datos que desea utilizar con la clase "OleDbConnection", a continuación, modificar datos con la clase "OleDbCommand" a los resultados totales de entrada en una base de datos Access.

Instrucciones

1 Lanzamiento de Microsoft Visual Studio, haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, y ampliar "Otros idiomas" por debajo "Plantillas instaladas." Haga clic en "Visual C #" y haga doble clic en "Aplicación de Windows Forms" en el centro de la ventana para crear un nuevo proyecto.

2 Haga doble clic en "Cuadro de texto" en el panel de herramientas para agregar un nuevo cuadro de texto al formulario. Añadir dos más cuadros de texto usando la misma técnica. Haga doble clic en "botón" para añadir un nuevo botón.

3 Haga doble clic en el formulario para crear un evento de carga del formulario y agregue el código siguiente para establecer una conexión con la base de datos. Crear una nueva tabla para guardar los totales:

Dim objCmd Como Nueva OleDbCommand

Dim Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\<database name>.accdb")
Con.Open()
strSQL = "CREATE TABLE <tableName>(Totals TEXT)"
objCmd = New OleDbCommand(strSQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()

4 Cambie de nuevo para formar el diseño y haga doble clic en "Button1" para crear un evento de clic de este botón. Copiar y pegar el siguiente código para agregar dos números y mostrar el resultado a través del tercer cuadro de texto:

Dim inputOne como número entero

Dim inputTwo As Integer
inputOne = Me.TextBox1.Text
inputTwo = Me.TextBox2.Text
Me.TextBox3.Text = inputOne + inputTwo

5 Cambie de nuevo a formar diseño y haga doble clic en "Button2" para introducir el resultado total en la tabla de base de datos que ha creado:

Dim como secuencia totales

totals = Me.TextBox3.Text
Dim objCmd As New OleDbCommand
Dim Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\<database name>.accdb")")
Con.Open()
strSQL = "INSERT INTO <tableName>(Totals) VALUES ('" & (totals) & "')"
objCmd = New OleDbCommand(strSQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()

6 Presione F5 para ejecutar el programa, introducir un número en el cuadro de texto primero y segundo. Haga clic en "Button1" para visualizar el resultado y haga clic en "Button2" para introducir el resultado en la base de datos.