Troy
Well-known member
- Joined
- Feb 7, 2005
- Messages
- 153
- Programming Experience
- 10+
Hey guys it's me again and it tooks some time to understand everything you were feeding me. I'm still a bit fuzzy but now I'm using Parameterized Query's. I'm getting the following error when i attempt to add a new record to my DB.
Here is my code:
An error occured. Error Number 5: Description: Syntax error in INSERT INTO Statement. Source: Microsoft Database.
Here is my code:
VB.NET:
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
My.Settings.dbPath & "; Persist Security Info=False")
cmd = New OleDbCommand("INSERT INTO Contact", conn)
cmd.CommandText &= " WHERE LastName1 = ?LastName1"
cmd.Parameters.AddWithValue("?LastName1", OleDbType.VarWChar)
cmd.Parameters("?LastName1").Value = txtLastName1.Text
cmd.CommandText &= " WHERE FirstName1 = ?FirstName1"
cmd.Parameters.AddWithValue("?FirstName1", OleDbType.VarWChar)
cmd.Parameters("?FirstName1").Value = txtFirstName1.Text
cmd.CommandText &= " WHERE MiddleInitial1 = ?MiddleInitial1"
cmd.Parameters.AddWithValue("?MiddleInitial1", OleDbType.VarWChar)
cmd.Parameters("?MiddleInitial1").Value = txtMiddleInitial1.Text
cmd.CommandText &= " WHERE LastName2 = ?LastName2"
cmd.Parameters.AddWithValue("?LastName2", OleDbType.VarWChar)
cmd.Parameters("?LastName2").Value = txtLastName2.Text
cmd.CommandText &= " WHERE FirstName2 = ?FirstName2"
cmd.Parameters.AddWithValue("?FirstName2", OleDbType.VarWChar)
cmd.Parameters("?FirstName2").Value = txtFirstName2.Text
cmd.CommandText &= " WHERE MiddleInitial2 = ?MiddleInitial2"
cmd.Parameters.AddWithValue("?MiddleInitial2", OleDbType.VarWChar)
cmd.Parameters("?MiddleInitial2").Value = txtMiddleInitial2.Text
cmd.CommandText &= " WHERE CurrentStreet = ?CurrentStreet"
cmd.Parameters.AddWithValue("?CurrentStreet", OleDbType.VarWChar)
cmd.Parameters("?CurrentStreet").Value = txtCurrentStreet.Text
cmd.CommandText &= " WHERE CurrentCity = ?CurrentCity"
cmd.Parameters.AddWithValue("?CurrentCity", OleDbType.VarWChar)
cmd.Parameters("?CurrentCity").Value = txtCurrentCity.Text
cmd.CommandText &= " WHERE CurrentState = ?CurrentState"
cmd.Parameters.AddWithValue("?CurrentState", OleDbType.VarWChar)
cmd.Parameters("?CurrentState").Value = txtCurrentState.Text
cmd.CommandText &= " WHERE CurrentZipCode = ?CurrentZipCode"
cmd.Parameters.AddWithValue("?CurrentZipCode", OleDbType.VarWChar)
cmd.Parameters("?CurrentZipCode").Value = txtCurrentZipCode.Text
cmd.CommandText &= " WHERE CurrentCounty = ?CurrentCounty"
cmd.Parameters.AddWithValue("?CurrentCounty", OleDbType.VarWChar)
cmd.Parameters("?CurrentCounty").Value = txtCurrentCounty.Text
cmd.CommandText &= " WHERE FutureStreet = ?FutureStreet"
cmd.Parameters.AddWithValue("?FutureStreet", OleDbType.VarWChar)
cmd.Parameters("?FutureStreet").Value = txtFutureStreet.Text
cmd.CommandText &= " WHERE FutureCity = ?FutureCity"
cmd.Parameters.AddWithValue("?FutureCity", OleDbType.VarWChar)
cmd.Parameters("?FutureCity").Value = txtFutureCity.Text
cmd.CommandText &= " WHERE FutureState = ?FutureState"
cmd.Parameters.AddWithValue("?FutureState", OleDbType.VarWChar)
cmd.Parameters("?FutureState").Value = txtFutureState.Text
cmd.CommandText &= " WHERE FutureZipCode = ?FutureZipCode"
cmd.Parameters.AddWithValue("?FutureZipCode", OleDbType.VarWChar)
cmd.Parameters("?FutureZipCode").Value = txtFutureZipCode.Text
cmd.CommandText &= " WHERE FutureCounty = ?FutureCounty"
cmd.Parameters.AddWithValue("?FutureCounty", OleDbType.VarWChar)
cmd.Parameters("?FutureCounty").Value = txtFutureCounty.Text
cmd.CommandText &= " WHERE HomePhone = ?HomePhone"
cmd.Parameters.AddWithValue("?HomePhone", OleDbType.VarWChar)
cmd.Parameters("?HomePhone").Value = txtHomePhone.Text
cmd.CommandText &= " WHERE Fax = ?Fax"
cmd.Parameters.AddWithValue("?Fax", OleDbType.VarWChar)
cmd.Parameters("?Fax").Value = txtFax.Text
cmd.CommandText &= " WHERE CellPhone = ?CellPhone"
cmd.Parameters.AddWithValue("?CellPhone", OleDbType.VarWChar)
cmd.Parameters("?CellPhone").Value = txtCellPhone.Text
cmd.CommandText &= " WHERE OfficePhone = ?OfficePhone"
cmd.Parameters.AddWithValue("?OfficePhone", OleDbType.VarWChar)
cmd.Parameters("?OfficePhone").Value = txtOfficePhone.Text
cmd.CommandText &= " WHERE Extension = ?Extension"
cmd.Parameters.AddWithValue("?Extension", OleDbType.VarWChar)
cmd.Parameters("?Extension").Value = txtExtension.Text
cmd.CommandText &= " WHERE Email = ?Email"
cmd.Parameters.AddWithValue("?Email", OleDbType.VarWChar)
cmd.Parameters("?Email").Value = txtEmail.Text
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()