Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

Vb 2019 Problemi Update con db access

$
0
0

Ciao a tutti, Sono alle prime armi,

quando utilizzo le seguenti istruzioni, ricevo il seguente messaggio:Errore di sintassi nell'istruzione UPDATE

Non riesco a capire da cosa può dipendere. Mi potete aiutare? Ho provato a seguire un manuale ma non ho capito tanto.

Grazie

 Dim strConn As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\UTENZE.ACCDB")
        Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection
        con.ConnectionString = strConn
        con.Open()
          
        Dim STR As String
        STR = "UPDATE [ACQUA] SET [NUM_BOL]="& TextBox3.Text & ", [IMP_BOL]="& TextBox1.Text & ", [POSTALI]="& TextBox2.Text & ",[CA1]="& TextBox6.Text & ", [CA1B]="& TextBox9.Text & ", [CA2]="& TextBox18.Text & ", [CA3]="& TextBox16.Text & ",[CA4]="& TextBox23.Text & ", [CA5]="& TextBox27.Text & ", [DIFF1]="& TextBox7.Text & ", [DIFF1B]="& TextBox10.Text & ", [DIFF2]="& TextBox17.Text & ", [DIFF3]="& TextBox15.Text & ", [DIFF4]="& TextBox22.Text & ", [DIFF5]="& TextBox26.Text & ", [NOTE]='"& TextBox4.Text & "' WHERE [ID]=" + riga1.ToString()
        Dim CMD As OleDbCommand = New OleDbCommand(STR, con)

        Try
            CMD.ExecuteReader()

            'CMD.ExecuteNonQuery()
            CMD.Dispose()
            myconnection.Close()
            MsgBox("AGGIORNAMENTO COMPLETATO")

        Catch ex As Exception
            MsgBox(ex.Message)
            myconnection.Close()
            Me.Refresh()

        End Try

Viewing all articles
Browse latest Browse all 2212