"Don" wrote:

> Hello, I'm creating a web service that will allow people to enter their
> contact information into a SQL Server table. I get it to work when I enter
> all of the fields and press the invoke button, but if I leave one of the
> integer fields(ie StateID) empty if errors out. I tried to make the
> parameters optionally but it says thats not possible with a webmethod. How
> do you handle empty integer fields.
>
> I put the code below.
>
> Thanks
>
>
> <WebMethod(Description:="Inserts a record into a contacts temp table.")> _
> Public Function PutContact(ByVal FirstName As String, ByVal
> LastName As String, ByVal CompanyName As String, _
> ByVal EmailAddress As String, ByVal HomePhone As String, ByVal
> CellNumber As String, ByVal WorkPhone As String, ByVal Address1 As String,
> ByVal City As String, _
> ByVal StateID As Integer, ByVal CountryID As Integer, ByVal
> PreferenceID As Integer, ByVal DevID As Integer, ByVal SalesBedroomsID As
> Integer, ByVal TrafficSourceID As Integer, ByVal RelatedTenant As Integer,
> ByVal Comment As String) As Boolean
> Dim objConnection As New SqlConnection(strConnection)
> Dim objCmd As SqlCommand
> Dim objParam As SqlParameter
>
> Try
> objCmd = New SqlCommand("proc_ContactHoldInsert", objConnection)
> objCmd.CommandType = CommandType.StoredProcedure
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@FirstName",
> SqlDbType.VarChar, 50))
> objParam.Value = FirstName
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@LastName",
> SqlDbType.VarChar, 50))
> objParam.Value = LastName
>
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@CompanyName", SqlDbType.VarChar, 100))
> objParam.Value = CompanyName
>
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@EmailAddress", SqlDbType.VarChar, 50))
> objParam.Value = EmailAddress
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@HomePhone",
> SqlDbType.VarChar, 30))
> objParam.Value = HomePhone
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@CellNumber",
> SqlDbType.VarChar, 30))
> objParam.Value = CellNumber
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@WorkPhone",
> SqlDbType.VarChar, 30))
> objParam.Value = WorkPhone
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@Address1",
> SqlDbType.VarChar, 100))
> objParam.Value = Address1
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@City",
> SqlDbType.VarChar, 20))
> objParam.Value = City
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@StateID",
> SqlDbType.Int))
> objParam.Value = StateID
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@CountryID",
> SqlDbType.Int))
> objParam.Value = CountryID
>
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@PreferenceID", SqlDbType.Int))
> objParam.Value = PreferenceID
>
> objParam = objCmd.Parameters.Add(New SqlParameter("@DevID",
> SqlDbType.Int))
> objParam.Value = DevID
>
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@SalesBedroomsID", SqlDbType.Int))
> objParam.Value = SalesBedroomsID
>
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@TrafficSourceID", SqlDbType.Int))
> objParam.Value = TrafficSourceID
> 'If RelatedTenant <> "" Then
> objParam = objCmd.Parameters.Add(New
> SqlParameter("@RelatedTenant", SqlDbType.Int))
> objParam.Value = RelatedTenant
> ' End If
> objParam = objCmd.Parameters.Add(New SqlParameter("@Comment",
> SqlDbType.VarChar, 255))
> objParam.Value = Comment
>
> objCmd.Connection.Open()
> objCmd.ExecuteNonQuery()
> objCmd.Connection.Close()
>
> Return True
> Catch ex As Exception
> Return False
> End Try
>