Salvataggio dati in tabella sqlserver 2005

venerdì 11 aprile 2008 - 16.49

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Mau67 Profilo | Expert

917 messaggi | Data Invio: ven 11 apr 2008 - 16:49

Salve a tutti ho un problemino, ho scritto il seguente codice che mi somma i dati inseriti in un datagridview e me li fa vedere in alcune textbox, quello che mi serve è salvare i risultati delle textbox nella tabella in formato mdf come devo fare? vi posto il codice che ho scritto:

Private Sub RicalcolaTotaliServizi()
'Dichiaro le variabili di tipo double che memorizza il totale
Dim DblTotaleAnniNU As Double
Dim DblTotaleMesiNU As Double
Dim DblTotaleGiorniNU As Double
Dim DblTotaleAnniCA As Double
Dim DblTotaleMesiCA As Double
Dim DblTotaleGiorniCA As Double
Dim DblTotaleAnniSC As Double
Dim DblTotaleMesiSC As Double
Dim DblTotaleGiorniSC As Double
Dim DblTotaleAnniAL As Double
Dim DblTotaleMesiAL As Double
Dim DblTotaleGiorniAL As Double
Dim DblTotaleAnniPA As Double
Dim DblTotaleMesiPA As Double
Dim DblTotaleGiorniPA As Double
Dim DblTotaleAnniMU As Double
Dim DblTotaleMesiMU As Double
Dim DblTotaleGiorniMU As Double

