+ Rispondi al messaggio
Pagina 1 di 3 123 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 25

Query sintassi non corretta

  1. #1
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    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 ?

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Dopo

    Dim Sql ...

    aggiungi la riga

    MessageBox.Show(Sql)

    e facci vedere cosa mostra la finestra di messaggio
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    nel messaggio mi ritorna:

    SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto =

  4. #4
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Quindi cosa manca, secondo te?
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Antonio mi dispiace sono 15 gg. che cerco di capire, la butto lì forse il nome del conto?

  6. #6
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Dopo l' = non c'è niente, lo hai visto? Cosa ci dovrebbe essere?
    ℹ️ Leggi di più su AntonioG ...

  7. #7
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Dopo l' = non c'è niente, lo hai visto? Cosa ci dovrebbe essere?
    Ma quella è una L

  8. #8
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Ma che dici???
    ℹ️ Leggi di più su AntonioG ...

  9. #9
    L'avatar di freddy60
    freddy60 non è in linea Scolaretto
    Post
    227
    Like Inviati  
    0
    Like Ricevuti  
    0
    Antonio lo so che tu vuoi che ci arrivi io da solo per farmi capire, infatti dal messaggio alla fine della query:

    SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto =

    non c'è niente, ma io ho messo: " & IdContoTextBox.Text & ""

    sto sbagliando tutto?

  10. #10
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Evidentemente devi controllare il contenuto di

    IdContoTextBox

    perché in quel momento è vuoto.

    Inserisci il valore nel textbox prima di usare il Button1 ?
    ℹ️ Leggi di più su AntonioG ...

+ Rispondi al messaggio
Pagina 1 di 3 123 ultimoultimo

Potrebbero interessarti anche ...

  1. Sintassi Corretta nelle textbox in VBA
    Da TerraSarda nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 23-11-2007, 13:59
  2. [Access] Sintassi Query
    Da Claudios nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 30-06-2006, 15:35
  3. Controllo sintassi query
    Da ggftw nel forum PHP
    Risposte: 7
    Ultimo Post: 29-12-2005, 13:21
  4. sintassi query
    Da marinaio nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 06-09-2005, 17:36
  5. sintassi query aggiornamento
    Da marinaio nel forum Visual Basic 6
    Risposte: 11
    Ultimo Post: 23-06-2005, 14:15