• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 74
  • Last Modified:

Conversion from C# to VB inserting "Key" ???

In my following code (partial) the conversion adds  "Key ."
Which gives me an error on code in VB.
How do I handle this?

THIS CODE
                    using (SJVServiceClient client2 = new SJVServiceClient())
                    {
                        SearchResult res2 = new SearchResult();
                        res2 = client.GetResult(new GetResultRequest
                        {
                            RequestID = requestID,
                            Authentication = new Authentication
                            { UserName = "username", Password = "password6" }
                        });

                        if (res2.ProductResult != null)
                        {
                            var json = JsonConvert.SerializeObject(res2);
                            lblJason.Text = json.ToString();
                        }
                    }

Open in new window


Produces THIS CODE
Using client2 As New SJVServiceClient()
	Dim res2 As New SearchResult()
	res2 = client.GetResult(New GetResultRequest() With { _
		[b]Key [/b].RequestID = requestID, _
		Key .Authentication = New Authentication() With { _
			Key .UserName = "username", _
			Key .Password = "password" _
		} _
	})

	If res2.ProductResult IsNot Nothing Then
		Dim json = JsonConvert.SerializeObject(res2)
		lblJason.Text = json.ToString()
	End If
End Using

Open in new window

0
lrbrister
Asked:
lrbrister
  • 2
1 Solution
 
Pawan KumarDatabase ExpertCommented:
Remove html codes..  from your produced code.try now.

Using client2 As New SJVServiceClient()
	Dim res2 As New SearchResult()
	res2 = client.GetResult(New GetResultRequest() With { _
		Key.RequestID = requestID, _
		Key.Authentication = New Authentication() With { _
			Key .UserName = "username", _
			Key .Password = "password" _
		} _
	})

	If res2.ProductResult IsNot Nothing Then
		Dim json = JsonConvert.SerializeObject(res2)
		lblJason.Text = json.ToString()
	End If
End Using

Open in new window

0
 
lrbristerAuthor Commented:
Pawar... still received the same error.

Found my own solution.

    Protected Sub medServiceExclusion(ByVal requestID As Integer)
        Dim getResult = New GetResultRequest()
        Dim auth = New Authentication()
        auth.UserName = "user"
        auth.Password = "useeP"
        getResult.RequestID = requestID
        getResult.Authentication = auth

        Using client As New SJVServiceClient()
            Using client2 As New SJVServiceClient()
                Dim res2 As New SearchResult()
                res2 = client.GetResult(getResult)
                If res2.ProductResult IsNot Nothing Then
                    Dim json = JsonConvert.SerializeObject(res2)
                    Dim f As String = ""
                End If
            End Using
        End Using
    End Sub

Open in new window

0
 
lrbristerAuthor Commented:
Found my own solution
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now