'Ciclo tutte le righe e sommo il valore della colonna Giorni non utili

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn8").Value) Then
DblTotaleGiorniNU += CurRow.Cells("DataGridViewTextBoxColumn8").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniNuTextBox.Text = Int(((DblTotaleGiorniNU / 30) - Fix(DblTotaleGiorniNU / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi non utili

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn7").Value) Then
DblTotaleMesiNU += CurRow.Cells("DataGridViewTextBoxColumn7").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiNuTextBox.Text = Int(DblTotaleMesiNU + Fix((DblTotaleGiorniNU) / 30) - Fix(DblTotaleMesiNU / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni non utili

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn6").Value) Then
DblTotaleAnniNU += CurRow.Cells("DataGridViewTextBoxColumn6").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniNuTextBox.Text = Int(DblTotaleAnniNU + Fix((DblTotaleMesiNU) / 12))

'Ciclo tutte le righe e sommo il valore della colonna Giorni Reparti di Campagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn11").Value) Then
DblTotaleGiorniCA += CurRow.Cells("DataGridViewTextBoxColumn11").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniCaTextBox.Text = Int(((DblTotaleGiorniCA / 30) - Fix(DblTotaleGiorniCA / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi Reparti di Campagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn10").Value) Then
DblTotaleMesiCA += CurRow.Cells("DataGridViewTextBoxColumn10").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiCaTextBox.Text = Int(DblTotaleMesiCA + Fix((DblTotaleGiorniCA) / 30) - Fix(DblTotaleMesiCA / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni Reparti di Campagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn9").Value) Then
DblTotaleAnniCA += CurRow.Cells("DataGridViewTextBoxColumn9").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniCaTextBox.Text = Int(DblTotaleAnniCA + Fix((DblTotaleMesiCA) / 12))

'Ciclo tutte le righe e sommo il valore della colonna Giorni Reparti di Supercampagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn14").Value) Then
DblTotaleGiorniSC += CurRow.Cells("DataGridViewTextBoxColumn14").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniScTextBox.Text = Int(((DblTotaleGiorniSC / 30) - Fix(DblTotaleGiorniSC / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi Reparti di Supercampagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn13").Value) Then
DblTotaleMesiSC += CurRow.Cells("DataGridViewTextBoxColumn13").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiScTextBox.Text = Int(DblTotaleMesiSC + Fix((DblTotaleGiorniSC) / 30) - Fix(DblTotaleMesiSC / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni Reparti di Campagna

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn12").Value) Then
DblTotaleAnniSC += CurRow.Cells("DataGridViewTextBoxColumn12").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniScTextBox.Text = Int(DblTotaleAnniSC + Fix((DblTotaleMesiSC) / 12))

'Ciclo tutte le righe e sommo il valore della colonna Giorni Reparti Alpini

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn17").Value) Then
DblTotaleGiorniAL += CurRow.Cells("DataGridViewTextBoxColumn17").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniAlTextBox.Text = Int(((DblTotaleGiorniAL / 30) - Fix(DblTotaleGiorniAL / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi Reparti Alpini

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn16").Value) Then
DblTotaleMesiAL += CurRow.Cells("DataGridViewTextBoxColumn16").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiAlTextBox.Text = Int(DblTotaleMesiAL + Fix((DblTotaleGiorniAL) / 30) - Fix(DblTotaleMesiAL / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni Reparti Alpini

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn15").Value) Then
DblTotaleAnniAL += CurRow.Cells("DataGridViewTextBoxColumn15").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniAlTextBox.Text = Int(DblTotaleAnniAL + Fix((DblTotaleMesiAL) / 12))

'Ciclo tutte le righe e sommo il valore della colonna Giorni Reparti Paracadutisti

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn20").Value) Then
DblTotaleGiorniPA += CurRow.Cells("DataGridViewTextBoxColumn20").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniPaTextBox.Text = Int(((DblTotaleGiorniPA / 30) - Fix(DblTotaleGiorniPA / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi Reparti Paracadutisti

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn19").Value) Then
DblTotaleMesiPA += CurRow.Cells("DataGridViewTextBoxColumn19").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiPaTextBox.Text = Int(DblTotaleMesiPA + Fix((DblTotaleGiorniPA) / 30) - Fix(DblTotaleMesiPA / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni Reparti Paracadutisti

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn18").Value) Then
DblTotaleAnniPA += CurRow.Cells("DataGridViewTextBoxColumn18").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniPaTextBox.Text = Int(DblTotaleAnniPA + Fix((DblTotaleMesiPA) / 12))

'Ciclo tutte le righe e sommo il valore della colonna Giorni Missioni Unifil

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn23").Value) Then
DblTotaleGiorniMU += CurRow.Cells("DataGridViewTextBoxColumn23").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.GiorniMuTextBox.Text = Int(((DblTotaleGiorniMU / 30) - Fix(DblTotaleGiorniMU / 30)) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi Missioni Unifil

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn22").Value) Then
DblTotaleMesiMU += CurRow.Cells("DataGridViewTextBoxColumn22").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.MesiMuTextBox.Text = Int(DblTotaleMesiMU + Fix((DblTotaleGiorniMU) / 30) - Fix(DblTotaleMesiMU / 12) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni Missioni Unifil

For Each CurRow As DataGridViewRow In Me.ServiziDataGridView.Rows
If IsNumeric(CurRow.Cells("DataGridViewTextBoxColumn21").Value) Then
DblTotaleAnniMU += CurRow.Cells("DataGridViewTextBoxColumn21").Value
End If
Next

' Visualizzo il risultato nella textbox
Me.AnniMuTextBox.Text = Int(DblTotaleAnniMU + Fix((DblTotaleMesiMU) / 12))

End Sub

grazie
Mau67

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: dom 13 apr 2008 - 04:05

>Salve a tutti ho un problemino, ho scritto il seguente codice
>che mi somma i dati inseriti in un datagridview e me li fa vedere
>in alcune textbox, quello che mi serve è salvare i risultati
>delle textbox nella tabella in formato mdf come devo fare?
L'mdf è l'estensione che identifica il data file di sql server. Un database di sql server è sempre formato da un file mdf ed uno ldf (transaction log). Poi in aggiunta possono esistere file creati dall'utente. Per salvare su sql server devi utilizzare le librerie di ADO.NET al namespace System.Data.SQLClient.
Leggiti gli articoli di Stefano Passatordi (http://blogs.dotnethell.it/stem/):

http://www.dotnethell.it/articles/TutorialADONET.aspx
e
http://www.dotnethell.it/articles/TutorialADONET2.aspx

ciao!

Alx81 =)

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !