Como pasar el webservice de .NET a Java?
Hola amigos de la Programación Java :
Estoy probando un web service en Visual .NET y funciono muy bien en una consulta, ahora les pregunto, como usuario nuevo en Java quisiera saber como escribo ese código en Java...
El siguiente código esta escrito en .NET como pasarlo en Java para hacer pruebas.
El código es el siguiente:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim CallWebService As New mipc.Resultado()
Dim ds As DataSet
Dim dt As New DataTable()
Dim dtM As New DataTable()
Dim dtB As New DataTable()
Dim docxml As New XmlDataDocument()
ds = CallWebService.ValidaScasec(Me.TxtLogin.Text, Me.TxtPassword.Text, "BD")
If ds.Tables.Count > 0 Then
dtM = ds.Tables(0)
dtB = ds.Tables(1)
Dim p As Integer
If dtM.Rows.Count > 0 Then
If dtB.Rows.Count > 0 Then
strcad = CallWebService.SqlExecute("select count(*) from demos ", 10)
Me.LblError.Text = dt.Rows(0).Item(0)
Dim j, r As Integer
Dim num As Integer
Dim serv As String
Dim apl As String
r = 0
End If
Else
Me.LblError.Text = "usuario no existe"
End If
End If
Catch eee As Exception
Response.Clear()
LblError.Visible = True
Me.LblError.Text = eee.Message.ToString()
End Try
End Sub
Por la ayuda, gracias de antemano.
Estoy probando un web service en Visual .NET y funciono muy bien en una consulta, ahora les pregunto, como usuario nuevo en Java quisiera saber como escribo ese código en Java...
El siguiente código esta escrito en .NET como pasarlo en Java para hacer pruebas.
El código es el siguiente:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim CallWebService As New mipc.Resultado()
Dim ds As DataSet
Dim dt As New DataTable()
Dim dtM As New DataTable()
Dim dtB As New DataTable()
Dim docxml As New XmlDataDocument()
ds = CallWebService.ValidaScasec(Me.TxtLogin.Text, Me.TxtPassword.Text, "BD")
If ds.Tables.Count > 0 Then
dtM = ds.Tables(0)
dtB = ds.Tables(1)
Dim p As Integer
If dtM.Rows.Count > 0 Then
If dtB.Rows.Count > 0 Then
strcad = CallWebService.SqlExecute("select count(*) from demos ", 10)
Me.LblError.Text = dt.Rows(0).Item(0)
Dim j, r As Integer
Dim num As Integer
Dim serv As String
Dim apl As String
r = 0
End If
Else
Me.LblError.Text = "usuario no existe"
End If
End If
Catch eee As Exception
Response.Clear()
LblError.Visible = True
Me.LblError.Text = eee.Message.ToString()
End Try
End Sub
Por la ayuda, gracias de antemano.
