posts - 82, comments - 0, trackbacks - 0

My Links

News

Archives

Post Categories

C# Download

Facebook

Informativa cookie

Linkedin

Microsoft

Msdn Gallery

Twitter

VisualBasic

Wiki Tecknet

Esempio applicazione dati con SQLserver 2008 Express

Questo esempio mostra come interagire con i comandi comunemente usati in un applicazione dati utilizzando SQLSERVER EXPRESS

Per poter eseguire l'esempio occorre che sul pc di destinazione siano installati il .netFramework 4.0 e SQLSERVER2008 EXPRESS

L'esempio si basa sull'utilizzo delle TRANSACT.SQL comunemente usate , Insert , Delete e Update. Sono incluse anche alcune query di ricerca utilizzando LinqToDataSet , query di ordinamento Crescente,Decrescente e query di ricerca secondo determinati criteri. L'esempio e composto da un DataBase denominato Example.mdf , al suo interno vi è una tabella con quattro campi , ID chiave primaria della tabella , un campo denominato NOME di tipo nvchar , un campo denominato COGNOME sempre di tipo nvchar ed un campo denominato AGE anch'esso di tipo nvchar. Per l'esecuzione delle TRANSACT-SQL verranno utilizzate le query parametriche , per maggiori informazioni e dettagli sqlle query parametriche vi rimando a questoarticolodimsdnlibrary . Ovviamente SQLSERVER è molto di più di quello che e scritto in questo esempio , e permette tantisimi modi e metodi per la gestione di grosse quantità di dati.

Qui di seguito posto il codice che compone l'esempio , suddiviso in classi per L'insert , Delete , UpdateDati , la classe DataBaseManagement che si occupa di interagire con il DataBase ed infine la classe FrmMain da cui l'utente può eseguire l'iterazione con il DataBase.

La parte di codice della Classe FrmMain

 

