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.
