Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
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 !