Eseguendo questa query mi dice: Sintassi non corretta in prossimità di '='
Questo è il codice del form2 che mi inserisce la nuova operazione alla tabella contabilità
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ContabilitaBindingSource.EndEdit()
ContabilitaTableAdapter.Update(BudgetFamiliareDataSet.contabilita)
ContabilitaBindingSource.AddNew()
Form1.ContabilitaTableAdapter.Fill(Form1.BudgetFamiliareDataSet.contabilita)
Form1.BntFiltra.BackColor = Color.WhiteSmoke
Form1.BntTuttiDati.BackColor = Color.WhiteSmoke
Form1.BntMeseCorrente.BackColor = Color.WhiteSmoke
Form1.BntAnnoCorrente.BackColor = Color.LightCyan
Form1.Button3.BackColor = Color.WhiteSmoke
Form1.BntAnnoScorso.BackColor = Color.WhiteSmoke
Try 'qui calcolo il sado delle entrate e delle uscite
Dim cmd As SqlCommand
Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto = " & IdContoTextBox.Text & ""
cmd = New SqlCommand(Sql, conn)
conn.Open()
Dim DR As SqlDataReader
DR = cmd.ExecuteReader
DR.Read()
Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))
Form1.Label10.Text = String.Format("{0:c2}", TotE - TotU).ToString()
Form1.Label10.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)
cmd.Dispose()
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
Dim entrate As Decimal = 0
Dim uscite As Decimal = 0
For r = 0 To Form1.ContabilitaDataGridView.Rows.Count - 1
If Not DBNull.Value.Equals(Form1.ContabilitaDataGridView(6, r).Value) Then
uscite += CType(Form1.ContabilitaDataGridView.Rows(r).Cells(6).Value, Double)
End If
Next
For r = 0 To Form1.ContabilitaDataGridView.Rows.Count - 1
If Not DBNull.Value.Equals(Form1.ContabilitaDataGridView(5, r).Value) Then
entrate += CType(Form1.ContabilitaDataGridView.Rows(r).Cells(5).Value, Double)
End If
Next
Form1.LblTotale.Text = (entrate - uscite).ToString("c2")
Form1.TextBox2.Text = (entrate - uscite).ToString("c2")
If Form1.LblTotale.Text < 0 Then
Form1.LblTotale.ForeColor = Color.Red
Else
Form1.LblTotale.ForeColor = Color.Green
End If
Form1.ContabilitaDataGridView.FirstDisplayedScrollingRowIndex = Form1.ContabilitaDataGridView.RowCount - 2
Catch ex As Exception
End Try
End Sub
Come posso corregere ?