07/09/09 21:17
sps84
guarda perdonami ma sto impazzendo... ti posto il codice dimmi solo dove sbaglio...
Dim str As String If AccessCommand.CommandText = "SELECT * from DettOrdini WHERE @Codice = ........IDArticolo;" = True Then MsgBox("Insert") str = "INSERT INTO DettOrdini (IDArticolo, Quantità) VALUES(@Codice, ........@LblQuantità);" Else MsgBox("Update") str = "UPDATE DettOrdini set IDArticolo = @Codice, Quantità = @LblQuantità ............WHERE @Codice = IDArticolo;" End If AccessCommand.CommandText = (str.ToString) 'AccessCommand.CommandText = "UPDATE DettOrdini SET IDArticolo = @Codice, .........Quantità = @LblQuantità WHERE @Codice = IDArticolo ELSE INSERT INTO DettOrdini .........(IDArticolo, Quantità) VALUES(@Codice, @LblQuantità);" AccessCommand.Parameters.AddWithValue("@Codice", LblCodice.Text) AccessCommand.Parameters.AddWithValue("@LblQuantità", TxtPezziOrdine.Text) Try AccessCommand.ExecuteNonQuery() Catch err As Exception MessageBox.Show(err.ToString) End Try
aaa