'dll .netFramework
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Public Class FrmMain
    ' Evento Load del Form FrmMain
    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Richiamo metodo LoadData
        LoadData()
    End Sub

    ' Evento click del pulsante btnInsert
    Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        ' Dichiaro una nuova istanza della Classe Insert
        Dim i As New Insert()
        ' Passo al metodo setName della Classe Insert il valore inserito dall'utente nel controllo TextBox txtName
        i.setName(Me.txtName.Text)
        ' Passo al metodo setName della Classe Insert il valore inserito dall'utente nel controllo TextBox txtSurName
        i.setSurName(Me.txtSurName.Text)
        ' Passo al metodo setName della Classe Insert il valore inserito dall'utente nel controllo TextBox txAge
        i.setAge(Me.txtAge.Text)

        ' Creo una nuova istanza della Classe DatabaseManagement
        Dim dbInsert As New DatabaseManagement()
        ' Passo al metodo insertData i parametri necessari per la memorizzazione del Nome,Cognome e Età all'interno della
        ' Tabella del DataBase
        dbInsert.insertData(i.getName(), i.getSurName(), i.getAge())
        ' Richiamo metodo LoadData
        LoadData()
    End Sub

    ' Evento click del pulsante btnDelete
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        ' Dichiaro una nuova istanza della Classe Delete
        Dim d As New Delete()
        ' Passo al metodo setName della Classe Delete il valore inserito dall'utente nel controllo TextBox txtName
        d.setName(Me.txtName.Text)
        ' Passo al metodo setName della Classe Delete il valore inserito dall'utente nel controllo TextBox txtSurName
        d.setSurName(Me.txtSurName.Text)
        ' Passo al metodo setName della Classe Delete il valore inserito dall'utente nel controllo TextBox txAge
        d.setAge(Me.txtAge.Text)

        ' Creo una nuova istanza della Classe DatabaseManagement
        Dim dbDelete As New DatabaseManagement()
        ' Passo al metodo deleteData i parametri necessari per la memorizzazione del Nome,Cognome e Età all'interno della
        ' Tabella del DataBase
        dbDelete.deleteData(d.getName(), d.getSurName(), d.getAge())
        ' Richiamo metodo LoadData
        LoadData()
    End Sub

    ' Evento click del pulsante btnUpdate
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        ' Dichiaro una nuova istanza della Classe UpdateDati
        Dim ud As New UpdateDati()
        ' Passo al metodo setName della Classe UpdateDati il valore inserito dall'utente nel controllo TextBox txtName
        ud.setName(Me.txtName.Text)
        ' Passo al metodo setName della Classe UpdateDati il valore inserito dall'utente nel controllo TextBox txtSurName
        ud.setSurName(Me.txtSurName.Text)
        ' Passo al metodo setName della Classe UpdateDati il valore inserito dall'utente nel controllo TextBox txtAge
        ud.setAge(Me.txtAge.Text)

        ' Creo una nuova istanza della Classe DatabaseManagement
        Dim dbUpdate As New DatabaseManagement()
        ' Passo al metodo updateData i parametri necessari per la memorizzazione del Nome,Cognome e Età all'interno della
        ' Tabella del DataBase
        dbUpdate.updateData(ud.getName(), ud.getSurName(), ud.getAge())
        ' Richiamo metodo LoadData
        LoadData()
    End Sub

    ' Evento click del pulsante btnFindTypeData
    Private Sub btnFindTypeData_Click(sender As Object, e As EventArgs) Handles btnFindTypeData.Click
        ' Eseguo controllo sul valore del controllo ComboBox cbxTypeData
        Select Case Me.cbxTypeData.Text
            ' Se valore NAME
            Case "NAME"
                ' Eseguo la query di ricerca LinqToDataSet per nome
                Dim queryName = From c In Me.ExampleDataSet.TABELLA1 Where c.NOME = Me.txtFind.Text.ToUpper()
                                Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryName.AsDataView()
                ' Visualizzo a utente i risultati della ricerca
                Me.lblFind.Text = "Ricerca terminata. Trovati" & " " & queryName.AsDataView().Count.ToString() & " " & "elementi"
                Exit Select

                ' Se valore SURNAME
            Case "SURNAME"
                ' Eseguo la query di ricerca LinqToDataSet per Cognome
                Dim querySurName = From c In Me.ExampleDataSet.TABELLA1 Where c.COGNOME = Me.txtFind.Text.ToUpper()
                                   Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = querySurName.AsDataView()
                ' Visualizzo a utente i risultati della ricerca
                Me.lblFind.Text = "Ricerca terminata. Trovati" & " " & querySurName.AsDataView().Count.ToString() & " " & "elementi"
                Exit Select

                ' Se valore AGE
            Case "AGE"
                ' Eseguo la query di ricerca LinqToDataSet per età
                Dim queryAge = From c In Me.ExampleDataSet.TABELLA1 Where c.AGE = Me.txtFind.Text.ToUpper()
                               Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryAge.AsDataView()
                Me.lblFind.Text = "Ricerca terminata. Trovati" & " " & queryAge.AsDataView().Count.ToString() & " " & "elementi"
                Exit Select
        End Select
    End Sub

    ' Evento click del pulsante btnFindLinq
    Private Sub btnFindLinq_Click(sender As Object, e As EventArgs) Handles btnFindLinq.Click
        ' Eseguo controllo sul valore del controllo ComboBox cbxLinq
        Select Case cbxLinq.Text
            ' Se valore ASCENDING NAME
            Case "ASCENDING NAME"
                ' Eseguo la query di ricerca LinqToDataSet per nome e ordino il
                ' Risultato in senso crescente
                Dim queryAscendingName = From c In Me.ExampleDataSet.TABELLA1 Order By c.NOME Ascending
                                         Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryAscendingName.AsDataView()
                Exit Select

                ' Se valore DESCENDING NAME
            Case "DESCENDING NAME"
                ' Eseguo la query di ricerca LinqToDataSet per nome e ordino il
                ' Risultato in senso decrescente
                Dim queryDescendingName = From c In Me.ExampleDataSet.TABELLA1 Order By c.NOME Descending
                                          Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryDescendingName.AsDataView()
                Exit Select

                ' Se valore ASCENDING SURNAME
            Case "ASCENDING SURNAME"
                ' Eseguo la query di ricerca LinqToDataSet per Cognome e ordino il
                ' Risultato in senso crescente
                Dim queryAscendingSurName = From c In Me.ExampleDataSet.TABELLA1 Order By c.COGNOME Ascending
                                                   Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryAscendingSurName.AsDataView()
                Exit Select

                ' Se valore DESCENDING NAME
            Case "DESCENDING SURNAME"
                ' Eseguo la query di ricerca LinqToDataSet per Cognome e ordino il
                ' Risultato in senso decrescente
                Dim queryDescendingSurName = From c In Me.ExampleDataSet.TABELLA1 Order By c.COGNOME Descending
                                             Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryDescendingSurName.AsDataView()
                Exit Select

                ' Se valore ASCENDING AGE
            Case "ASCENDING AGE"
                ' Eseguo la query di ricerca LinqToDataSet per età e ordino il
                ' Risultato in senso crescente
                Dim queryAscendingAge = From c In Me.ExampleDataSet.TABELLA1 Order By c.AGE Ascending
                                        Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryAscendingAge.AsDataView()
                Exit Select

                ' Se valore DESCENDING AGE
            Case "DESCENDING AGE"
                ' Eseguo la query di ricerca LinqToDataSet per età e ordino il
                ' Risultato in senso decrescente
                Dim queryDescendingAge = From c In Me.ExampleDataSet.TABELLA1 Order By c.AGE Descending
                                         Select c

                ' Assegno il risultato della query alla proprietà DataSource del controllo
                ' DataGridView dgvExample
                Me.dgvExample.DataSource = queryDescendingAge.AsDataView()
                Exit Select
        End Select
    End Sub

    ' Evento click del pulsante btnExit
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        ' Esco e chiudo l'applicazione SqlServer example
        Application.[Exit]()
    End Sub

    ' Evento SelectedIndexChanged del ComboBox cbxTypeData
    Private Sub cbxTypeData_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxTypeData.SelectedIndexChanged
        ' Se l'utente non ha selezionato un criterio di ricerca
        If Me.cbxTypeData.Text.Equals("") Then
            ' Disabilito pulsante btnFindTypeData
            Me.btnFindTypeData.Enabled = False
        Else

            ' Altrimenti
            ' Abilito pulsante btnFindTypeData
            Me.btnFindTypeData.Enabled = True
        End If
    End Sub

    ' Evento SelectedIndexChanged del ComboBox cbxTypeData
    Private Sub cbxLinq_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxLinq.SelectedIndexChanged
        ' Se l'utente non ha selezionato un criterio di ricerca
        If Me.cbxLinq.Text.Equals("") Then
            ' Disabilito pulsante btnFindLinq
            Me.btnFindLinq.Enabled = False
        Else

            ' Altrimenti
            ' Abilito pulsante btnFindLinq
            Me.btnFindLinq.Enabled = True
        End If
    End Sub

    ' Evento RowEnter del controllo dgvExample
    Private Sub dgvExample_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles dgvExample.RowEnter
        ' Prova
        Try
            ' Assegno al controllo txtName il valore selezionato dall'utente sul controllo dgvExample
            Me.txtName.Text = Me.dgvExample.Rows(e.RowIndex).Cells("NAMES").Value.ToString()
            ' Assegno al controllo txtSurName il valore selezionato dall'utente sul controllo dgvExample
            Me.txtSurName.Text = Me.dgvExample.Rows(e.RowIndex).Cells("SURNAME").Value.ToString()
            ' Assegno al controllo txtAge il valore selezionato dall'utente sul controllo dgvExample
            Me.txtAge.Text = Me.dgvExample.Rows(e.RowIndex).Cells("AGE").Value.ToString()

            ' In caso di eccezzione
        Catch ex As System.Exception
            ' Visualizzo messaggio a utente
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    ' Metodo LoadData
    Private Sub LoadData()
        ' Disabilito pulsante btnFindTypeData
        Me.btnFindTypeData.Enabled = False
        ' Disabilito pulsante btnFindLinq
        Me.btnFindLinq.Enabled = False
        ' Popolo la tabella con i dati presenti nel DataBase
        Me.tABELLA1TableAdapter.Fill(Me.exampleDataSet.TABELLA1)
    End Sub

    Private Sub FrmMain_Load_1(sender As System.Object, e As System.EventArgs)
        'TODO: questa riga di codice carica i dati nella tabella 'ExampleDataSet.TABELLA1'. È possibile spostarla o rimuoverla se necessario.
        'Me.TABELLA1TableAdapter.Fill(Me.ExampleDataSet.TABELLA1)
    End Sub
