VB.NET: creare una tabella su DataBase partendo da un dataset

Nel precedente post ho spiegato come popolare un dataset partendo da un file di testo. Ora facciamo un passo successivo: portiamo il dataset creato su un database MSSQL.

Il dataset creato con la funzione del post precedente ha il vantaggio di riconoscere nella maggior parte dei casi i tipi di dati contenuti nel file di testo importato, permettendoci quindi di scorrerne le colonne e creare sul database una tabella adeguata a contenerne i dati.

Il nome della tabella verra’ ottenuto dalla proprieta’ DataSetName dell’oggetto dataset.

La connessione al database dovra essere infine effettuata con delle credenziali con la possibilita’ di creare e modificare tabelle.

Public Function DataSet2SQLTable(ByVal ds As DataSet)

   Dim cn As SqlConnection = New SqlConnection(My.Settings.ConnectionString1.ToString)

   cn.Open()
   Dim cmd As SqlCommand = New SqlCommand("CREATE TABLE [" & ds.DataSetName & "] ([id] [int] IDENTITY (1, 1) NOT NULL) ON [PRIMARY]", cn)
   cmd.ExecuteNonQuery()
   cn.Close()

   Dim colonna As DataColumn = Nothing

   For Each colonna In ds.Tables(0).Columns
      Dim nome_colonna = colonna.ColumnName
      Dim tipo_colonna = SysType2DBType(colonna.DataType)
      Dim tipo_colonna_str As String = tipo_colonna.ToString

      Dim dimensioni As String = ""

      If tipo_colonna_str.ToUpper = "NVARCHAR" Then
          dimensioni = "(250)"
      End If

       Dim str_query = "ALTER TABLE [" & ds.DataSetName & "] ADD [" & nome_colonna.ToString.Replace(ds.DataSetName.Replace(".", "#"), "") & "] " & tipo_colonna_str & " " & dimensioni & "NULL"

       cn.Open()
       cmd = New SqlCommand(str_query, cn)
       cmd.ExecuteNonQuery()
       cn.Close()

   Next

   'importazione dei dati nella tabella appena creata

   Dim objConn As New SqlConnection(My.Settings.ConnectionString1.ToString)
   objConn.Open()
   Dim da_temp As SqlDataAdapter
   da_temp = New SqlDataAdapter("Select top 1 * From [" & ds.DataSetName & "]", objConn)

   da_temp.AcceptChangesDuringFill = True
   Dim ds_temp As New DataSet()
   da_temp.FillSchema(ds_temp, SchemaType.Source)
   da_temp.Fill(ds_temp)

   ' Setto come nuove tutte le righe del DataSet

    Dim riga_tmp As DataRow
    For Each riga_tmp In ds.Tables(0).Rows
       Try
           riga_tmp.SetAdded()
       Catch ex As Exception

       End Try

    Next

    Try
         ds_temp.Merge(ds, False)
    Catch ex As Exception

    End Try

    Dim objCommandBuilder As New SqlCommandBuilder(da_temp)
    da_temp.Update(ds_temp)

    da_temp.Dispose()
    objConn.Close()

    Return 1
End Function

La funzione SysType2DBType richiamata nella linea 14 e’ la stessa realizzata nel post VB.NET: Convertire da System.Type a SqlDbType