Questo topic e' stato chiuso dal moderatore.
16/06/09 12:05
ThUnD3r_Bl4d3
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
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
aaa