End Class

 

La parte di codice della Classe Insert

 

' Classe Insert
Public Class Insert
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setName
    Private name As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setSurName
    Private surName As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setAge
    Private age As String = String.Empty

    ' Metodo pubblico setName
    Public Sub setName(name As String)
        ' Assegno alla variabile a livello di classe name il valore del parametro
        ' del metodo setName
        Me.name = name
    End Sub

    ' Metodo pubblico getName
    Public Function getName() As String
        ' Restituisco il valore della variabile a livello di classe name
        Return Me.name
    End Function

    ' Metodo pubblico setSurName
    Public Sub setSurName(surName As String)
        ' Assegno alla variabile a livello di classe surName il valore del parametro
        ' del metodo setSurName
        Me.surName = surName
    End Sub

    ' Metodo pubblico getSurName
    Public Function getSurName() As String
        ' Restituisco il valore della variabile a livello di classe surName
        Return Me.surName
    End Function

    ' Metodo pubblico setAge
    Public Sub setAge(age As String)
        ' Assegno alla variabile a livello di classe age il valore del parametro
        ' del metodo setAge
        Me.age = age
    End Sub

    ' Metodo pubblico getAge
    Public Function getAge() As String
        ' Restituisco il valore della variabile a livello di classe age
        Return Me.age
    End Function
