Newsgroup: it.comp.lang.visual-basic
Titolo: Update con salva in ACC2003

Ciao Ragazzi,
 
ho creato una sub per salvare dei dati in una tabella di ACC2003.
In esecuzione non ho errori, pero' non salva i dati sul MDB.
Non riesco a capire dove sbaglio.
Grazie per l'aiuto .......
Buona Serata
 
Private Sub SaveDatiOrariCaldaia()
        'Leggere i dati orario e temperatura
        'Matrice dei dati Orari Caldaia
        Dim cmdUpdate As New OleDbCommand
        Dim cnnOLEDB As New OleDbConnection
 
        Dim RecordCorrente As Integer
        Dim oleDbCnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
percorsoLocale & nomeFileDB
 
        cnnOLEDB.ConnectionString = oleDbCnStr
        cnnOLEDB.Open()
        For RecordCorrente = 1 To 7
            With cmdUpdate
                .CommandText = "UPDATE Tab_Orari_Caldaia SET " & _
                                 ", CaldaiaON=" & 
DatiOrariCaldaia(RecordCorrente).CaldaiaON & _
                                 ", ON1=" & 
DatiOrariCaldaia(RecordCorrente).OrarioON1 & _
                                 ", OFF1=" & 
DatiOrariCaldaia(RecordCorrente).OrarioOFF1 & _
                                 ", TON1=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaON1 & _
                                 ", TOFF1=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaOFF1 & _
                                 ", ON2=" & 
DatiOrariCaldaia(RecordCorrente).OrarioON2 & _
                                 ", OFF2=" & 
DatiOrariCaldaia(RecordCorrente).OrarioOFF2 & _
                                 ", TON2=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaON2 & _
                                 ", TOFF2=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaOFF2 & _
                                 ", ON3=" & 
DatiOrariCaldaia(RecordCorrente).OrarioON3 & _
                                 ", OFF3=" & 
DatiOrariCaldaia(RecordCorrente).OrarioOFF3 & _
                                 ", TON3=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaON3 & _
                                 ", TOFF3=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaOFF3 & _
                                 ", ON4=" & 
DatiOrariCaldaia(RecordCorrente).OrarioON4 & _
                                 ", OFF4=" & 
DatiOrariCaldaia(RecordCorrente).OrarioOFF4 & _
                                 ", TON4=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaON4 & _
                                 ", TOFF4=" & 
DatiOrariCaldaia(RecordCorrente).TemperaturaOFF4 & _
                                 " WHERE Num_Giorno =" & RecordCorrente
                .CommandType = CommandType.Text
                .Connection = cnnOLEDB
 
            End With
        Next RecordCorrente
               cmdUpdate.Dispose()
    End Sub 
 

 End Sub
 
eh eh eh ...tutto bellissimo... ma il tuo stratosferico pc non è indovino!!!
DOVE gli dici di eseguire questa query?
 
siccome non ti aspetti return.....un reader non serve
Vedo che hai già agganciato una connessione GIA' aperta....quindi un
 
 
      cmdUpdate.executenonquery
 
dovrebbe proprio bastare!!!
 
riferimento:
http://msdn.microsoft.com/it-it/library/system.data.sqlclient.sqlcommand.executenonquery.aspx#Y586
 
 
;o)
 


In aggiunta a quello che ti ha suggerito Wodka valuterei anche 
l'utilizzo dei Parameters per avere un codice più pulito e cosa non da 
poco evitare SQL Injection.
Ciao, Vincenzo
 

Funziona, grazie dei vostri consigli
 
Buona serata
 
"wodka40[LinuxMint]"  ha scritto nel messaggio 
news:4fe2b6f5$0$6824$5fc...@news.tiscali.it...
