Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - VB.NET - VB 2008 [Visual studio] Database Access inserimento dati
Forum - C# / VB.NET - VB.NET - VB 2008 [Visual studio] Database Access inserimento dati

Avatar
ThUnD3r_Bl4d3 (Normal User)
Newbie


Messaggi: 3
Iscritto: 16/06/2009

Segnala al moderatore
Postato alle 14:05
Martedì, 16/06/2009
Questo topic è stato chiuso dal moderatore

Mi da errore di sintassi nell'istruzione insert to...

objCommand.CommandText = "INSERT INTO Ideal " & _
"(Nome, Code, Note, Specifica 1, Specifica 1 min, Specifica 1 max, Specifica 2, Specifica 2 min, Specifica 2 max, Specifica 3, Specifica 3 min, Specifica 3 max, Specifica 4, Specifica 4 min, Specifica 4 max, Specifica 5, Specifica 5 min, Specifica 5 max, Specifica 6, Specifica 6 min, Specifica 6 max, Specifica 7, Specifica 7 min, Specifica 7 max, Specifica 8, Specifica 8 min, Specifica 8 max, Specifica 9, Specifica 9 min, Specifica 9 max, Specifica 10, Specifica 10 min, Specifica 10 max) " & _
"VALUES(@nome,@code,@note,@Specifica 1,@Specifica 1 min,@Specifica 1 max,@Specifica 2,@Specifica 2 min,@Specifica 2 max,@Specifica 3,@Specifica 3 min,@Specifica 3 max,@Specifica 4,@Specifica 4 min,@Specifica 4 max,@Specifica 5,@Specifica 5 min,@Specifica 5 max,@Specifica 6,@Specifica 6 min,@Specifica 6 max,@Specifica 7,@Specifica 7 min,@Specifica 7 max,@Specifica 8,@Specifica 8 min,@Specifica 8 max,@Specifica 9,@Specifica 9 min,@Specifica 9 max,@Specifica 10,@Specifica 10 min,@Specifica 10 max);"


Sono disperato non riesco a correggierla...

Vi posto l'intero codice:

Private Sub btnAddRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddRecord.Click

Dim intPosition As Integer
Dim objCommand As OleDbCommand = New OleDbCommand()

intPosition = objCurrencyManager.Position

objConnection.Open()

objCommand.Connection = objConnection

objCommand.CommandText = "INSERT INTO Ideal " & _
"(Nome, Code, Note, Specifica 1, Specifica 1 min, Specifica 1 max, Specifica 2, Specifica 2 min, Specifica 2 max, Specifica 3, Specifica 3 min, Specifica 3 max, Specifica 4, Specifica 4 min, Specifica 4 max, Specifica 5, Specifica 5 min, Specifica 5 max, Specifica 6, Specifica 6 min, Specifica 6 max, Specifica 7, Specifica 7 min, Specifica 7 max, Specifica 8, Specifica 8 min, Specifica 8 max, Specifica 9, Specifica 9 min, Specifica 9 max, Specifica 10, Specifica 10 min, Specifica 10 max) " & _
"VALUES(@nome,@code,@note,@Specifica 1,@Specifica 1 min,@Specifica 1 max,@Specifica 2,@Specifica 2 min,@Specifica 2 max,@Specifica 3,@Specifica 3 min,@Specifica 3 max,@Specifica 4,@Specifica 4 min,@Specifica 4 max,@Specifica 5,@Specifica 5 min,@Specifica 5 max,@Specifica 6,@Specifica 6 min,@Specifica 6 max,@Specifica 7,@Specifica 7 min,@Specifica 7 max,@Specifica 8,@Specifica 8 min,@Specifica 8 max,@Specifica 9,@Specifica 9 min,@Specifica 9 max,@Specifica 10,@Specifica 10 min,@Specifica 10 max);"

' We must to add parameters to the oledbCommand object
' Parameter for the FirstName column

objCommand.Parameters.AddWithValue("@nome", txtnomenuovo.Text)
objCommand.Parameters.AddWithValue("@code", txtnumnuovoprodotto.Text)
objCommand.Parameters.AddWithValue("@note", txtnotenuovoprodottok.Text)