End Class

 La parte di codice della Classe Delete

' Classe Delete
Public Class Delete
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setName
    Private name As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setSurName
    Private surName As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setAge
    Private age As String = String.Empty

    ' Metodo pubblico setName
    Public Sub setName(name As String)
        ' Assegno alla variabile a livello di classe name il valore del parametro
        ' del metodo setName
        Me.name = name
    End Sub

    ' Metodo pubblico getName
    Public Function getName() As String
        ' Restituisco il valore della variabile a livello di classe name
        Return Me.name
    End Function

    ' Metodo pubblico setSurName
    Public Sub setSurName(surName As String)
        ' Assegno alla variabile a livello di classe surName il valore del parametro
        ' del metodo setSurName
        Me.surName = surName
    End Sub

    ' Metodo pubblico getSurName
    Public Function getSurName() As String
        ' Restituisco il valore della variabile a livello di classe surName
        Return Me.surName
    End Function

    ' Metodo pubblico setAge
    Public Sub setAge(age As String)
        ' Assegno alla variabile a livello di classe age il valore del parametro
        ' del metodo setAge
        Me.age = age
    End Sub

    ' Metodo pubblico getAge
    Public Function getAge() As String
        ' Restituisco il valore della variabile a livello di classe age
        Return Me.age
    End Function
End Class

La parte di codice della Classe UpdateDati

 

' Classe Update
Public Class UpdateDati
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setName
    Private name As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setSurName
    Private surName As String = String.Empty
    ' Dichiaro una variabile di tipo stringa dove viene memorizzato il valore
    ' del parametro passato dal metodo setAge
    Private age As String = String.Empty

    ' Metodo pubblico setName
    Public Sub setName(name As String)
        ' Assegno alla variabile a livello di classe name il valore del parametro
        ' del metodo setName
        Me.name = name
    End Sub

    ' Metodo pubblico getName
    Public Function getName() As String
        ' Restituisco il valore della variabile a livello di classe name
        Return Me.name
    End Function

    ' Metodo pubblico setSurName
    Public Sub setSurName(surName As String)
        ' Assegno alla variabile a livello di classe surName il valore del parametro
        ' del metodo setSurName
        Me.surName = surName
    End Sub

    ' Metodo pubblico getSurName
    Public Function getSurName() As String
        ' Restituisco il valore della variabile a livello di classe surName
        Return Me.surName
    End Function

    ' Metodo pubblico setAge
    Public Sub setAge(age As String)
        ' Assegno alla variabile a livello di classe age il valore del parametro
        ' del metodo setAge
        Me.age = age
    End Sub

    ' Metodo pubblico getAge
    Public Function getAge() As String
        ' Restituisco il valore della variabile a livello di classe age
        Return Me.age
    End Function
End Class

Ed infine il codice della Classe DataBase Management.

 

'dll .netFramework
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Windows.Forms
Imports System.Data


