Nwlapcug.com


Come inserire i totali in un Database

Come inserire i totali in un Database


Utilizzando un database di Access offre diverse opzioni per manipolare i dati mediante l'utilizzo di istruzioni SQL. Effettuare la connessione al database che si desidera utilizzare con la classe "OleDbConnection", quindi modificare i dati utilizzando la classe "OleDbCommand" per ingresso totale risultati in un database di Access.

Istruzioni

1

Avviare Microsoft Visual Studio, fare clic su "Nuovo progetto" dal riquadro sinistro dello schermo del computer ed espandere "Altri linguaggi" sotto "Modelli installati." Fare clic su "Visual c#" e fare doppio clic su "Windows Forms Application" dal centro della finestra per creare un nuovo progetto.

2

Fare doppio clic "TextBox" dal riquadro della casella degli strumenti per aggiungere una nuova casella di testo al form. Aggiungere due ulteriori caselle di testo, utilizzando la stessa tecnica. Fare doppio clic sul "Pulsante" per aggiungere un nuovo pulsante.

3

Fare doppio clic sul form per creare un evento di caricamento del form e aggiungere il codice seguente per creare una connessione al database. Creare una nuova tabella per salvare i totali:

Dim objCmd As New 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

Tornare alla struttura della maschera e fare doppio clic su "Button1" per creare un evento click per questo pulsante. Copiare e incollare il codice seguente per aggiungere due numeri e visualizzare il risultato tramite la terza casella di testo:

Dim inputOne As Integer

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

Tornare alla progettazione del modulo e fare doppio clic su "Button2" per inserire il risultato totale nella tabella del database รจ stato creato:

Dim totali As String

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

Premere F5 per eseguire il programma, immettere un numero nella casella di testo prima e la seconda. Fare clic su "Button1" per visualizzare il risultato e fare clic su "Button2" per inserire il risultato nel database.