Non scrive i dati nella tabella

[massimo74rn]

Non riesco a capire come mai la seguente procedura non scrive i dati nella tabella 'situazione'?


'leggo ultimo ID
cmd = New OleDb.OleDbCommand("select Max(IDSituazione) AS IDSituazione from Situazione", cn)
reader = cmd.ExecuteReader

x = 0
Do While reader.Read()
x = reader("IDSituazione")
Loop

'scrivo valori
Stringa = "INSERT INTO Situazione " & _
"(IDSituazione,IDTavolo,DataOraInizio) " & _
"VALUES (" & x + 1 & "," & _
"" & m_IDTavolo & "," & _
"#" & Format(CDate(Date.Today), "MM/dd/yyyy") & "#)"

dbc = New OleDb.OleDbCommand(Stringa, cn)
dbc.ExecuteNonQuery()

[Stoicenko]

1) inserisci il codice nei tag code sennò non si capisce nulla
2) il linguaggio nel titolo
3) genera errori? lancia eccezioni? In debug hai controllato che la prima query ritorni ciò che desideri?

[massimo74rn]

Grazie, scusa hai ragione ho postato male, sono nuovo di qui.
Comunque non genera errori, sembra che vada tutto bene, la prima routine mi serve per leggere il valore di un numeo, mentre la seconda dovrebbe trascrivere i dati nella tabella ma questo non avviene.