' Classe DataBaseManagement
Public Class DatabaseManagement
    ' Metodo getConnectionString
    Private Function getConnectionString() As String
        ' Dichiaro una nuova istanza della Classe SqlConnectionStringBuilder
        Dim builder As New SqlConnectionStringBuilder()

        ' Assegno il nome del Server alla quale connettersi
        builder.DataSource = ".\SQLEXPRESS"
        ' Assegno il nome e il percorso del DataBase alla quale collegarsi
        builder.AttachDBFilename = "E:\Example.mdf"
        ' Gestisco le credenziali di accesso Windows corrente
        builder.IntegratedSecurity = True
        ' Imposto tempo di attesa per connessione a DataBase Example1
        builder.ConnectTimeout = 30
        builder.UserInstance = True
        ' Restituisco la stringa di Connessione al DataBase
        Return builder.ConnectionString
    End Function

    ' Metodo insertData , richiede tre parametri , il nome , il cognome , l'età per l'inserimento all'interno del DataBase
    Public Sub insertData(name As String, surName As String, age As String)
        ' Dichiaro una nuova istanza della Classe SqlConnection
        Dim connection As New SqlConnection(getConnectionString())
        ' Dichiaro una TRANSLAT.SQL di inserimnto dati all'interno della Tabella1
        Dim cmd As New SqlCommand("INSERT INTO TABELLA1 (NOME,COGNOME,AGE) VALUES (@NOME,@COGNOME,@AGE)", connection)

        ' Prova
        Try
            ' Eseguo L'inserimento del valore della variabile name all'interno del campo NOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@NOME", name.ToUpper())
            ' Eseguo L'inserimento del valore della variabile name all'interno del campo COGNOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@COGNOME", surName.ToUpper())
            ' Eseguo L'inserimento del valore della variabile name all'interno del campo AGE della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@AGE", age.ToUpper())
            ' Apro la connessione con il DataBase Example.mdf
            connection.Open()
            ' Eseguo l'istruzione TRANSLAT.SQL
            cmd.ExecuteNonQuery()
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()

            ' In caso di eccezzione a runtime
        Catch ex As Exception
            ' Visualizzo messaggio errore a ytente
            MessageBox.Show(ex.Message.ToString())
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        Finally
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        End Try
    End Sub

    ' Metodo deleteData , richiede tre parametri , il nome , il cognome , l'età per l'inserimento all'interno del DataBase
    Public Sub deleteData(name As String, surName As String, age As String)
        ' Dichiaro una nuova istanza della Classe SqlConnection
        Dim connection As New SqlConnection(getConnectionString())
        ' Dichiaro una TRANSLAT.SQL di eliminazione dati all'interno della Tabella1
        Dim cmd As New SqlCommand("DELETE FROM TABELLA1 WHERE NOME = @NOME AND COGNOME = @COGNOME AND AGE = @AGE", connection)

        ' Prova
        Try
            ' Eseguo L'eliminazione del valore della variabile name all'interno del campo NOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@NOME", name.ToUpper())
            ' Eseguo L'eliminazione del valore della variabile name all'interno del campo COGNOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@COGNOME", surName.ToUpper())
            ' Eseguo L'eliminazione del valore della variabile name all'interno del campo AGE della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@AGE", age.ToUpper())
            ' Apro la connessione con il DataBase Example.mdf
            connection.Open()
            ' Eseguo l'istruzione TRANSLAT.SQL
            cmd.ExecuteNonQuery()
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()

            ' In caso di eccezzione a runtime
        Catch ex As Exception
            ' Visualizzo messaggio errore a ytente
            MessageBox.Show(ex.Message.ToString())
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        Finally
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        End Try
    End Sub

    ' Metodo updateData , richiede tre parametri , il nome , il cognome , l'età per l'inserimento all'interno del DataBase
    Public Sub updateData(name As String, surName As String, age As String)
        ' Dichiaro una nuova istanza della Classe SqlConnection
        Dim connection As New SqlConnection(getConnectionString())
        ' Dichiaro una TRANSLAT.SQL di aggiornamento dati all'interno della Tabella1
        Dim cmd As New SqlCommand("UPDATE TABELLA1 SET NOME = @NOME,COGNOME = @COGNOME,AGE = @AGE WHERE NOME = @NOME", connection)

        ' Prova
        Try
            ' Eseguo L'aggiornamento del valore della variabile name all'interno del campo NOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@NOME", name.ToUpper())
            ' Eseguo L'aggiornamento del valore della variabile name all'interno del campo COGNOME della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@COGNOME", surName.ToUpper())
            ' Eseguo L'aggiornamento del valore della variabile name all'interno del campo AGE della Tabella1 su DataBase Example.mdf
            cmd.Parameters.AddWithValue("@AGE", age.ToUpper())
            ' Apro la connessione con il DataBase Example.mdf
            connection.Open()
            ' Eseguo l'istruzione TRANSLAT.SQL
            cmd.ExecuteNonQuery()
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()

            ' In caso di eccezzione a runtime
        Catch ex As Exception
            ' Visualizzo messaggio errore a ytente
            MessageBox.Show(ex.Message.ToString())
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        Finally
            ' Chiudo la connessione con il DataBase Example.mdf
            connection.Close()
            ' Libero tutte le risorse associate alla connessione al DataBase Example.mdf
            connection.Dispose()
        End Try
    End Sub
End Class

Il DataBase Example.mdf nell'esempio ha un percorso fissi "E:\Example.mdf" , va poi adattato ad un percorso più adatto sul proprio pc.

Print | posted on sabato 17 settembre 2011 00:38 | Filed Under [ Articoli su VB.NET ]

Feedback

No comments posted yet.

Post Comment

Title  
Name  
Email
Url
Comment   
Please add 6 and 2 and type the answer here:

Powered by:
Powered By Subtext Powered By ASP.NET