objCommand.Parameters.AddWithValue("@Specifica 1", txtspcnuova1.Text)
objCommand.Parameters.AddWithValue("@Specifica 1 min", txtspcnuova1min.Text)
objCommand.Parameters.AddWithValue("@Specifica 1 max", txtspcnuova1max.Text)
objCommand.Parameters.AddWithValue("@Specifica 2", txtspcnuova2.Text)
objCommand.Parameters.AddWithValue("@Specifica 2 min", txtspcnuova2min.Text)
objCommand.Parameters.AddWithValue("@Specifica 2 max", txtspcnuova2max.Text)
objCommand.Parameters.AddWithValue("@Specifica 3", txtspcnuova3.Text)
objCommand.Parameters.AddWithValue("@Specifica 3 min", txtspcnuova3min.Text)
objCommand.Parameters.AddWithValue("@Specifica 3 max", txtspcnuova3max.Text)
objCommand.Parameters.AddWithValue("@Specifica 4", txtspcnuova4.Text)
objCommand.Parameters.AddWithValue("@Specifica 4 min", txtspcnuova4min.Text)
objCommand.Parameters.AddWithValue("@Specifica 4 max", txtspcnuova4max.Text)
objCommand.Parameters.AddWithValue("@Specifica 5", txtspcnuova5.Text)
objCommand.Parameters.AddWithValue("@Specifica 5 min", txtspcnuova5min.Text)
objCommand.Parameters.AddWithValue("@Specifica 5 max", txtspcnuova5max.Text)
objCommand.Parameters.AddWithValue("@Specifica 6", txtspcnuova6.Text)
objCommand.Parameters.AddWithValue("@Specifica 6 min", txtspcnuova6min.Text)
objCommand.Parameters.AddWithValue("@Specifica 6 max", txtspcnuova6max.Text)
objCommand.Parameters.AddWithValue("@Specifica 7", txtspcnuova7.Text)
objCommand.Parameters.AddWithValue("@Specifica 7 min", txtspcnuova7min.Text)
objCommand.Parameters.AddWithValue("@Specifica 7 max", txtspcnuova7max.Text)
objCommand.Parameters.AddWithValue("@Specifica 8", txtspcnuova8.Text)
objCommand.Parameters.AddWithValue("@Specifica 8 min", txtspcnuova8min.Text)
objCommand.Parameters.AddWithValue("@Specifica 8 max", txtspcnuova8max.Text)
objCommand.Parameters.AddWithValue("@Specifica 8", txtspcnuova9.Text)
objCommand.Parameters.AddWithValue("@Specifica 9 min", txtspcnuova9min.Text)
objCommand.Parameters.AddWithValue("@Specifica 9 max", txtspcnuova9max.Text)
objCommand.Parameters.AddWithValue("@Specifica 10", txtspcnuova10.Text)
objCommand.Parameters.AddWithValue("@Specifica 10 min", txtspcnuova10min.Text)
objCommand.Parameters.AddWithValue("@Specifica 10 max", txtspcnuova10max.Text)
' Execute the OleDBCommand object to insert the new data
Try
objCommand.ExecuteNonQuery()
Catch OleDbExceptionErr As OleDbException
MessageBox.Show(OleDbExceptionErr.Message)
End Try
' Close the connection...
objConnection.Close()
' Fill the dataset and bind the fields...
FillDataSetAndView()
BindFields()
' Set the record position to the one that you saved...
objCurrencyManager.Position = intPosition
' Show the current record position...
ShowPosition()
lblinformation.Text = "New Product added !!!"
End Sub

PM
Avatar
ThUnD3r_Bl4d3 (Normal User)
Newbie


Messaggi: 3
Iscritto: 16/06/2009

Segnala al moderatore
Postato alle 14:25
Martedì, 16/06/2009
HO corretto inserendo le parentesi quadre "([Nome], , [Note], [Specifica 1], [Specifica 1 min], [Specifica 1 max], [Specifica 2], [Specifica 2 min], [Specifica 2 max], [Specifica 3], [Specifica 3 min], [Specifica 3 max], [Specifica 4], [Specifica 4 min], [Specifica 4 max], [Specifica 5], [Specifica 5 min], [Specifica 5 max], [Specifica 6], [Specifica 6 min], [Specifica 6 max], [Specifica 7], [Specifica 7 min], [Specifica 7 max], [Specifica 8], [Specifica 8 min], [Specifica 8 max], [Specifica 9], [Specifica 9 min], [Specifica 9 max], [Specifica 10], [Specifica 10 min], [Specifica 10 max]) " & _


Ora mi da operatore mancante in @Specifica 1'

PM
Avatar
ThUnD3r_Bl4d3 (Normal User)
Newbie


Messaggi: 3
Iscritto: 16/06/2009

Segnala al moderatore
Postato alle 15:09
Martedì, 16/06/2009
risolto le quadre andavano anche sotto

PM