nick447923
Member
- Joined
- Nov 10, 2009
- Messages
- 14
- Programming Experience
- Beginner
I am trying to do an insert into a table called Policy. I keep getting an error that says parameter @Split has no default value. To try and resolve the problem, I set the default value of the split field (of type text) in the Policy table to "0" in Access 2007. I am passing in the value of a string "0" into the parameter before the insert statement executes.
<code>
Dim connection As OleDbConnection = PaulMeadeInsuranceDB.GetConnection
Dim insertcommand2 As New OleDbCommand(insertStatement2, connection)
connection.Open()
Dim insertStatement2 As String = "INSERT INTO Policy (CustNumber, AcctNumber, Slot, " _
& "Split, CompanyNumber, PolicyNumber, EffDate, ExpDate, Term, ClassofBus, Commercial, Premium, " _
& "SubCoNumber, SubClassBusiness, CancelDate, CanCode, StatusWord, PolicyStatus, RenewalStatus, CancelStatus, " _
& "BounceStatus, CommRate) VALUES (@CustNumber, @AcctNumber, @Slot, " _
& "@Split, @CompanyNumber, @PolicyNumber, @EffDate, @ExpDate, @Term, @ClassofBus, @Commercial, @Premium, " _
& "@SubCoNumber, @SubClassBusiness, @CancelDate, @CanCode, @StatusWord, @PolicyStatus, @RenewalStatus, @CancelStatus, " _
& "@BounceStatus, @CommRate)"
insertcommand2.Parameters.AddWithValue("@CustNumbe r", Customer.Custnumber)
insertcommand2.Parameters.AddWithValue("@AcctNumbe r", Policy.AcctNum)
insertcommand2.Parameters.AddWithValue("@Slot", Policy.Slot)
insertcommand2.Parameters.AddWithValue("@CompanyNu mber", Policy.CoNumber)
insertcommand2.Parameters.AddWithValue("@PolicyNum ber", Policy.Policynumber)
insertcommand2.Parameters.AddWithValue("@EffDate", Policy.Effdate)
insertcommand2.Parameters.AddWithValue("@ExpDate", Policy.Expdate)
insertcommand2.Parameters.AddWithValue("@Term", Policy.Term)
insertcommand2.Parameters.AddWithValue("@ClassofBu s", Policy.ClassOfBus)
insertcommand2.Parameters.AddWithValue("@Commercia l", Policy.Commercial)
insertcommand2.Parameters.AddWithValue("@Premium", Policy.Premium)
insertcommand2.Parameters.AddWithValue("@SubCoNumb er", Policy.SubCoNumber)
insertcommand2.Parameters.AddWithValue("@SubClassB usiness", Policy.SubClassOfBus)
insertcommand2.Parameters.AddWithValue("@CancelDat e", Policy.Canceldate)
insertcommand2.Parameters.AddWithValue("@CanCode", Policy.CancelCode)
insertcommand2.Parameters.AddWithValue("@StatusWor d", Policy.StatusWord)
insertcommand2.Parameters.AddWithValue("@PolicySta tus", Policy.PolicyStat)
insertcommand2.Parameters.AddWithValue("@RenewalSt atus", Policy.RenStat)
insertcommand2.Parameters.AddWithValue("@CancelSta tus", Policy.CanStat)
insertcommand2.Parameters.AddWithValue("@BounceSta tus", Policy.BounceStat)
insertcommand2.Parameters.AddWithValue("@CommRate" , Policy.CommRate)
insertcommand2.Parameters.AddWithValue("@Split", Policy.Split)
insertcommand2.ExecuteNonQuery()
</code>
<code>
Dim connection As OleDbConnection = PaulMeadeInsuranceDB.GetConnection
Dim insertcommand2 As New OleDbCommand(insertStatement2, connection)
connection.Open()
Dim insertStatement2 As String = "INSERT INTO Policy (CustNumber, AcctNumber, Slot, " _
& "Split, CompanyNumber, PolicyNumber, EffDate, ExpDate, Term, ClassofBus, Commercial, Premium, " _
& "SubCoNumber, SubClassBusiness, CancelDate, CanCode, StatusWord, PolicyStatus, RenewalStatus, CancelStatus, " _
& "BounceStatus, CommRate) VALUES (@CustNumber, @AcctNumber, @Slot, " _
& "@Split, @CompanyNumber, @PolicyNumber, @EffDate, @ExpDate, @Term, @ClassofBus, @Commercial, @Premium, " _
& "@SubCoNumber, @SubClassBusiness, @CancelDate, @CanCode, @StatusWord, @PolicyStatus, @RenewalStatus, @CancelStatus, " _
& "@BounceStatus, @CommRate)"
insertcommand2.Parameters.AddWithValue("@CustNumbe r", Customer.Custnumber)
insertcommand2.Parameters.AddWithValue("@AcctNumbe r", Policy.AcctNum)
insertcommand2.Parameters.AddWithValue("@Slot", Policy.Slot)
insertcommand2.Parameters.AddWithValue("@CompanyNu mber", Policy.CoNumber)
insertcommand2.Parameters.AddWithValue("@PolicyNum ber", Policy.Policynumber)
insertcommand2.Parameters.AddWithValue("@EffDate", Policy.Effdate)
insertcommand2.Parameters.AddWithValue("@ExpDate", Policy.Expdate)
insertcommand2.Parameters.AddWithValue("@Term", Policy.Term)
insertcommand2.Parameters.AddWithValue("@ClassofBu s", Policy.ClassOfBus)
insertcommand2.Parameters.AddWithValue("@Commercia l", Policy.Commercial)
insertcommand2.Parameters.AddWithValue("@Premium", Policy.Premium)
insertcommand2.Parameters.AddWithValue("@SubCoNumb er", Policy.SubCoNumber)
insertcommand2.Parameters.AddWithValue("@SubClassB usiness", Policy.SubClassOfBus)
insertcommand2.Parameters.AddWithValue("@CancelDat e", Policy.Canceldate)
insertcommand2.Parameters.AddWithValue("@CanCode", Policy.CancelCode)
insertcommand2.Parameters.AddWithValue("@StatusWor d", Policy.StatusWord)
insertcommand2.Parameters.AddWithValue("@PolicySta tus", Policy.PolicyStat)
insertcommand2.Parameters.AddWithValue("@RenewalSt atus", Policy.RenStat)
insertcommand2.Parameters.AddWithValue("@CancelSta tus", Policy.CanStat)
insertcommand2.Parameters.AddWithValue("@BounceSta tus", Policy.BounceStat)
insertcommand2.Parameters.AddWithValue("@CommRate" , Policy.CommRate)
insertcommand2.Parameters.AddWithValue("@Split", Policy.Split)
insertcommand2.ExecuteNonQuery()
</code>
Last edited: