VB.Net – Creazione Dataset [Pillola]

Sunday, March 28th, 2010 | Pillole di Programmazione, Visual Basic with 2 Comments

Dato che sto studiando come autodidatta Vb.Net,  cimentandomi in qualche programmino basato sui windows-forms,voglio condividere con voi, per tenerne traccia, un piccola funzione che ho creato per la gestione di un nuovo DataSet.

Public Function crea_dtset(ByVal sql As String, ByVal RiempiDataGrid As Boolean, ByVal SqlFilter As String) As DataSet
        Try

            Dim objAdapter As New SqlClient.SqlDataAdapter()
            Dim objDataSet As DataSet
            Dim objConnection As New SqlClient.SqlConnection
            Dim objCommand As SqlClient.SqlCommand
            Dim objDataView As New DataView()


            'Setto ed apro la connessione
            objConnection.ConnectionString = "Server=myServer\SQLEXPRESS;Database=mydb;User ID=myid;Password=mypwd;Trusted_Connection=False;"
            objConnection.Open()

            If (objConnection.State = ConnectionState.Open) Then

                'Creo un nuovo oggetto command a cui viene passata la nostra stringa
                'sql e i parametri di connessione
                objCommand = New SqlClient.SqlCommand(sql, objConnection)
                objCommand.CommandText = sql
                objCommand.CommandType = CommandType.Text


                'Viene Riempito il DataSet
                objAdapter = New SqlClient.SqlDataAdapter(objCommand)
                objDataSet = New DataSet()
                objAdapter.Fill(objDataSet)

                objConnection.Close()

                crea_dtset = objDataSet
                
                'Filtro i miei dati
                
                If RiempiDataGrid = True Then
                    'Riempio il dataview con l'intero contenuto della mia query
                    objDataView = objDataSet.Tables(0).DefaultView
                    objDataView.RowFilter = sqlFilter

                    'Assegno come datasource l'oggetto objdataview(filtrato)
                    frmMain.DGVDati.DataSource = objDataView
                End If

                'Svuoto gli oggetti per la prossima query
                objDataView = Nothing
                objAdapter = Nothing
                objCommand = Nothing
                objDataSet = Nothing
                objConnection = Nothing
            End If



        Catch ex As Exception

            MsgBox("Error!")

        End Try
    End Function

Scusate l’identazione del codice forse poco chiara, ma la dimensione delle colonna sinistra del blog me lo impone. Rimediate leggendo il Source dall’apposito pulsante.
Ogni suggerimento o critica è sempre ben accetta:

Share